Markierte Zellen einfärben u. Wert reinschreiben
01.07.2002 20:43:22
Hannes
ich habe hier ein kleines Programm, welches alle markierten Zellen einfärbt und einen Wert reinschreibt. Geht das mit dem Wert reinschreiben auch anders? Denn gerade bei recht großen Bereichen ist es nicht besonders schnell... Weiters würde es toll sein, wenn abgefragt wird, ob bereits ein bestimmter Wert drinsteht z.B. "Vormittag", "Nachmittag", "Urlaub"... und nur dann die Zellen eingefärbt werden und der (neue) Wert eingetragen wird. Damit könnte man bewirken, dass nicht überall auf dem Tabellenblatt beliebig eingefärbt werden kann... :-)
Grüße Hannes
Private Sub CommandButton1_Click()
Dim hannes As Range
Selection.Interior.ColorIndex = 4
For Each hannes In Selection
hannes.Value = "Urlaub"
Next
End Sub