Hallo,
Ich habe einen Dienstplan mit Makros (VBA) von einem (nun Rente gegangenen) Kollegen erhalten. Er hatte je nach Dienst (Frühdienst = FD, Spätdienst = SD usw) der jeweiligen Zelle eine Hintergrundfarbe gegeben. Z.B. sobald FD eingetragen wurde, wurde die Zelle mit "FD" im Hintergrund türkis.
Der Code ist folgender:
'bedingte formatierung für die Tageszellen
With .Range("H13", Cells(lrow, dp_stsp + pup_dp_sp_fix * 2 + pup_dp_yr_1_days + pup_dp_yr_2_days + 1))
.FormatConditions.Delete
End With
With .Range("H13", Cells(lrow, dp_stsp + pup_dp_sp_fix + pup_dp_yr_1_days + pup_dp_yr_2_days + 1))
fz = .FormatConditions.Count
fz = 1
.FormatConditions.Add Type:=xlTextString, String:="Fd", TextOperator:=xlContains
With .FormatConditions(fz)
.Interior.ColorIndex = 20 '43 '10
.Font.ColorIndex = 1 '2
.Font.Bold = True
End With
Nun ist aber die festgelegte Hintergrundfarbe nicht mehr gewünscht und soll je nach Bedarf per Hand (über Füllfarbe) eingefärbt werden. Ich habe im o.g. Code die Zeile vom Interior.ColorIndex rausgenommen und nun sind alle Zellen weiß unterlegt.
Färbe ich diese Zellen nun mit einer beliebigen Füllfarbe ein, speichere und mache das Dokument zu, ist die Füllfarbe beim nächsten Öffnen rausgenommen und die Zelle wieder weiß. Ich bin auch schon die Format Conditions durchgegangen, finde aber keinen Code, der beim Öffnen des Dokuments die Hintergrundfarben wieder rausnimmt... das Türkis, wenn man FD eingetragen hat, blieb doch auch beim nächsten Öffnen drin.
Ich steh total auf dem Schlauch bzw. bin dann doch zu wenig VBA erfahren und hoffe das mir jemand helfen kann?
Vielen Dank
Mojili