Ich habe eine Exceltabelle, Spalte A ist leer, Spalte B, C und D sind belegt. In Spalte E ist jeweils ein Maschinentyp, z.B. Roboter, Entlader usw. vermerkt. Ich möchte nun per VBA und nicht per Autofilter eine UserForm erstellen. Diese soll für jeden Maschinentyp eine Checkbox enthalten. Checkbox 1 steht dann für den Typ „Roboter“, ist diese angeklickt sollen auf dem Tabellenblatt nur noch die Zeilen eingeblendet werden, die in Spalte E den Typ „Roboter“ stehen haben. Dies soll für alle 6 Maschinentypen gemacht werden. Außerdem sollen auch Kombinationen verschiedener Typen möglich sein (z.B. Roboter und Entlader), also Mehrfachnennungen. Mit „OK“ wird dann bestätigt.
Wäre nett, wenn mir jemand weiterhelfen kann. Hab das Problem schon mal gepostet, leider hat mir folgender Code nichts gebracht:
Private Sub CheckBox1_Click()
If CheckBox1 Then
Dim LR&, R&, AV, rng As Range
LR = Range("E" & Rows.Count).End(xlUp).Row
Set rng = Range("A1:E" & LR)
AV = rng.Value
rng.Rows.Hidden = True
Application.ScreenUpdating = False
For R = 1 To LR
If AV(R, 5) = "A" Then
Rows(R).Hidden = False
End If
Next
Application.ScreenUpdating = True
Cells(1, 1).Select
Else
ActiveSheet.Rows.Hidden = False
Cells(1, 1).Select
End If
End Sub
Danke schon mal!!
|