ich habe 1500 befüllte Zeilen. Nun möchte ich jedesmal dazwischen eine Leerzeile einfügen.
Kann mir da mal jemand einen Makrotip geben?
Im Voraus vielen Dank
clemens
ich habe 1500 befüllte Zeilen. Nun möchte ich jedesmal dazwischen eine Leerzeile einfügen.
Kann mir da mal jemand einen Makrotip geben?
Im Voraus vielen Dank
clemens
eine ganz einfache Variante...
for i = 1 to 1500
workbooks(Datei).sheets(1).cells(i, 1).value = ""
i = i + 1
next i
Gruß stefan.
probier doch mal
Bye
Andreas
wenn Du Stefan´s Tipp probiert hast, ist jede 2. Zelle/Zeile gelöscht - wohl nicht ganz das Gewünschte.
Vorschlag:
Sub xyz()
With ActiveWorkbook.Worksheets(1*)
For i = 2* To 1500 Step 2
.Cells(i,1).Select
Selection.EntireRow.Insert
Next i
End with
End Sub
Werte mit Stern bitte anpassen!
Viel Erfolg - Mario
weils so schön ist, hier noch eine andere Varainte, die minimal schneller sein sollte:
Viel Spaß,
Andreas
hat funktioniert
hat auch funktioniert