Scrollen-Sprung

Forumthread: Scrollen-Sprung
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Scrollen-Sprung

Scrollen-Sprung

27.05.2015 17:14:26

Rolf

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Scrollen-Sprung

27.05.2015 17:21:11

Daniel
AW: Scrollen-Sprung

27.05.2015 17:50:09

Rolf
AW: Scrollen-Sprung

27.05.2015 18:01:35

Daniel
AW: Scrollen-Sprung

27.05.2015 18:09:31

Rolf
Kleine "Ausbaustufe"...

27.05.2015 19:33:25

{Boris}
AW: Kleine "Ausbaustufe"...

28.05.2015 10:20:01

Rolf

AW: Scrollen-Sprung

27.05.2015 17:21:11

Daniel

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

AW: Scrollen-Sprung

27.05.2015 17:50:09

Rolf

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

AW: Scrollen-Sprung

27.05.2015 18:01:35

Daniel

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

AW: Scrollen-Sprung

27.05.2015 18:09:31

Rolf

Hallo Daniel,
funktioniert genau so, wie ich es mir vorgestellt habe - prima!
Recht herzlichen Dank für die schnelle und kompetente "Bedienung".
Gruß Rolf

Kleine "Ausbaustufe"...

27.05.2015 19:33:25

{Boris}

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

AW: Kleine "Ausbaustufe"...

28.05.2015 10:20:01

Rolf

Hallo Boris,
danke für den Tipp und für die Programmzeilen.
Werde die neue Version heute ausprobieren.
Gruß Rolf

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!