Input beenden
12.01.2013 22:40:23
serge
mit Escape kann aus dem Input-Modus aussteigen!
Bei meinem Code bekomme ich das nicht hin:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("B5:U23")
If Not Intersect(Target, rng) Is Nothing Then
rng.Interior.ColorIndex = xlNone
Cells(Target.Row, 2).Resize(, rng.Columns.Count).Interior.ColorIndex = 33
End If
End Sub
Ich habe es mit Sendkeys (F2) und {F2}probiert ohne Erfolg.
Wer weiss Rat
Danke Serge