zum verzweifeln
20.06.2005 13:32:35
Bryan
nach langem Probieren hab ich endlich diesen code hingekriegt und er funktioniert. Ich färbe damit die zellen einer Monatsspalte wenn an besagtem Tag Ferien sind.
Leider ist gleichzeitig ein Problem aufgetreten, die Zellen besitzen noch andere Bedingte Formatierungen, wenn ich z.B. 10% eintrage färbt sich die entsprechende Zelle beige und gleichzeitig werden alle anderen Zellen wieder weiß auch die der Ferien und zwar bei allen Monatsspalten.
Kann mir jemand helfen, daß das nicht mehr passiert, die hellgrauen sollen sollen hellgrau bleiben es sei denn sie erhalten einen Eintrag der eine Formatierung verlangt.
Hier der Feriencode in einem Modul
'**************************************************************************************'
'Hier werden die Ferien eingetragen (Rheinland-Pfalz) '
'**************************************************************************************'
Sub Ferien_ein()
Dim f As Integer
Dim Anfang As Date
Dim Ende As Date
For f = 530 To 534
Anfang = Worksheets("Fs-Planer").Cells(f, 1)
Ende = Worksheets("Fs-Planer").Cells(f, 2)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
If Cells(z, s) >= Anfang And Cells(z, s) Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau
End If
Next s
Next z
Next f
End Sub
Hier meine Bedingten Formatierungen im Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
Select Case Worksheets("Fs-Planer").Cells(z, s + 3)
Case Is = "0,1"
Cells(z, s + 3).Interior.ColorIndex = 36 'Hellgelb
Case Is = "0,05"
Cells(z, s + 3).Interior.ColorIndex = 19 'Beige
Case Is = "25%+10%"
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
Case Is = "0,25"
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
Case Is = ""
Cells(z, s + 3).Interior.ColorIndex = 0 'Orange
End Select
Next s
Next z
End Sub
Bitte um Hilfe ich dreh bald durch
gruss Bryan