AW: Optionsfelder auswerten?
19.08.2004 12:02:20
Holger
Hallo Dennis,
Sub ausblenden()
Select Case Range("A1")
Case 1
s = "D": s1 = "I" 'Spalten bis D und ab I werden ausgeblendet (also E:H sind sichtbar)
Case 2
s = "H": s1 = "M" 'Spalten bis H und ab M werden ausgeblendet (also I:L sind sichtbar)
Case 3
s = "L": s1 = "Q"
Case 4
s = "P": s1 = "U"
Case 5
s = "X": s1 = "AC"
End Select
'in s1 ist also die Spalte, ab der nach rechts ausgeblendet wird
Sheets(2).Columns.EntireColumn.Hidden = False
Sheets(2).Columns("A:" & s).EntireColumn.Hidden = True
'steht in s z.B. D, ergibt das A:D, es werden also die Spalten A:D ausgeblendet
Sheets(2).Columns(s1 & ":IV").EntireColumn.Hidden = True
'steht in s1 z.B. M, ergibt das M:IV, es werden also die Spalten M:IV ausgeblendet
Sheets(2).Rows("1:21").EntireRow.Hidden = True
Sheets(2).Rows("123:65536").EntireRow.Hidden = True
End Sub
melde Dich ruhig, falls es noch Fragen gibt.
Holger