Problem mit ausblenden
29.08.2004 11:11:23
Dennis
ich habe 2 Gruppenfelder und möchte, das je nachdem was ausgewählt wurde, bestimmte Bereiche ausgeblendet werden.
So sieht die Formel bei einem Gruppenfeld aus:
___________________
Sub ausblenden()
Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"
End Select
ActiveSheet.Protect "passwort", UserInterfaceOnly:=True
Sheets(1).Columns.EntireColumn.Hidden = False
Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
Sheets(1).Rows("150:65536").EntireRow.Hidden = True
End Sub
_____________________
das funktioniert auch super!
Nun möchte ich aber, dass je nachdem was im 2ten Gruppenfeld ausgewählt wurde, Zeile 1 und dann bei Optionsfeld 1 von Zeile 44 bis Zeile 135 ausgeblendet wird, bei Optionsfeld 2 ab Zeile 90 bisZeile 135 ausgeblendet wird und bei Optionsfeld 3 ab Zeile 150 bis 65536 ausgeblendet wird.
Ich habe schon versucht, folgendes einfach in den ersten Code mit einzufügen:
Select Case Range("J17")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"
aber das funktionierte so nicht.
Hoffe, das Ihr so nett seid, mir dabei behilflich zu sein.
MfG, Dennis