Farbe der Nachbarzelle
08.01.2009 12:50:17
Volker
zuerst einmal wünsche ich Euch ein gutes 2009!
Nun zu meinem Problem:
Ich übergebe mittels untenstehendem Code die Daten an eine Tabelle. Funktioniert auch. Allerdings hätte ich jetzt gerne das bei nachträglich geleerter Zelle die Ursprungsfarbe wieder erscheint.
Wenn ich den Code so laufen lasse, habe ich nach Abschluß ein weißes Feld.
Frage: Wie kann ich mir die Farbe der Nachbarzelle in die zuvor gelöschte Zelle holen?
Nachbarzelle deswegen, weil die Tabelle der Übersichtlichkeit halber Zeilenweise mit zwei Farben
formatiert ist.
Hier der Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
For Each zelle In Range(Target.Address)
With zelle
Select Case .Value
Case "100"
.Interior.ColorIndex = 3
Case "200"
.Interior.ColorIndex = 4
Case "300"
.Interior.ColorIndex = 41
Case "400"
.Interior.ColorIndex = 1
Case ""
.Interior.ColorIndex = ? Hier stand mal xlnone
End Select
End With
Next zelle
End Sub
Danke und Gruß
Volker