ich bräuchte Hilfe bei einem Makro, das genau folgendes tut:
Es werden alle Zeilen in Tabelle1 durchsucht.
Es wird geprüft, ob die aktuelle Zeile einen Nullwert in Spalte I hat. Falls nein, wird unter der aktuellen Zeile eine Zeile eingefügt und die Spalten A, I und M kopiert von der aktuellen Zeile in die neu geschaffene Zeile kopiert. Dann wird mit der nächsten Zeile weitergemacht (Natürlich nicht die Zeile, die grade angefügt wurde.)
Ich habe schon ein Makro gefunden, welches Leerzeilen einfügt aber es war mir nicht möglich, es zu erweitern.
Gruß
Dennis
Code: Alles auswählen
Sub S_insert_rows
osheet = thiscomponent.sheets.getbyname("Tabelle1")
orows = osheet.rows
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(False)
nrow = ocursor.rangeaddress.endrow
for i = nrow to 1 step -1
orows.insertbyindex(i,1)
next i
End Sub