Herbers Excel-Forum - das Archiv

Zellen Löschen wenn

Bild

Betrifft: Zellen Löschen wenn
von: M. Gottschalk

Geschrieben am: 23.02.2005 16:52:51
Hallo,
ich habe ein Makro das leider nicht funktioniert
dies soll alle Zeilen löschen in deren Spalte E ein "A" steht.
komisch ist nur das wenn ich es mit Zahlen probier, dann geht es.
was mach ich falsch??
Sub löschen()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 5).Value = "A" Then
Rows(i).Delete
End If
Next
End Sub

Bild

Betrifft: AW: Zellen Löschen wenn
von: harry
Geschrieben am: 23.02.2005 16:56:21
hi,
versuch mal
If CStr(Cells(i, 5).Value) = "A" Then
liebe grüße,
harry
Bild

Betrifft: AW: Zellen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 17:05:48
Danke!
Aber ich hab den Fehler schon gefunden!!!
Gruß M.Gottschalk
Bild

Betrifft: Du bist wie der vom Fernsehen
von: Werner Oertli

Geschrieben am: 23.02.2005 17:10:29
Hallo M
Es ist ja schon recht, wenn Du den Fehler gefunden hast.
Aber andere Gwundrige Mitleser interessiert es nun mal, wo der Fehler gelegen hat.
Gruss Werner
 Bild
Excel-Beispiele zum Thema "Zellen Löschen wenn"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen