ich habe gestern schon mal geschrieben wegen dem Löschen von Zeilen, habe aber den Vorschlag nicht umsetzen können. Habe mir selber was zusammengesammelt, was leider nicht recht funktionieren will. Der folgende Code steht jetzt in einer Userform, welche eine ComboBox1 und einen CommandButton1 enthält:
Private Sub CommandButton1_Click() 'Löschen
Dim Zeile As Long, ZeileLetzte As Long
ZeileLetzte = Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Rows.Count, 2).End(xlUp).Row
For Zeile = 1 To ZeileLetzte
If ComboBox1.Value = Worksheets("Tabelle2").Cells(Zeile, 2).Value Then
Worksheets("Tabelle2").Cells(Zeile, 2).Select
Worksheets("Tabelle2").ActiveCell.EntireRow.Delete
' Application.ScreenUpdating = True
End If
Next Zeile
Useform1.Hide
End Sub
Habe in der For-schleife auch schon diesen Code versucht:
'Worksheets("Tabelle2").Rows(Zeile).Select oder
Selection.EntireRow.Delete
Rows(Zeile).EntireRow.Delete
oder diesen: 'Sheets("Tabelle2").Select oder
Rows("Zeile:Zeile").Select
Selection.Delete Shift:=xlUp
Was ist falsch frage ich mich?Grüße, Axel