Einzelnen Beitrag anzeigen
Alt 13.09.2017, 18:01   #2
Luschi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Rob15k,

das kann man so machen:
Code:

        Dim n As Long
        'Anzahl der Zellen mit Inhalt im Filter
        n = WorksheetFunction.Subtotal(3, ws.AutoFilter.Range)
        'Vergleich mit Anzahl der Überschriftenzellen im Filter
        If n = ws.AutoFilter.Range.Rows(1).Cells.Count Then
           MsgBox "Filter hat Belegnummer nicht gefunden!"
        End If
Gruß von Luschi
aus klein-Paris
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten