Makro der Zellen einfärbt funktioniert nicht
28.06.2004 14:45:55
Carmen
habe noch ein anderes Problem. In einem Kalender werden Zellen anhand von Buchstaben farbig markiert. Kann mir jemand sagen warum die drei Möglichkeiten in meinem Makro nicht funktionieren? Ausser diesen drei fällt mir keine andere Möglichkeit mehr ein:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case "u": Target.Interior.ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Case "g": Target.Interior
.ColorIndex = 2
.Pattern = xlLightUp
.PatternColorIndex = 46
Case "b": Target.with Selection.Interior
.ColorIndex = 2
.Pattern = xlHorizontal
.PatternColorIndex = 46
End Select
End Sub
Habe diese Variante gewählt weil ich schon drei bedingte Formatierungen habe und jetzt noch einmal diese drei benötige!
Danke und Gruß
Carmen