ich rufe mit einem Makro aus einer Liste Rechnungsdatensätze ab:
Selection.AutoFilter Field:=20, Criteria1:=Rechnungsnr
Selection.AutoFilter Field:=21, Criteria1:="nein"
If ActiveSheet.AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows.Count kleiner 2 Then
ActiveSheet.ShowAllData
Sheets("Eingabe").Select
Range("f2").Select
MsgBox ("Keine offenen Positionen!")
Das klappt auch wunderbar wenn die Rechnung mehr als eine Position hat. (Dann macht er weiter und bringt die Datensätze)
Wenn ich keine Position habe sagt er eben "Keine offenen Positionen!"
Wenn ich aber nur einen Datensatz habe, bringt er mir auch "Keine offenen Positionen!"
Ich habe schon statt kleiner 2 alles mögliche versucht, finde aber keine Lösung.
Weiß jemand einen Rat?
Vielen Dank und viele Grüße Lutz