Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zeilen Löschen wenn"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren