beim verlassen der Zelle zuletzt aktive auswerten
03.08.2006 17:09:10
SteffenS
ich habe ein Problem, und zwar möchte ich beim verlassen der Zelle die gerade Aktive Zelle anpassen.
Ich habs mit:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case ActiveCell.Value
Case "U"
UCase (ActiveCell.Value)
With ActiveCell.Value
.Interior.ColorIndex = 5
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
End With
Case "S"
UCase (ActiveCell.Value)
With ActiveCell.Value
.Interior.ColorIndex = 5
.Font.ColorIndex = 2
.HorizontalAlignment = xlCenter
End With
Case "K"
UCase (ActiveCell.Value)
With ActiveCell.Value
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.ColorIndex = 3
.HorizontalAlignment = xlCenter
End With
Case Else
With ActiveCell.Value
.Font.ColorIndex = 1
.Interior.ColorIndex = xlNone
.HorizontalAlignment = xlRight
End With
End Select
probiert, aber da wird nur die danach aktuelle angepaßt.
Wie kann ich es aber erreichen, dass die Zelle in der gerade ein Wert eingegeben wurde entsprechend angepaßt wird?
Danke Euch im Voraus
MFG
Steffen Schmerler