Habe folgendes Problem. Ich möchte das ein Makro automatisch gestartet wird, wenn ein bestimmter Wert in der Zelle K3 eingetragen wird.
Ich habe 4 Makros, und je nach Wert, sollen dann bestimmte Bereiche in meiner Tabelle mit einer bestimmten Farbe eingefärbt werden.
Das hab ich jetzt direkt in meinem Arbeitsblatt eingetragen. Das Problem ist, dass das Makro immer wieder ausgeführt wird, bis sich Excel aufhängt. Manchmal kommt auch die Meldung "Nicht genügend Stapelspeicher" Laufzeitfehler 28. Private Sub Worksheet_Calculate() Select Case Range("K3").Value Case Is = 5 Switch5_Orange Case Is = 6 Switch6_Grün Case Is = 7 Switch7_Rot Case Is = False Switch_FALSE End Select End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K3")) Is Nothing Then
Select Case Target.Value
Case Is = 5
Switch5_Orange
Case Is = 6
Switch6_Grün
Case Is = 7
Switch7_Rot
Case Is = False
Switch_FALSE
End Select
End If
End Sub
Das ist jetzt zb. Mein Makro Switch5_Orange, dass mir die Bereiche vom Arbeitsblatt Orange färben soll. Die 4 Makros sind alle gleich nur sind es unterschiedliche Farben.Wenn das Makro einem Button zuordne funktioniert es einwandfrei. Nur so leider nicht.
Sub Switch5_Orange()
'
' Makro1 Makro
'
ActiveSheet.Unprotect
Range("A1:AD1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("G2:AD23").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A3:G3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A7:G8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("D7:G12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A11:E12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=3
Range("A14:F15").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A28:AD29").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("J24:AD29").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.LargeScroll ToRight:=-1
Range("F27:I27").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("F12:F28").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A4:A133").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=15
Range("B32:AD133").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("G30:I31").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("L30:AD33").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.LargeScroll ToRight:=-1
Range("A2:A4").Select
Range("A4").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("G1:J7").Select
With Selection.Font
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
End With
Range("N8:U23").Select
With Selection.Font
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.599993896298105
End With
Range("H3:I3").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("O12").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("O13").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("O14").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("O15").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("O16").Select
ActiveCell.FormulaR1C1 = "FALSE"
Range("O17").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("O18").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("B5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True_, AllowFiltering:=True
End Sub Hat einer eine Idee wo mein Fehler ist?