AW: Natürlich
15.06.2005 22:35:32
Bryan
Hallo Rainer,
das ganze soll eine bedingte formatierung sein, wenn ich die eintrgungen mache soll sich die hintergrundfarbe automatisch ändern, tut sie aber nicht.
Mit diesem code funtionierts zum beispiel nur wenn ich nach meiner eingabe das Makro aufrufe und ausführen lasse. es soll aber automatisch gehen wenn ein eintrag vorgenommen wurde.
Private Sub Format_Click()
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS
If Worksheets("Fs-Planer").Cells(z, s + 3).Value = "0,1" Then
Cells(z, s + 3).Interior.ColorIndex = 36 'Hellgelb
End If
If Worksheets("Fs-Planer").Cells(z, s + 3).Value = "0,05" Then
Cells(z, s + 3).Interior.ColorIndex = 19 'Beige
End If
If Worksheets("Fs-Planer").Cells(z, s + 3).Value = "25%+10%" Then
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
End If
If Worksheets("Fs-Planer").Cells(z, s + 3).Value = "0,25" Then
Cells(z, s + 3).Interior.ColorIndex = 46 'Orange
End If
Next s
Next z
End Sub
Ich dachte mit dem Makro hier könnte ich es einfacher machen aber da geht gar nichts, kommt noch nicht mal ne Fehlermeldung.
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
If Target.Column = Worksheets("Fs-Planer").Cells(z, s + 3) Then
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
End Select
End If
Next s
Next z
End Sub
Kannst Du abhilfe schaffen?
Gruss Bryan