Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suche STRG+F per Makro

Forumthread: Suche STRG+F per Makro

Suche STRG+F per Makro
juergen
Hallo und guten Tag zusammen,
Da es in Excel eine Suchfunktion gibt die ich mit Strg+F aufrufen kann, möchte ich diese "Funktion" in leicht agbgeänderter Form nutzen. Habe jetzt schon einige Zeit nach vergleichbaren gesucht, habe leider nicht das Richtige finden können
Was ich nutzen möchte, eine Suchfunktion per "Makro (Klick)" innerhalb eines Tabellenblatts, dieses soll nach Werten in den Zellen suchen und mir den (ähnlich wie die o. g. Funktion).
Problem: In Meiner Arbeitsmappe habe ich sverweise und Indexverweise etc. , deshalb soll ausschließlich nach Werten gesucht werden! Warum ich nicht die o. g. Funktion nutze möchte! Unterschiedliche Mitarbeiter nutzen das "sog. kleine Programm" und ich möchte nicht jedesmal denen Erklären müssen, das sie nach STRG+F die Abfrage auf "Werte" umstellen müssen.
Für Eure Hilfe Danke ich Euch bereits jetzt.
Gruß
Juergen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche STRG+F per Makro
13.04.2011 16:30:51
Timo
Hallo Juergen,
vielleicht so?
Sub Alternativsuche()
Dim Suchbegriff As String
Dim Weiter
Suchbegriff = InputBox("Suchbegriff:", "Alternative Suche")
Cells.Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
End Sub
Das Makro muss dann noch einer Schaltfläche zugewiesen werden.
Gruß
Timo
Anzeige
AW: Suche STRG+F per Makro
14.04.2011 09:32:59
juergen
Hallo Timo,
vielen Dank für dein u. stehendes Makro.
Funzt soweit ganz gut, genau dass was ich suchte.
Habe nur bei Suchbegriffen die nicht gefunden werden folgende Fehlermeldung:
"Laufzeitfehler '91'"
"Objektvariable oder With-Blockvariante nicht festgelegt"
Frage: Wenn ich einen Suchbegriff eingebe, wie kann ich die o. g. Fehlermeldung verhindern?
Gruß
Juergen
Anzeige
AW: Suche STRG+F per Makro
14.04.2011 09:59:30
Timo
Hallo Juergen,
mit dieser Modifikation sollte es klappen:
Sub Alternativsuche()
Dim Suchbegriff As String
Dim Weiter
Suchbegriff = InputBox("Suchbegriff:", "Alternative Suche")
On Error GoTo fehler
Cells.Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
Exit Sub
fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
End Sub
Wenn ein Suchbegriff nicht gefunden wird, erscheint eine kleine Hinweismeldung und die

Sub wird beendet.
Gruß
Timo

Anzeige
AW: Suche STRG+F per Makro (Danke)
14.04.2011 13:45:17
juergen
Hallo Timo,
du bist spitze, vielen Dank;)
Gruß
Jürgen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

STRG+F in Excel per Makro nutzen


Schritt-für-Schritt-Anleitung

Um eine eigene Suchfunktion in Excel zu erstellen, die ähnlich wie die Standard-Suchfunktion STRG+F funktioniert, kannst du ein einfaches Makro erstellen. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code in das Modul ein:

    Sub Alternativsuche()
       Dim Suchbegriff As String
       Dim Weiter
       Suchbegriff = InputBox("Suchbegriff:", "Alternative Suche")
       On Error GoTo fehler
       Cells.Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Activate
    nochmal:
       Weiter = MsgBox("Weitersuchen?", vbYesNo, "Alternative Suche")
       If Weiter = vbYes Then
           Cells.FindNext(After:=ActiveCell).Activate
           GoTo nochmal
       End If
       Exit Sub
    fehler:
       Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Weisen Sie das Makro einer Schaltfläche zu, um es einfach auszuführen.


Häufige Fehler und Lösungen

Ein häufiger Fehler, der bei der Verwendung des Makros auftreten kann, ist der Laufzeitfehler '91', der besagt, dass eine Objektvariable nicht festgelegt wurde. Hier sind Lösungen:

  • Problem: Suchbegriff nicht gefunden.
    • Lösung: Achte darauf, dass du den On Error-Befehl korrekt verwendest, um Fehler abzufangen. Der modifizierte Code oben zeigt, wie du eine Fehlermeldung anzeigen kannst, wenn der Suchbegriff nicht gefunden wird.

Alternative Methoden

Falls das Excel-Makro nicht die gewünschte Funktionalität bietet, kannst du auch die integrierte Excel-Funktion STRG+F verwenden. Um nach Werten zu suchen, folge diesen Schritten:

  1. Drücke STRG + F, um das Suchfenster zu öffnen.
  2. Gib den Suchbegriff ein und wähle die Option „Nur Werte“ aus.
  3. Klicke auf „Weitersuchen“, um durch die Suchergebnisse zu navigieren.

Praktische Beispiele

Hier sind einige Beispiele, wie du das Makro in der Praxis nutzen kannst:

  • Mitarbeiterdaten suchen: Wenn du eine Liste von Mitarbeitern hast und nach einem bestimmten Namen suchen möchtest, kannst du das Makro verwenden, um schnell zu den relevanten Zellen zu gelangen.
  • Produktinformationen: Wenn du in einer Tabelle mit Produktinformationen nach einem bestimmten Artikel suchst, kann das Makro dir helfen, die Suche zu automatisieren.

Tipps für Profis

  • Schaltflächen anpassen: Du kannst die Schaltfläche, die das Makro ausführt, anpassen, um ein ansprechenderes Design zu erstellen.
  • Schnellzugriffe: Füge das Makro zu deiner Schnellzugriffsleiste hinzu, um es noch einfacher zugänglich zu machen.
  • Erweiterte Suche: Überlege, das Makro zu erweitern, um zusätzliche Suchkriterien wie Filteroptionen hinzuzufügen.

FAQ: Häufige Fragen

1. Warum funktioniert mein Makro nicht? Stelle sicher, dass du den Code korrekt eingefügt hast und dass du die richtigen Berechtigungen in Excel hast, um Makros auszuführen.

2. Kann ich das Makro für verschiedene Excel-Versionen verwenden? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, solange VBA unterstützt wird.

3. Wie kann ich das Makro anpassen? Du kannst Variablen und Suchkriterien im Code ändern, um das Makro an deine spezifischen Anforderungen anzupassen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige