Hilfe bei AutoFilter Bedingung
08.01.2019 17:15:15
Christoph
ich hab nun in so vielen Foren gesucht aber irgendwie nix gefunden dazu.
Ich möchte einen CommandButton erstellen, der alle Autofilter zurücksetzt und mir mit einer MessageBox anzeigt, welche Zelle die nächst-freie ist. So weit so gut.
Was ich nicht hinbekomme: wenn KEIN Autofilter gesetzt ist, lande ich immer im VBA Debugger Modus weil wohl noch die Bedingung fehlt "wenn kein AutoFilter gesetzt ist" ->dann mach einfach nix. (Teile mir aber dennoch die Zeilennummer mit).
Ich bitte um eure Hilfe. Hier der Code:
Private Sub CommandButton1_Click()
ActiveSheet.ShowAllData
Dim lngLast As Long
lngLast = Cells(Rows.Count, 2).End(xlUp).Row + 1
MsgBox "Nächste freie Zelle für die Eingabe ab Spalte B ist: " & lngLast
End Sub
Anzeige