11.03.2020, 16:26
Hallo
ich hab keine Erfahrung mit VBA Programmierung, aber ich würde gerne ein Makro programmieren, welches
- Bereiche eines Tabellenblattes markiert und an eine andere Stelle kopiert
- dann zwei Spalten weiterspringt, wieder einen ähnlichen Bereich markiert und 26 Zeilen weiter unten (an das vorher kopierte anschliessend) kopiert
so weit bin ich bisher gekommen:
Sub Spaltenuntereinander2()
'
Range("F7:G32").Select
Selection.Copy
Range("D33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H7:I32").Select
Selection.Copy
Range("D59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Dies könnte ich nun einige 100 male wiederhollen, will ich aber nicht sondern ich möchte eine Schleife haben bis alles untereinander kopiert wurde
Danke vorab für eure Hilfe
ich hab keine Erfahrung mit VBA Programmierung, aber ich würde gerne ein Makro programmieren, welches
- Bereiche eines Tabellenblattes markiert und an eine andere Stelle kopiert
- dann zwei Spalten weiterspringt, wieder einen ähnlichen Bereich markiert und 26 Zeilen weiter unten (an das vorher kopierte anschliessend) kopiert
so weit bin ich bisher gekommen:
Sub Spaltenuntereinander2()
'
Range("F7:G32").Select
Selection.Copy
Range("D33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H7:I32").Select
Selection.Copy
Range("D59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Dies könnte ich nun einige 100 male wiederhollen, will ich aber nicht sondern ich möchte eine Schleife haben bis alles untereinander kopiert wurde
Danke vorab für eure Hilfe