VBA Zelleninhalt erkennen und Färben

[Spedive]

Guten Tag Leute,

ich bin relativ neu in VBA und möchte ein Makro schreiben,
welches die Zellen nacheinander überprüft.
Sobald innerhalb der Zelle die Tage Mo.-Fr vorkommen, soll die Zelle keine Füllung erhalten.
Bei Samstag und Sonntag soll die Zelle jedoch Rot färben.
Hoffe irgendwer kann mir da einen kleinen Anstoß geben.

Vielen Dank

[Jonas0806]

Hallo,

warum denn VBA? Dafür eigenet sich die bedingte Formatierung hervorragend.

Ansonsten nach diesem Schema

Code:

Option Explicit

Sub Einfaerben()
   Dim i As Long
   
   For i = 1 To 100
       With Tabelle1.Cells(i, 1)
       If .Value = "Sonntag" Or .Value = "Sonntag" Then
           .Interior.Color = vbRed
       End If
   Next i
End Sub

Gruß Jonas

[GMG-CC]

Moin,

@ Jonas: 
Du hast einen Schreibfehler drin.  -> If Sonntag or Sonntag ...  :05:

@ TE:
Da fehlen aber noch so einige Infos. In erster Linie: Was steht wirklich in den Zellen drin? Text? Ein "echtes" Datum, nur anders formatiert? Falls Text: "Sa", "Samstag" oder "Sonnabend"?
Und können sich die kalendarischen Daten auch einmal ändern? Dann muss nämlich vorher jegliche Farb-Formatierung entfernt werden ...

[Jonas0806]

@ Jonas: 
Du hast einen Schreibfehler drin.  -> If Sonntag or Sonntag ...  :05:

Hm, das lässt sich wohl schwer leugnen, Günther :19:

@TE: Die Anpassung solltest Du hinbekommen ;)

Gruß Jonas