Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Kopiert Werte aus Tabelle1 in Logic2
- While IsEmpty(aktZ.Value) = False
- copZ.Value = aktZ.Value
- aktZ = Sheets(Worksheet).Cells(i + 1, 1).Activate
- i = i + 1
- 'copZ = Sheets("Logig2").ActiveCell.Offset(0, 1).Activate
- Wend
Add Comment
Please, Sign In to add comment