Zeilen per VBA einblenden/ausblenden
24.06.2014 08:28:17
Markus
ich habe hier aus dem Forum einen Codesnippsel genommen und das Makro erweitert.
Hier wird per Dropdown etwas ausgewählt. Abhängig der Zahl werden Zeilen eingeblendet und ander ausgeblendet:
Sub Makro10()
Dim i As Double
For i = 10 To 11
If Cells(4, 6) = 1 Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
For i = 12 To 13
If Cells(4, 6) = 2 Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
For i = 14 To 15
If Cells(4, 6) = 3 Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Next
End Sub
"Test 1" kann jedoch mehrmals vorkommen. In dem Fall sollen auch die mehrfach vorkommenden Zeilen eingeblendet werden.
Wie könnte ich das elegant lösen? :-)
Viele Grüße
Markus