Formatierung wird nicht übernommen
11.05.2006 14:55:01
anoc
mit dem nachfolgenden Code wollte ich versuchen, dass bei Eingabe von einer 1 oder einer 2 in Spalte J die Spalten A:I der entsprechenden Zeile farblich geändert werden. Leider funzt der Code nicht. Hat jemand eine Idee, woran das liegen kann?
Danke für Hilfe im Voraus.
Gruß anoc
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Bereich As Range
Dim rngZelle As Range
Dim Zeile As Range
Set Bereich = ActiveSheet.Range("J2:J300")
For Each rngZelle In Bereich
Select Case rngZelle
Case "1"
Set rngZelle = ActiveCell
Range("A" & ActiveCell.Row & ":I" & _
ActiveCell.Row).Interior.ColorIndex = 4
Case "2"
Set rngZelle = ActiveCell
Range("A" & ActiveCell.Row & ":I" & _
ActiveCell.Row).Interior.ColorIndex = 45
Case Else
Set rngZelle = ActiveCell
Range("A" & rngZelle.Row & ":I" & _
rngZelle.Row).Interior.ColorIndex = xlNone
End Select
Next
End Sub
Anzeige