Hallo liebe Community,
wahrscheinlich bin ich zu blöd aus den hier bereits genannten die richtigen Informationen für mich herauszufiltern. Aber ich möchte euch kurz mal meinen Sachverhalt schildern:
Sub VersteckSpalten()
'
' VersteckSpalten Makro
'
' Tastenkombination: Strg+Umschalt+H
'
If Worksheets("Tabelle1").Cells(53, 2).Value = 25 Then
Columns("E:AT").EntireColumn.Hidden = False
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 23 Or 24 Then
Columns("AO:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 21 Or 22 Then
Columns("AK:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 19 Or 20 Then
Columns("AI:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 17 Or 18 Then
Columns("AF:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 15 Or 16 Then
Columns("AC:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 13 Or 14 Then
Columns("Z:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 11 Or 12 Then
Columns("W:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 9 Or 10 Then
Columns("T:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 7 Or 8 Then
Columns("Q:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 5 Or 6 Then
Columns("N:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 3 Or 4 Then
Columns("K:AT").EntireColumn.Hidden = True
ElseIf Worksheets("Tabelle1").Cells(53, 2).Value = 1 Or 2 Then
Columns("H:AT").EntireColumn.Hidden = True
Else
Columns("E:AT").EntireColumn.Hidden = True
End If
End Sub
Dieses Makro soll in der Tabelle 1 die Zelle (B53) überprüfen. Wenn der Wert darin kleiner als 1 ist sollen die Spalten E bis AT ausgeblendet werden.
Weiterhin sollen dann für je 2 Stufen mehr dann 3 zusätzliche Spalten eingeblendet werden. Beispiel: wenn in der Zelle B53 der Wert 1 ODER der Wert 2 steht, dann sollen die Spalten H bis AT ausgeblendet werden.
Bei meinem Makro wird aber folgende Fehlermeldung angezeigt:
Laufzeitfehler "9"
Index außerhalb des definierten Bereichs.
Wo ist mein Denkfehler?
Freue mich schon auf eure Antworten!
|