feststellen aktive zelle; relativ dazu selectieren
04.02.2004 02:05:32
Markus
untenstehender code fügt bei doppelclick ein stern in die gewünschte zelle.
ich will das nach einfügen des Zeichen sich "der Curser(denke aktive zelle) eine spalte nach rechts verschiebt um eine weitere eingabe entgegenzunehmen
danke markus
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' * in die Zelle und 1 Zelle nach rechts
Dim RaBereich As Range
Set RaBereich = Range("F7:F21,J7:J21,Q7:Q22,U7:U22")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
' Abbruch, wenn Aktion nicht im Zielbereich
Application.EnableEvents = False
Cancel = True
If Target.Value = "*" Then
Target.Value = ""
Else
Target.Value = "*"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Anzeige