Hallo Gemeinde,

bei einer Tabelle stehen in der Spalte F und G verschiedene Zahlenwerte.
Wenn nun der Wert 0 (Null) in den besagten Spalten auftaucht, dann soll die ganze Zeile gelöscht werden.

Ich als totaler Makro-Dummy bekomme es zeitlich einfach nicht hin, mir ein Makro zu erstellen. Bitte um freundliche Hilfestellung.

Frage hat sich erledigt. Ein Freund (Excelvirtuose) hat sich meinem Problem angenommen und mir unter die Arme gegriffen.

Hallo planobogen:

Sub ZeilenMitWertNull_Loeschen()
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

With ActiveSheet
'letzte Zeile bestimmen
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
'Von unten nach oben durchsuchen
For Lrow = Lastrow To 1 Step -1
If .Cells(Lrow, "F").Value = "0" Or .Cells(Lrow, "G").Value = "0" Then .Rows(Lrow).Delete
Next Lrow
End With

With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With

End Sub


Gruß
Klaus

Upps, da bin ich wohl 10 Minuten zu spät gekommen.
Dann ist es für's Archiv ...

Gruß
Klaus

Hallo Klaus, danke für das Makro,

aber wenn in der Spalte F Null steht und in der Spalte G Eins, dann löscht Dein Makro trotzdem die ganze Zeile raus, soll aber stehenbleiben.
Sorry, konntest Du ja nicht wissen, daß auch unterschiedliche Werte drin stehen können, da Du keine Excel-Tabelle zur Ansicht erhalten hast.

Trotzdem vielen Dank für Deine Hilfe.

Hallo,
nun, dann ändere einfach diese Zeile in

If .Cells(Lrow, "F").Value = "0" And .Cells(Lrow, "G").Value = "0" Then .Rows(Lrow).Delete

Gruß
Klaus