Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

bestimmte Zeile oder Spalte nach Wort durchsuchen

Forumthread: bestimmte Zeile oder Spalte nach Wort durchsuchen

bestimmte Zeile oder Spalte nach Wort durchsuchen
28.07.2006 08:30:14
stefanseevetal
Haalo liebe Excel-Experten!
ich habe mal wieder eine kleine Frage:
Ich möchte eine bestimmte Zeile in einem Tabellenblatt per Makro nach einem bestimmten Wort durchsuchen.
Die Suchfunktion im genrellen habe ich schon, ich weiß nur nicht, wie ich dort eine Eingrenzung auf eine bestimmte Zeile oder Spalte einfügen kann:
Dim suchbegriff As String, zelle
Dim z As Long
suchbegriff = "Walter"
Set zelle = ActiveSheet.Cells.Find(suchbegriff1)
If Not zelle Is Nothing Then
z = zelle.Row + 1
...
End If
...
Wie kann ich jetzt Eingrenzen, so dass nicht mehr dass ganze Tabellenblatt, sondern nur noch z.B. Zeile 2 nach diesem Suchbegriff durchsucht wird?
Danke und Gruß,
Stefanseevetal
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeile oder Spalte nach Wort durchsuchen
28.07.2006 08:45:26
harry
Hallo Stefan,
du musst statt ActiveSheet.Cells..." einfach
statt Cells Deinen Bereich angeben,
also z.B. "ActiveSheet.Range("A2").EntireRow..."
Gruß
Harry
Danke
28.07.2006 09:09:46
stefanseevetal
Hallo Harry!
Vielen Dank für die Info! Nun funktioniert es!
Gruß,
Stefanseevetal
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Zeile oder Spalte in Excel nach einem Wort durchsuchen


Schritt-für-Schritt-Anleitung

Um in Excel eine bestimmte Zeile oder Spalte nach einem Wort zu durchsuchen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

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

  2. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (dein Dokument)“ klickst und „Einfügen“ > „Modul“ auswählst.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Sub SucheNachWortInZeile()
       Dim suchbegriff As String
       Dim zelle As Range
       Dim z As Long
    
       suchbegriff = "Walter" ' Dein Suchbegriff
       Set zelle = ActiveSheet.Range("2:2").Find(suchbegriff) ' Durchsuche Zeile 2
    
       If Not zelle Is Nothing Then
           z = zelle.Row + 1
           MsgBox "Das Wort wurde gefunden in Zeile: " & z
       Else
           MsgBox "Das Wort wurde nicht gefunden."
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

Jetzt wird die Zeile 2 auf das Wort „Walter“ durchsucht.


Häufige Fehler und Lösungen

  • Fehler: „Method 'Range' of object 'Worksheet' failed“

    • Lösung: Stelle sicher, dass du den richtigen Bereich angibst. Zum Beispiel ActiveSheet.Range("2:2") für die gesamte Zeile 2.
  • Fehler: „Das Wort wurde nicht gefunden.“

    • Lösung: Überprüfe, ob der Suchbegriff korrekt geschrieben ist und ob er im angegebenen Bereich vorhanden ist.

Alternative Methoden

Wenn du Excel ohne VBA verwenden möchtest, kannst du die integrierte Suchfunktion nutzen:

  1. Drücke STRG + F, um das Suchfenster zu öffnen.
  2. Gib den Suchbegriff ein.
  3. Klicke auf „Optionen“ und wähle „In Zeile“ oder „In Spalte“ aus, um deine Suche zu beschränken.

Diese Methode ist nützlich, wenn du schnell ein Wort in einer bestimmten Zeile oder Spalte finden möchtest, ohne ein Makro zu erstellen.


Praktische Beispiele

Hier sind einige Beispiele, wie du das Makro anpassen kannst:

  • Durchsuche eine bestimmte Spalte:

    Set zelle = ActiveSheet.Range("A:A").Find(suchbegriff) ' Durchsuche Spalte A
  • Durchsuche einen spezifischen Bereich:

    Set zelle = ActiveSheet.Range("A2:B10").Find(suchbegriff) ' Durchsuche den Bereich A2 bis B10

Diese Anpassungen erlauben es dir, gezielt nach einem Wort in einem bestimmten Bereich zu suchen.


Tipps für Profis

  • Nutze die Find-Optionen, um die Suche zu verfeinern. Du kannst nach Groß-/Kleinschreibung suchen oder nach Übereinstimmungen am Wortende filtern.
  • Speichere deine Makros in einer separaten Datei, um sie in anderen Arbeitsmappen wiederverwenden zu können.
  • Experimentiere mit weiteren VBA-Funktionen, um die Suche zu automatisieren und zu erweitern.

FAQ: Häufige Fragen

1. Kann ich das Makro anpassen, um mehrere Zeilen zu durchsuchen?
Ja, ändere einfach den Bereich im Code, z.B. ActiveSheet.Range("2:10"), um die Zeilen 2 bis 10 zu durchsuchen.

2. Was ist der Unterschied zwischen Cells und Range?
Cells bezieht sich auf eine bestimmte Zelle, während Range einen Bereich von Zellen beschreibt. Nutze Range, um gezielt Zeilen oder Spalten anzugeben.

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