vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
Private Sub Workbook_Open()
'Alte "Abholbereit" löschen
Dim Zeile As Long, wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Eingabe")
Application.ScreenUpdating = False
Application.StatusBar = "Alte Zeilen ""Abholbereit"" werden gelöscht"
With wks
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 4 Step -1
If .Cells(Zeile, 9).Value = "Abholbereit" And _
.Cells(Zeile, 7).Value > 0 And .Cells(Zeile, 7).Value
Private Sub Workbook_Open()
'Alte "Abholbereit" nach Tabelle 3 verschieben
Dim Zeile As Long, wks As Worksheet, wksZiel As Worksheet
Set wks = ThisWorkbook.Worksheets("Eingabe")
Set wksZiel = ThisWorkbook.Worksheets("Tabelle3")
Application.ScreenUpdating = False
Application.StatusBar = "Alte Zeilen ""Abholbereit"" werden gelöscht"
With wks
For Zeile = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 9).Value = "Abholbereit" And _
.Cells(Zeile, 7).Value > 0 And .Cells(Zeile, 7).Value = 4 Then
.Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlShiftUp
End If
End With
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub