Code Ewrgänzung gesucht
14.11.2005 15:29:26
Glen
Ich wollte folgenden Code dahingehend erweitern, dass die activen Zellen nicht bloss die Farbe, sonden auch z. B. einen Bustaben (in diesem Beispiel ein "F" für Ferien) übernommen wird.
Kennt hierzu jemand die Lösung?
Sub Ferien()
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Select
End Sub
Allen Helfen schon mal besten Dank im voraus!
Freundliche Grüsse
Glen