VBA-Cellhintergrund farblich ändern

Forumthread: VBA-Cellhintergrund farblich ändern
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: VBA-Cellhintergrund farblich ändern

14.08.2005 14:29:16

Michel

Hallo,
versuch gerade einen Urlaubsplaner zu kreieren und habe folgendes Problem:
Über eine UF wird der Urlaubszeitraum eingegeben, beim schließen wird in den entsprechenden Zellen "U" eingetragen. Soweit alles ok.
Nun würde ich gerne aber den Zellhintergrund zusätzlich ändern wollen,z.B. in Rot. Wie müßte der Befehl dann ergänzt werden?
Cells(z, s) = "U"
Vielen Dank für eure Hilfe
Michel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Cellhintergrund farblich ändern

14.08.2005 15:00:14

Bernd
AW: VBA-Cellhintergrund farblich ändern

14.08.2005 15:19:57

Michel
AW: VBA-Cellhintergrund farblich ändern

14.08.2005 16:15:49

Bernd
AW: VBA-Cellhintergrund farblich ändern

14.08.2005 16:37:20

PeterW

AW: VBA-Cellhintergrund farblich ändern

14.08.2005 15:00:14

Bernd

hi michael,
mache es doch über
format --- bedingte formatierung
zellwert gleich "u" hintergrund rot einstellen.
gruss bernd

AW: VBA-Cellhintergrund farblich ändern

14.08.2005 15:19:57

Michel

Hi Bernd,
natürlich geht das auch über bedingte Formatierung!
Hätte aber schon gerne gewußt, wie die Codeergänzung
ausgesehen hätte.
Gruß
Michel

AW: VBA-Cellhintergrund farblich ändern

14.08.2005 16:15:49

Bernd

hi michael,
im code so:



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Target.Cells.Count > 1 Then Exit Sub

    Select Case Target.Value

        Case "U"

        Target.Interior.ColorIndex = 3 'hintergrundfarbe rot

    End Select

End Sub

gruss benrd

AW: VBA-Cellhintergrund farblich ändern

14.08.2005 16:37:20

PeterW

Hallo Michael
With Cells(z, s)
.Value = "U"
.Interior.Colorindex = 3
End With
Gruß
Peter