Office: Mal wieder Zeilen löschen

Tag zusammen,
ich denke solche Themen gibts häufiger, aber ich finde nicht wirklich was ich brauch: :-?
Gesamtsumme EUR
Spalte A Spalte B Spalte C ...
Firma Rch. vom Rch. Nr. ...
Ammon Isolierdämmstoffe 02.06.2006 260402
Aral Direkt GmbH 09.06.2006 646701
Aral Direkt GmbH 19.06.2006 651160
Aral Direkt GmbH
Arena Betriebs GmbH
Atelco Event GmbH 05.06.2006 45789
Bertsch GmbH, Xaver
Blitz Kurier GmbH

Wie muß ein Makro aussehen, das folgendes tut:
:?:
Wenn Spalte A (ab Zeile 4) =Text, prüfe ob Einträge vorhanden in z.B. Spalte B und C, wenn nicht lösche die betreffende Zeile.

Ich hab schon mit SpecialCells experimentiert, kriegs aber nicht so hin.
Danke für Hilfe :mrgreen:
Tama

 

Hallo,

das Makro in ein Modul einfügen. In Spalte A als letzten Eintrag "Ende" vornehmen und dann A4 auswählen und Makro starten. Gelöscht werden alle Zeilen, in denen in die Spalten B und C leer sind. Wenn in B oder C etwas drinsteht, bleibt die Zeile erhalten.

Sub test()

For x = 1 To 100000

If ActiveCell.Offset(0, 1).Range("a1").Value <> "" Or ActiveCell.Offset(0, 2).Range("a1").Value <> "" Then
ActiveCell.Offset(1, 0).Range("a1").Select
End If
If ActiveCell.Value = "Ende" Then
End
End If
If ActiveCell.Offset(0, 1).Range("a1").Value = "" And ActiveCell.Offset(0, 2).Range("a1").Value = "" Then
Selection.EntireRow.Delete
End If

Next x
End Sub

 

:lol: Danke. Danke.

Hab noch zwei Sachen geändert:
Range("A4").Select
springt auf A4
und statt Ende hab ich den letzten Firmenname genommen, sonst sortiert er mir ENDE auf "E".
Aber es funzt. Danke. :mrgreen:
Gruß Tama