Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Input beenden

Input beenden
12.01.2013 22:40:23
serge
Hallo Leute
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ESC nich F2
12.01.2013 22:42:12
serge
Sorry

Cancel = True
12.01.2013 22:47:29
{Boris}
Hi Serge,
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
Cancel = True
End If
End Sub
VG, Boris

Klappt Sper Danke Boris! owT
13.01.2013 11:28:04
serge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige