Nach Spezialfilter Zeilen selektieren

[DK84]

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

[schauan]

Hallöchen,

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

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

[DK84]

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