Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 09:06:52
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suchen und Springen

Suchen und Springen
31.03.2021 09:37:13
blaschdr
Hallo zusammen,
ich brauche mal eure Hilfe.
Ich habe eine Tabelle mit mehreren Sheets.
Jetzt möchte ich gern über eine UserForm einen Wert über eine Textbox in der gesamten Mappe suchen und zu dem Sheet springen, wo der Wert vorkommt.
Leider habe ich noch keine so gute VBA Kenntnisse, somit habe ich auch noch keine Versuche gemacht.
Könnt Ihr mir hierzu bitte helfen?
Besten Dank schonmal
Viele Grüße
Patrick

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Springen
31.03.2021 09:52:13
Daniel
Hi
Die Funktion bietet dir Excel auch so direkt an, da musst du nichts programmieren
Einfach im Suchfenster in den Optionen die Einstellung "Durchsuchen:=Arbeitsmappe" verwenden und ggf mit "Alle suchen" sich die Treffer zur Auswahl anzeigen lassen. Dort kann man sich dann durchklicken.
Leider kann man in VBA diese Suchoption nicht verwenden.
Wenn man das haben will, muss man in einer Schleife über die Sheets gehen:
Dim WS as worksheet
dim Zelle as range
for each ws in thisworkbook.worksheets
set Zelle = ws.cells.find(what:=Textbox1.Text, lookin:=xlvalues, lookat:=xlwhole)
if not Zelle is nothing then
Application.Goto Zelle
Exit for
end if
next
Gruß Daniel

Anzeige
AW: Suchen und Springen
31.03.2021 10:00:36
blaschdr
Hey Daniel,
super vielen Dank, werde es später ausprobieren.
Dass ich das auch mit der Suchfunktion machen kann weiß ich ;), aber das ist nur mal ein Anfang., von dem eigentlichen Ziel dahinter
Mit dem Code, wenn er funktioniert, experimentiere ich nun ein bisschen, um selber auf die Lösung zu kommen, die ich möchte.
Brauchte nur einen "Denkanstoß" :).
Grüße
Patrick

Anzeige
AW: Suchen und Springen
31.03.2021 12:14:04
Patrick
Hallo Daniel,
zur Info, hat funktioniert.
Nun habe ich noch eine Frage bei dir ich an meine Grenzen stoße.
Ich möchte im Textfeld nur 4 Zeichen zulassen (2xBuchstabe, gefolgt von 2xZahl, z.B. "KW36")
nachfolgend habe ich es schon hinbekommen, nur die gewünschten Zeichen zuzulassen, aber was ich vergebens versucht habe, ist die Zeichenfolge.
Hier der Code der nur die bestimmten Zeichen zulässt.

Private Sub EingabeKW_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'Nur Zeichen: K, W, k, w, 0-9 zulassen
Case 75, 87, 107, 119, 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub


Anzeige
AW: Suchen und Springen
31.03.2021 12:32:05
Daniel
Hi
dazu musst du auch zusätzlich die Cursorposition ermitteln und aufgrund dieser entscheiden, welche Zeichen an dieser Stelle zulässig sind.
die Cursorpostition kannst du mit der Funktion SELPOS ermitteln
wenn die ersten zwei Zeichen immer KW sind, würde ich den Anwender diese gar nicht angeben lassen, sondern nur die Zahlen und das "KW" im Code hinzufügen.
Gruß Daniel

Anzeige
AW: Suchen und Springen
31.03.2021 22:23:16
Patrick
Hallo Daniel,
Hab es wie du gesagt hast gemacht und es klappt soweit
In das Feld wird nur die Zahl eingegeben und der Code überprüft dann "KW" & die Eingabe im Textfeld.
Grüße
Patrick
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Suchen und Springen in Excel: So findest du schnell Werte


Schritt-für-Schritt-Anleitung

Um in Excel einen Wert zu suchen und direkt zu der Zelle zu springen, kannst du folgende Schritte befolgen:

  1. Suchfeld aktivieren: Gehe in Excel zu Start und klicke auf das Suchfeld oben rechts.
  2. Suchoptionen einstellen: Klicke auf das Dropdown-Menü und wähle Durchsuchen:=Arbeitsmappe, um alle Blätter der Arbeitsmappe zu durchsuchen.
  3. Wert eingeben: Tippe den Wert ein, den du suchen möchtest.
  4. Ergebnisse anzeigen: Klicke auf Alle suchen, um die Treffer anzuzeigen. Du kannst dann zu den einzelnen Treffern springen.

Für eine VBA-Lösung kannst du den folgenden Code verwenden, um den gewünschten Wert zu suchen und zu der Zelle zu springen:

Dim WS As Worksheet
Dim Zelle As Range
For Each WS In ThisWorkbook.Worksheets
    Set Zelle = WS.Cells.Find(What:=Textbox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Zelle Is Nothing Then
        Application.Goto Zelle
        Exit For
    End If
Next

Häufige Fehler und Lösungen

  • Fehler: Das Suchfeld zeigt keine Ergebnisse an.

    • Lösung: Stelle sicher, dass du Durchsuchen:=Arbeitsmappe ausgewählt hast und der gesuchte Wert exakt eingegeben wurde.
  • Fehler: Der VBA-Code springt nicht zur richtigen Zelle.

    • Lösung: Überprüfe, ob der gesuchte Wert tatsächlich in der Tabelle vorhanden ist und ob die Find-Methode korrekt verwendet wird.

Alternative Methoden

Wenn du ein interaktives Suchfeld in Excel einfügen möchtest, kannst du eine UserForm verwenden. Hierbei kannst du eine TextBox verwenden, um die Eingabe zu ermöglichen, und einen Button, um den Suchprozess auszulösen. Dies ist besonders nützlich, wenn du eine spezifische Eingabevalidierung benötigst, wie z.B. nur bestimmte Zeichen zuzulassen.


Praktische Beispiele

  1. Excel Wert suchen und in Zelle springen: Wenn du den Wert "KW36" suchst, kannst du die oben genannten Schritte nutzen, um direkt zu der Zelle zu springen, die diesen Wert enthält.
  2. Excel an den Anfang der Tabelle springen: Wenn du das Suchfeld nutzt und den Wert suchst, kannst du auch schnell zu den ersten Zellen springen, indem du die Ergebnisse durchgehst.

Tipps für Profis

  • Nutze das Suchfeld nur Ergebnisse anzeigen, um die Suche noch effizienter zu gestalten.
  • Experimentiere mit den VBA-Funktionen, um ein maßgeschneidertes interaktives Suchfeld in Excel zu erstellen.
  • Berücksichtige die Cursorposition, wenn du die Eingabe im Textfeld validierst, um sicherzustellen, dass nur die gewünschten Formate eingegeben werden.

FAQ: Häufige Fragen

1. Wie kann ich ein interaktives Suchfeld in Excel einfügen?
Du kannst eine UserForm erstellen und eine TextBox sowie einen Button hinzufügen, um die Eingaben zu verarbeiten.

2. Kann ich auch nach Teilwerten suchen?
Ja, du kannst die LookAt-Option in der Find-Methode anpassen, um nach Teilwerten zu suchen. Stelle sicher, dass du xlPart statt xlWhole verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige