ich habe folgendes Makro (dank netter Hilfe hier im Forum) im Einsatz. Funktioniert auch bestens, nur habe ich das Problem, daß ich bei Änderungen in anderen Dateien eine Fehlermeldung bekomme: Laufzeitfehler '9' Index außerhalb des gültigen Bereichs.
Für Case 1 habe ich z.B. eine bestimmte Zahl hinterlegt und bei Case 10 ist die Zelle leer oder ein "-".
Wenn ich nun in eine ganz andere Tabelle irgendwo einen Wert eingebe, bekomme ich obige Meldung und wenn ich dann auf Debuggen gehe, markiert er unter Case 10 die Zeile. Kann das daran liegen, daß Zelle F5 nicht genau definiert ist (Datei- oder Tabellenname)?
Kann mir jemand helfen? Ich bin ratlos!!
Private Sub Worksheet_Calculate()
' Nimm den Wert des geänderten Bereiches
Select Case [F5].Value
' Vergleiche mit ZAHL, nicht String
Case 1
Sheets("Eingabe").Columns.Hidden = False ' Blende alle Spalten ein
Sheets("Eingabe").Columns("K:L").EntireColumn.Hidden = True
Sheets("Eingabe").Columns("P:Q").EntireColumn.Hidden = True
Sheets("Eingabe").Columns("U:V").EntireColumn.Hidden = True
Sheets("Eingabe").Columns("Z:GF").EntireColumn.Hidden = True
Case 10
Sheets("Eingabe").Columns.Hidden = False 'Blende alle Spalten ein
End Select
End Sub
Gruß
Markus