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

Eingabefelder - festlegen

Eingabefelder - festlegen
30.06.2004 13:58:37
Peter
In Zelle A2 gebe ich ein Suchkriterium ein. Das Ergebnis wir in den Zellen
A3 - A8 ausgebegen. Die Daten werden aus einer Tabelle darunter ausgesucht.
Um die Suche zu starten muß ich entern. Der Curser springt in die Zelle
A3. Gibt es eine möglichkeit, daß der Curser in Zelle A2 bleibt, und ich sofot
das nächste Suchkriterium eingeben kann - enter - das Ergebnis steht in A3-A8
usw.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabefelder - festlegen
Ulf
Du musst unter Extras|Optionen|Bearbeiten den Haken bei
"Markierung nach drücken der Entertaste...."
rausnehmen.
Ulf
AW: Eingabefelder - festlegen
Reinhard
Hi Peter,
klicke mit rechts unten auf den Tabellennamen, dann auf "Code anzeigen" und kopier dort den nachfolgenden Code hinein.
Gruß
reinhard

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Target.Select
End Sub

AW: Eingabefelder - festlegen
Jan
Hi Peter,
Schalte unter Extra-Optionen-Register Optionen das Kontrollkästchen aus
für "Markierung nach drücken der Eingabetaste" verschieben.
Jan
Anzeige
AW: Eingabefelder - festlegen
Jan
Hi Peter,
Schalte unter Extra-Optionen-Register Optionen das Kontrollkästchen aus
für "Markierung nach drücken der Eingabetaste" verschieben.
Jan
AW: Eingabefelder - festlegen
30.06.2004 14:08:34
Harald
Hallo Peter
1. Anrede wie Hallo, etc und Schlußgruß sind hier durchaus erwünscht.
2. rechte Maustaste auf betreffenden Tabellenblattreiter. Code anzeigen aufklicken und diesen Code einfügen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("a2")
'ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 0).Select
Next RaZelle
'ActiveSheet.Protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruß
Harald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige