Makro nur einmal ausführen von Zeile A2 bis...
09.01.2014 11:19:25
Zeile
ich möchte dieses Makro nur EINMAL ausführen. Der Start ist in A2:bis letzte benutzte Zelle der Spalte A
Sub Sprung()
'Einmal ausführen Start in A2 bis letzte benutzte Zelle der Spalte A
Dim i As Object
For Each i In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
'Sprung zu nächste leere Zelle
ActiveCell.EntireColumn.Find("", ActiveCell, xlFormulas, xlWhole, xlByColumns, xlNext).Select
Selection.EntireRow.Delete
'Sprung zu nächste nichtleere Zelle
ActiveCell.EntireColumn.Find("*", ActiveCell, xlFormulas, xlWhole, xlByColumns, xlNext).Select
Next i
End Sub
Was muss bitte ich ändern?Moemntan läuft es in der Schleife.
Gruß.
Selma