Code durch Schleife vereinfachen
Rolf
Ich möchte gerne wissen, ob ich diese Abfolge durch eine Schleife vereinfachen kann? Die Zellen sind immer anders und nicht Regelmässig!
Zur Orientierung einen Auszug aus meinem Makro:
Sheets("Maske").Select
Range("G20").Select
Selection.Copy
Sheets("Liste").Select
Range("M1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Maske").Select
Range("I16").Select
Selection.Copy
Sheets("Liste").Select
Range("N1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Maske").Select
Range("I18").Select
Selection.Copy
Sheets("Liste").Select
Range("O1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Maske").Select
Range("I20").Select
Selection.Copy
Sheets("Liste").Select
Range("P1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
und so wieiter etwa 20 mal...
Vielen Dank für eure Antwort!
Rolf