Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

feststellen aktive zelle; relativ dazu selectieren

feststellen aktive zelle; relativ dazu selectieren
04.02.2004 02:05:32
Markus
habe folgendes problem
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: feststellen aktive zelle; relativ dazu selectieren
04.02.2004 02:10:13
markus
wurde eben von wem gefragt
muss wohl folgendes sein
ActiveCell.Offset(0, 1).select
funktionert jedenfalls

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige