Zellen löschen außer mit folgendem Inhalt
01.08.2017 17:05:09
Christoph
ich versuche mich gerade ein wenig an VBA.
Ich wollte ein Makro erstellen, welches automatisch alle Zeilen löscht einer Datei außer die Zeile enthält eine Zelle mit folgendem Inhalt.
Folgendes habe ich erstellt:
Sub loeschen()
Dim n As Integer
n = 1
Do
If Not ActiveSheet.Range("A" & n) = "900" Then
ActiveSheet.Range("A" & n).EntireRow.Delete
Else
n = n + 1
End If
Loop While ActiveSheet.Range("A" & n) ""
End Sub
Alles was ich nun versuche scheitert kläglich.
Könnt ihr mir hier helfen?
Vielen Dank!
LG
Anzeige