Spalte nach Teilwort durchsuchen und...
12.05.2014 10:52:58
VBA
ich habe ein VBA Problem, bei dem ich absolut keinen Anfang finde, ich habe schon nach vorhandenen Codes geschaut, aber ich verstehs einfach nicht. =/
Folgendes Problem:
Ich habe eine Spalte mit den Tagen des aktuellen Monats
z.B. A1 = 01.01.2014
A2 = A1+1 (entspricht 02.01.2014)
Das Format ist als Datum angewendet:
A1 = 01. Mi
A2 = 02. Do
So....ich möchte nun, wenn in der Spalte A1:A100 der Tag Sonntag (Hier "So") vorkommt, die ganze Zeile mit der Schriftfarbe rot markiert haben. Ich habe schon versucht einen Code umzuschreiben, leider ohne Erfolg.
Hier mein Versuch:
Option Explicit
' A1:A100
Public Sub autoexec()
Dim rBereich As Range
Dim rZelle As Range
with Worksheets("Jan")
Set rBereich = Range("A1:A100")
For Each rZelle In rBereich
If Left(UCase(rZelle.Value), 2) = "So" Then
rZelle.row.Font.ColorIndex = 3
End If
Next rZelle
end with
End Sub
Ich hoffe jmd kann mir weiterhelfen, ich bin i-wie verzweifelt. :(
Anzeige