Zeilen löschen
Andreas
habe wieder einmal ein Problem,
Lösche mit diesem Makro den ich aus diesem Forum habe bestimmte Zeile,
funktioniert super.
Nun soll der Makro auch noch diese Zeilen löschen. Wenn in Spalte B nichts steht ,diese Zeile _ kompl.löschen, somit ich später diese Tabelle weiter bearbeiten kann.
Sub t()
Dim c As Range
Dim bereich As Range
Dim eingabe(10)
' löschzeilenwert festlegen
eingabe(1) = "hierLöschText1"
eingabe(2) = "hierLöschText2"
eingabe(3) = "hierLöschText3"
'nicht mehr als 10, oder Dim eingabe(10) ensprechend ändern
For j = 1 To 10
Set bereich = Sheets(1).UsedRange
For Each c In bereich
If c = eingabe(j) And eingabe(j) "" Then
reihe = c.Row
spalte = c.Column
Rows(reihe).Delete
End If
Next c
Next j
End Sub
Wäre euch sehr dankbar für die Hilfe,
Wünsche ein schönes WE.
Schöne Grüße Andreas