Zeilen Löschen wenn

Bild

Betrifft: Zeilen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 14:55:01
Hallo,
ich möchte in einer Excel Tabelle diese Zeilen Löschen,
in deren "Spalte E" ein "A" steht.
Dieses sollte ein Makro ausführen (VBA)
kann mir jemand weiterhelfen
Gruß M.Gottschalk

Bild

Betrifft: AW: Zeilen Löschen wenn
von: WernerB.
Geschrieben am: 23.02.2005 15:00:23
Hallo M. Gottschalk,
wie gefällt Dir das?

Sub M_Gottschalk()
Dim i As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 5).End(xlUp).Row
    For i = laR To 1 Step -1
      If Cells(i, 5).Value = "A" Then
        Rows(i).Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: Zeilen Löschen wenn
von: Oliver
Geschrieben am: 23.02.2005 15:01:55
Hi,
das könnte so klappen:

Sub Zeile_löschen()
for i = x to y 'für x und y Zeilen-Anfang und -Ende der Spalte eintragen
if activesheet.cells(i,5)="A" then
activesheet.rows(i).delete
i=i-1
end if
next i
End Sub

Grüße
Oliver
Bild

Betrifft: AW: Zeilen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 15:30:45
Irgendwas geht noch nicht
ich habe es in ein Modul eingefügt und wollte das Makro starten doch leider ist nichts passiert.
Bild

Betrifft: AW: Zeilen Löschen wenn
von: WernerB.
Geschrieben am: 23.02.2005 15:46:06
Hallo M. Gottschalk,
welches Makro meinst Du denn (es sind ja zwei im Angebot)?
Mein Vorschlagsmakro gehört in ein normales Standard-Modul (also nicht in ein Tabellenblatt-Modul und nicht in das Modul von "DieseArbeitsmappe").

Gruß
WernerB.
Bild

Betrifft: AW: Zeilen Löschen wenn
von: M.Gottschalk
Geschrieben am: 23.02.2005 15:51:04
Ich habe es jetzt mal so probiert. Es funktioniert leider nicht!
Nur wenn ich eine Zahl löschen will geht es.
wo ist der Fehler?

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: Zeilen Löschen wenn
von: WernerB.
Geschrieben am: 23.02.2005 15:57:21
Hallo M. Gottschalk,
der "Fehler" liegt vermutlich darin, dass Du nicht mein Vorschlagsmakro verwendet hast ...
Viel Spaß beim Testen!

Gruß
WernerB.
Bild

Betrifft: AW: Zeilen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 16:01:45
Sorry aber deins hat leider auch nicht funktioniert, dann hab ich halt ein anderes
ausprobiert.
Bild

Betrifft: AW: Zeilen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 16:11:56
Hallo,
kann jemand mal schauen an was das liegt.
https://www.herber.de/bbs/user/18609.xls
Bild

Betrifft: AW: Zeilen Löschen wenn
von: M. Gottschalk
Geschrieben am: 23.02.2005 17:06:31
Danke für euere Hilfe!
Ich konnte den Fehler finden!
Gruß Martin
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen Löschen wenn"