Macro macht nicht was ich wollte! Wo ist der Bock?
21.10.2005 09:53:01
urs
In meiner Datei, habe ich in der Spalte N in den Zeilen 9 + (i+5) Werte die ich beurteilen muss.
Wenn der Wert >= 11 ist, soll der Hintergrund gelb und die Schrift rot sein.
Wenn der Wert Leider passiert gar nichts!!!!!!!
Wer weiss Rat? Wo ist bei mir der Bock?
Vielen Dank für eure Mithilfe. Es grüsst Urs
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zeile As Integer, Spalte As Integer
'Zeile = Target.Row
'Spalte = Target.Column
For i = 0 To 14
If Spalte = N And Zeile = 9 + (i * 5) Then
If Cells(Zeile, Spalte) >= 11 Then
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Patern = xlSolid
End With
If Cells(Zeile, Spalte) < 11 Then
Selection.Font.ColorIndex = xlNone
With Selection.Interior
.ColorIndex = 0
.Patern = xlSolid
End With
End If
End If
End If
Next i
End Sub
Anzeige