habe von Marc gestern folgenden Code bekommen:
Private Sub Worksheet_Calculate()
' Ist die Aktion überhaupt nötig (Änderung in "A2") ?
' Nimm den Wert des geänderten Bereiches
Select Case [A2].Value
' Vergleiche mit ZAHL, nicht String
Case 1
' Blende alle Spalten ein
Sheets("Tabelle3").Columns.Hidden = False
' Blende Spalten D:CW aus
Sheets("Tabelle3").Columns("D:CW").EntireColumn.Hidden = True
Case 2
' Blende alle Spalten ein
Sheets("Tabelle3").Columns.Hidden = False
' Blende Spalten E:CW aus
Sheets("Tabelle3").Columns("E:CW").EntireColumn.Hidden = True
Case 3
' Blende alle Spalten ein
Sheets("Tabelle3").Columns.Hidden = False
' Blende Spalten F:CW aus
Sheets("Tabelle3").Columns("F:CW").EntireColumn.Hidden = True
Case 4
' Blende alle Spalten ein
Sheets("Tabelle3").Columns.Hidden = False
' Blende Spalten G:CW aus
Sheets("Tabelle3").Columns("G:CW").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "A2"
[A2].Select
Der klappt auch wunderbar wenn er nur in einer Tabelle die Spalten ausblenden soll. Was ist aber nun wenn er in ZWEI Tabellen gleichzeitig die Spalten ausblenden soll?
Habe mir dazu folgenden Code überlegt, der aber nicht funktioniert!
Private Sub Worksheet_Calculate()
' Ist die Aktion überhaupt nötig (Änderung in "L14") ?
' Nimm den Wert des geänderten Bereiches
Select Case [L14].Value
' Vergleiche mit ZAHL, nicht String
Case 1
' Blende alle Spalten ein
Sheets("Data Input Cost").Columns.Hidden = False
' Blende Spalten H:DA aus
Sheets("Data Input Cost").Columns("H:DA").EntireColumn.Hidden = True
Case 2
' Blende alle Spalten ein
Sheets("Data Input Cost").Columns.Hidden = False
' Blende Spalten I:DA aus
Sheets("Data Input Cost").Columns("I:DA").EntireColumn.Hidden = True
Case 3
' Blende alle Spalten ein
Sheets("Data Input Cost").Columns.Hidden = False
' Blende Spalten J:DA aus
Sheets("Data Input Cost").Columns("J:DA").EntireColumn.Hidden = True
Case 1
' Blende alle Spalten ein
Sheets("Data Input Sales").Columns.Hidden = False
' Blende Spalten H:DA aus
Sheets("Data Input Sales").Columns("H:DA").EntireColumn.Hidden = True
Case 2
' Blende alle Spalten ein
Sheets("Data Input Sales").Columns.Hidden = False
' Blende Spalten I:DA aus
Sheets("Data Input Sales").Columns("I:DA").EntireColumn.Hidden = True
Case 3
' Blende alle Spalten ein
Sheets("Data Input Sales").Columns.Hidden = False
' Blende Spalten J:DA aus
Sheets("Data Input Sales").Columns("J:DA").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "A2"
[L14].Select
End Sub