Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
wenn Checkbox aktiv dann Inputbox Filtern
07.09.2006 13:04:07
achim
Hallo Excel Freunde
habe schon mal versuchr aber leider
bekomme das nicht ganz ohne fehlermeldung hin
wer kann mal schauen

Private Sub CommandButton2_Click()
Dim pNr1 As Variant
Range("F4").Select
pNr1 = InputBox("Tag")
With Range("F4")
Sheets.(ActiveSheet.CheckBoxAlle.Value) = True Then
.AutoFilter Field:=6, Criteria1:="=" & pNr1
.AutoFilter Field:=9, Criteria1:="<>"
Range("F4").Select
End If
End With
End Sub

danke achim h.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
fehler selbst behoben
07.09.2006 13:34:32
achim
Selbst getestet und fehler gefunden

Private Sub CommandButton2_Click()
Dim pNr1 As Variant
Range("F4").Select
With Range("F4")
If CheckBoxAlle.Value = True Then
pNr1 = InputBox("Tag")
.AutoFilter Field:=6, Criteria1:="=" & pNr1
.AutoFilter Field:=9, Criteria1:="<>"
Range("F4").Select
End If
End With
End Sub

Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige