Nochmal eine Frage zu If Then (HerbertH)
25.12.2004 12:12:55
Erwin
Entschuldige bitte, aber ich habe noch eine Frage, du hast mir vorher die Prozedur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "Text1" Then
ActiveCell.Offset(0, 13).Value = 100
ElseIf ActiveCell.Value = "Text2" Then
ActiveCell.Offset(0, 13).Value = 200
End If
End Sub
geschickt.
Klappt auch wunderbar, aber ich gebe zuerst „Text1“ ein und beim Verlassen der Zelle tut sich nichts, erst wenn ich wieder auf die Zelle klicke kommt der Wert in die 13. Spalte.
Gibt es eine Möglichkeit, dass gleich beim Verlassen der Zelle der Wert eingetragen wird?
Gruß
Erwin