|
Hallo Alex
Hier ein Beispiel
Für Zahlen 1 bis 6 ,diese stehen für Wohnung 1 bis 6
Einzufügen Alt+F11 / Projectexplorer / Deine Tabelle
Es werden die Zeilen 11 bis 16 ein/ausgeblendet
Bei Eingabe in A1 von 1 werden 12-16 ausgeblendet 11 eingeblendet
Bei Eingabe in A1 von 3 werden 11-12 ausgeblendet 14-16 ausgeblendet 13 eingeblendet
Bei Eingabe in A1 mit dem Wort alle ,werden Zeilen 11 bis 16 eingeblendet
Daher das Wort alle im Dropdownmenue mit aufnehmen
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("A1").Value
Case 1 To 6
Rows("11:16").Hidden = True
Rows("" & Target.Value + 10).Hidden = False
Case "alle"
Rows("11:16").Hidden = False
End Select
End Sub
Viel spass damit!
Gruß Michael
|