nichtleere zeilen löschen
16.08.2007 14:35:14
Ngo
ich brauche Hilfe bei folgendem Problem:
Ich möchte gerne, dass
alle nichtleeren Zeilen/Zellen, also Zeilen/Zellen mit Inhalt,
in der Spalte "Klasse" (liegt in der Zelle G1),
gelöscht werden.
Wie könnte da der Code richtig lauten?
Sub ZeilenLöschenSpalte()
Dim rng As Range
Set rng = Range(Cells(1, 7), Cells(Rows.Count, 1))
Set rng = rng.SpecialCells(xlNotBlanks).EntireRow
rng.Delete
End Sub