Zellfarbe mit "*" ergänzen
28.01.2008 08:38:49
Thomas
mit folgendem Makro wird eine oder mehrere Zellen gefärbt:
Private Sub CommandButton1_Click()
'Gruen
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = 4
End With
End Sub
Gleichzeitig soll noch ein "*" ( Sternchen) hinzugefügt werden.
Kann mir jemand helfen?
Danke
Thomas