Zeile löschen, wenn in Spalte A best. Wert enthalt
27.06.2006 18:36:10
Peter
Ich suchen einen Makro, der mir in jeder Tabelle einer beliebigen Datei alle Zeilen löscht, die in Spalte A einen bestimmten Eintrag, z.B. die Zahl 1 enthält.
Das Herzstück dazu fehlt mir. Wie muss untenstehender Code ergänzt werden (=Definition, nach welchem Eintrag in Spalte A gesucht wird und dann der entsprechende Löschbefehl.
Danke für jede Unterstützung.
Peter
Sub Zeile_loeschen()
Dim x As Byte, zelle, Bereich$, ende$, neu$
For x = 1 To Sheets.Count
ende = Sheets(x).Range("A1").Cells(Rows.Count, 1).End(xlUp).Address
Bereich = "A1:" & ende
with Zelle
BEDINGUNG, WELCHE Zeilen gesucht werden;
LOESCHBEFEHL (Delete entire.row ?)
End With
Next
Next x
End Sub