15.11.2016, 22:49
Hallo!
Habe einen Code der soll nur in der Spalte F von Zelle F10:F50 was machen.
Problem er arbeitet die Ganze Spalte durch.
Meine Frage wo liegt der Fehler im Code?
Kann einer Helfen?
Habe einen Code der soll nur in der Spalte F von Zelle F10:F50 was machen.
Problem er arbeitet die Ganze Spalte durch.
Meine Frage wo liegt der Fehler im Code?
Code:
Sub Zellenfarbe()
Dim AktuellesDatum As Date
Dim Zelle As Range
Dim wksTab As Worksheet
AktuellesDatum = Date
'SpalteDurchlaufen
For Each Zelle In Range("F10:F50" & Cells(Rows.Count, "F").End(xlUp).Row)
If Zelle <> "" Then
If Zelle <= Date Then 'Werte Vergleichen
Zelle.Offset(0, -4).Interior.ColorIndex = 3 'Zelle rot einfärben
ActiveSheet.Tab.ColorIndex = 3 'Register rot einfärben
Else
tage = (Zelle - Date) 'Tage berechnen
If tage <= 7 Then 'Abfrage 7 Tage vorher
regname = ActiveSheet.Name 'Name aus aktiven Register auslesen
regfarbe = ActiveSheet.Tab.ColorIndex 'Farbe aus aktiven Register auslesen
Zelle.Offset(0, -4).Interior.ColorIndex = 6 'Zelle gelb einfärben
Else
Zelle.Offset(0, -4).Interior.ColorIndex = 2 'Zelle keine farbe
End If
End If
End If
If Zelle.Offset(0, -1) <> "" Then 'wenn in Zelle daneben kein Werte dann
Zelle.Offset(0, -4).Interior.ColorIndex = 3 'Zelle rot einfärben
End If
Zelle.Select 'nur zur ansicht
Next
End Sub