Scrollen-Sprung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Scrollen-Sprung
von: Rolf H.
Geschrieben am: 27.05.2015 15:14:26

Hallo miteinander,
in Spalte A stehen, alphabetisch geordnet, ca. 500 Begriffe.
Wie kann ich erreichen, dass nach Eingabe von ein oder zwei Buchstaben in C5 zu einem Wort (Zelle in A) gescrollt wird, das mit diesem Buchstaben beginnt.
Gruß Rolf

Bild

Betrifft: AW: Scrollen-Sprung
von: Daniel
Geschrieben am: 27.05.2015 15:21:11
Hi
bist du sicher dass du das wirklich willsst?
denn dann wäre die Zelle C5 die du gerade bearbeitest ja nicht mehr sichtbar.
Gruß Daniel

Bild

Betrifft: AW: Scrollen-Sprung
von: Rolf H.
Geschrieben am: 27.05.2015 15:50:09
Hallo Daniel,
ich stelle mir das so vor:
In C5 gebe ich "Ro" ein, dann scrollt (oder springt) die Spalte A bis "Ro...." zu sehen ist - ich muss also nicht selbst dorthin scrollen.
Gruß Rolf

Bild

Betrifft: AW: Scrollen-Sprung
von: Daniel
Geschrieben am: 27.05.2015 16:01:35
Hi
probier mal folgenden Code im Modul des Tabellenblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Then
    On Error Resume Next
    Columns(1).Find(what:=Range("$C$5").Value & "*", lookat:=xlWhole).Select
    On Error GoTo 0
End If
End Sub
eingabe in C5 muss mit enter abgeschlossen werden.
Gruß Daniel

Bild

Betrifft: AW: Scrollen-Sprung
von: Rolf H.
Geschrieben am: 27.05.2015 16:09:31
Hallo Daniel,
funktioniert genau so, wie ich es mir vorgestellt habe - prima!
Recht herzlichen Dank für die schnelle und kompetente "Bedienung".
Gruß Rolf

Bild

Betrifft: Kleine "Ausbaustufe"...
von: {Boris}
Geschrieben am: 27.05.2015 17:33:25
Hi Rolf,
...zu der guten und bereits funktionierenden Lösung von Daniel:
Zieh Dir oberhalb der Daten eine Textbox aus den Steuerelementen auf.
Das Fenster fixierst Du dann direkt unterhalb der Textbox.
Der zur Textbox gehörende Code:

Private Sub TextBox1_Change()
Dim C As Range
Set C = Columns(1).Find(what:=TextBox1.Value & "*", lookat:=xlWhole)
If Not C Is Nothing Then
    Application.Goto C, True
End If
Set C = Nothing
End Sub
Vorteil: Jeder Tastendruck innerhalb der Textbox löst die Suche aus.
VG, Boris

Bild

Betrifft: AW: Kleine "Ausbaustufe"...
von: Rolf H.
Geschrieben am: 28.05.2015 08:20:01
Hallo Boris,
danke für den Tipp und für die Programmzeilen.
Werde die neue Version heute ausprobieren.
Gruß Rolf

 Bild

Beiträge aus den Excel-Beispielen zum Thema "SVerweis bei doppelten Werten"