ich habe folgendes Makro, für die Anzeige der Daten in der Listbox:
In der Tabelle wird "Sauber" selektiert und es werden nur die Daten mit der Auswertung der Spalte5 "01" angezeigt, leider in der Listbox alle.
Welchen Fehler habe ich gemacht?
Private Sub OptionButton2_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect (getStrPasswort)
Range("A3:AB3").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
ComboBox1.ListIndex = -1
ListBox1.RowSource = ""
Range("E7").Select
Selection.AutoFilter Field:=5, Criteria1:="01", Operator:=xlAnd
Label6.Caption = ActiveSheet.Range("J2").Value
If OptionButton2 = True Then
OptionButton2.ForeColor = &HFF& 'Rot
' OptionButton1.ForeColor = &H8000& 'Grün
OptionButton6.ForeColor = &H80000012 'Schwarz
OptionButton1.ForeColor = &H80000012 'Schwarz
OptionButton3.ForeColor = &H80000012 'Schwarz
OptionButton4.ForeColor = &H80000012 'Schwarz
OptionButton5.ForeColor = &H80000012 'Schwarz
End If
'---------------- hier filterung etc. -----------------------------------
Dim ze As Long
Dim z As Long
If ActiveSheet.Range("J2").Value = 0 Then
UserForm4.ListBox1.RowSource = ""
Else
Range("B3").Select
UserForm4.ListBox1.RowSource = ""
z = Range("a3").End(xlDown).Row
ze = FindFirstRow_in_Filter(Range("C4:U" & z)) 'so Richtig, es muß am Anfang "Function-Makro" stehen ?
With ListBox1
.ColumnCount = 21
.RowSource = "A" & ze & ":U" & z
.ColumnWidths = "0,8cm;0cm;2,5cm;0,8cm;0,8cm;3,5cm;2,3cm;2,3cm;2,5cm;2cm;0cm;0cm;0cm;1,8cm;0cm;0cm;2cm;0cm;0cm;0cm;2cm;"
End With
'' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
'' :=True, Password:=getStrPasswort
Application.ScreenUpdating = True
End Sub
Gruß Walter