Ich habe z.B. in Tabelle1 Spalte A Daten stehen.
Nun möchte ich nach 106 Zeilen 10 Leerzeilen einfügen.
Danach wieder nach 106 Zeilen aber von Zeile 117 weg usw.
Gäbe es hier vielleicht eine VBA Lösung?
Danke für eine eventuelle Hilfe
Josef
Danke für eine eventuelle Hilfe
Josef
Mit diesem Code müsste es klappen:
Sub ZellenEinf()
'Dieses Makro fügt nach jeweils 106 Zeilen 10 leere Zeilen ein.
'Das ganze wird 30 mal wiederholt
Dim x As Integer
Dim y As Integer
Dim z As Double
z = 1
For y = 1 To 30 'wiederholungen
z = z + 106
For x = 1 To 10
Rows(z).Select
Selection.Insert Shift:=xlDown
z = z + 1
Next
Next
End Sub
Gruß,
Michael
Danke, klappt alles.
Schönen Tag noch
Josef
mfg Becker
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen