dies ist mein Code
Ich nutze ein ToggleButton um mir die Spalten in die Listbox anzuzeigen
nach normaliegen drücken soll er die Filterung wieder zurück setzten
Private Sub ToggleButton2_Click()
With ToggleButton2
.Caption = "Fristen " & IIf(.Value = True, "schliessen", "anzeigen")
End With
If ToggleButton2.Value = True Then
ActiveSheet.Range("K:K").AutoFilter Field:=13, Criteria1:="(k:k-HEUTE()0)"
'Startroutine, wird ausgefhrt bevor die Eingabemaske angezeigt wird
Dim lZeile As Long
'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
CheckBox1 = ""
TextBox11 = ""
CheckBox2 = ""
TextBox13 = ""
CheckBox3 = ""
TextBox15 = ""
CheckBox4 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die berschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
If Tabelle1.Rows(lZeile).Hidden = False Then ListBox1.AddItem Trim(CStr(Tabelle1.Cells( _
lZeile, 1).Value))
lZeile = lZeile + 1 'N_chste Zeile bearbeiten
Loop
End If
If ToggleButton2.Value = False Then
ActiveSheet.Range("K:K").AutoFilter Field:=13
'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
CheckBox1 = ""
TextBox11 = ""
CheckBox2 = ""
TextBox13 = ""
CheckBox3 = ""
TextBox15 = ""
CheckBox4 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die berschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
If Tabelle1.Rows(lZeile).Hidden = False Then ListBox1.AddItem Trim(CStr(Tabelle1.Cells( _
lZeile, 1).Value))
lZeile = lZeile + 1 'N_chste Zeile bearbeiten
Loop
End If
End Sub