Clever-Excel-Forum

Hallo, kann mir jemand helfen?

Sub Eingang_Ausgang()
'
' Eingang_Ausgang Makro
'
'
Sheets("AUSGANG").Unprotect Password:="5"
    Sheets("AUSGANG").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.EntireRow.Select
Sheets("EINGANG").Select
    Sheets("EINGANG").Unprotect Password:="5"
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("A1:AT739").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("BELEG"), Unique:=False
        Range("A65536").End(xlUp).Offset(1, 0).Select

Danach sollen nur die Zeilen selektiert werden in der die Spalte "AI" nicht leer ist.
End Sub

Hallöchen,

im Prinzip so, falls dort Werte stehen. Bei Formeln statt xlCellTypeConstants dann xlCellTypeFormulas

Range("A1:A100").SpecialCells(xlCellTypeConstants).EntireRow.Select

Hallo, vielen Dank für die Hilfe. Es funktioniert super! Sorry für die verspätete Antwort.