Zeilen löschen
03.02.2005 10:31:51
Markus
Habe das folgende Makro geschrieben und es funktioniert auch.
Ziel ist es, dass alle Zellen mit dem Eintrag "1" von A12 - A42 gelöscht werden.
Nun möchte ich aber, dass alle Zeilen welche von A12-A42 eine "1" haben gelöscht werden. Und die Tabelle keine Leerzellen mehr hat, resp. alle Datensätze, welche keine "1" in Spalte A haben, direkt nacheinander kommen.
Frage: Möchte den Teil "Then .Value = "" duch Zeile löschen ersetzen, kennt jemand den nötigen Eintrag?
Sub Einer_loeschen()
For rwIndex = 12 To 42
For colIndex = 1 To 1
With Worksheets("Tabelle1").Cells(rwIndex, colIndex)
If .Value = 1 Then .Value = ""
End With
Next colIndex
Next rwIndex
End Sub