Farbe zwischenspeichern
18.01.2006 11:22:55
Marco
Ich habe ein Problem un zwar.
Sub Farbe()
If ActiveCell.Count Then 'Alle ausgewählten Zellen werden überprüft.
With Selection.Interior
.ColorIndex = Farbe 'Die Farbe wird zugewiesen.
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub
Soll dies durchgeführt werden.
".ColorIndex = Farbe" funktioniert jedoch nicht, obwohl ich im UserForm die
Variable "Farbe" als Public deklariert habe.
Was muss ich nun ändern, damit die Zellen, die ich ausgewählt habe sich in die Farbe einfärben, die im User Form deklariert ist?
Anzeige