Office: Zellinhalt suchen und gefundene Zelle ausgeben

Eledris · 13. September 2005

Hallo zusammen,

ich habe jetzt folgenden Code zum Inhalt einer Zelle suchen gefunden :
Code:

Set rngzelle = wksstmcredit.Columns("A:A").Find( _
What:=strSearch, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch wie kann ich jetzt die Zelle, in der der Wert gefunden wurde mir "ausspucken" lassen ? Und wie kann ich dann anweisen, danach weiterzusuchen und die naechste Zelle auch wieder auszugeben, bzw. wie kann ich am besten ein Schleife bauen, die mir die Anzahl der angegeben Zellen ausgibt und dann die erste , bzw. letzte gefunde nochmal extra in einer variable speichert ?

Also am Ende hätte ich gerne folgende Variabeln :

A. Anzahl der gefundenen Zellen
B. Erste gefundene Zelle
C. Letzte gefundene Zelle

Thanks !!

Eledris

:)

IRamses · 15. September 2005

Hallo

das ist ein Beispiel das du anpassen kannst.

Code:

Sub Var_MultiSeek()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und kopiert die
'gefundene Zeile in eine zu definfierende Ergebnistabelle
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
'Suchbegriff
Dim sFind As Variant
Dim cr As Long, tarWks As String
'Name_der_Zieltabelle
'Bitte Anpassen !!!!
tarWks = "Tabelle3"
cr = 65536
If Worksheets(tarWks).Cells(cr, 1) = "" Then
cr = Worksheets(tarWks).Cells(cr, 1).End(xlUp).Row
End If
If cr = 0 Then cr = 1
'Suchbegriff definieren
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
'Suchbegriff auf Zelle definieren
'sFind = Worksheets("Tabelle1").Range("A1")
For Each wks In Worksheets
If wks.name = tarWks Then Exit Sub
Set rng = wks.Cells.Find(What:=sFind, _
LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
'Für die Automation kann die "If"-Anweisung auskommentiert werden
'---
If MsgBox("Suchbegriff: " & sFind & ",gefunden in " _
& wks.name & ", " & rng.Address, vbYesNo + vbQuestion, "Weitersuchen ?") = vbNo Then Exit Sub
'---
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(cr)
cr = cr + 1
Set rng = wks.Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
NextStart:
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eledris · 17. September 2005

Erstmal danke für die Antwort.

Genau den Wert, den die Messagebox ausgibt, den brauche ich.
Also wenn ich das richtig sehe ist das rnd.address. Wie kann ich nun den ersten Wert speichern und dann weitersuchen, bis er beim ersten ankommt und den letzten mir ausgeben lassen. Oder kann ich mir die Anzahl der matches angeben ? Da ich ja alles sortiert habe, kann ich dann von der ersten ja die Anzahl von Zeilen draufaddieren und lande quasi in der letzten Zeile, in der der Match gefunden wurde. Dann kann ich hoffentlich per Summenformel mir eine Zeile erstellen , die die gewünschten Summen für mich hat.

Welche Schleife wäre hier sinnvoll und wie ist der Syntax dafuer ?

Ich möchte, dass die Funktion mir das ganze Sheet durchkämmt und wenn ein Begriff gefunden wird, mir die Anzahl oder den Bereich angibt, indem die Matches sind ( stehen ja alle untereinander ).

Dann kann ich per Summenformel (hoffentlich) die Zeilen zusammenfassen.

Ich hab leider keine Ahnung und bin fuer jeden Tipp dankbar.

Ich denke der folgende Code ist für mich sinnvoll:

Code:

Sub Var_MultiSeek()

Dim rng As Range
Dim sAddress As String
Dim sFind As Variant

If sFind = "" Then Exit Sub
sFind = Worksheets("Tabelle1").Range("A1")

Set rng = wks.Cells.Find(What:=sFind, _
LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
rng.Address

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IRamses · 17. September 2005

Hallo

Ich denke nicht dass ich die Formel in Chinesisch, Japanisch oder sonst einer exotischen Fremdsprache geschrieben habe.

"...Welche Schleife wäre hier sinnvoll und wie ist der Syntax dafuer..."

Genau das steht in meinem Beispiel

"...mir die Anzahl oder den Bereich angibt,..."

Genau das macht mein Beispiel

"...Dann kann ich per Summenformel..."
Vergiss es, addiere anstelle der MsgBox in meinem Beispiel einfach die Werte in einer Variablen und schreib den Variableninhalt dann in eine Zelle

Die Anzahl der gefundenen Zellen erhältst du ebenfalls mit einer Variablen die als Zähler funktioniert.

Schechner · 30. August 2013

sry falsch

birog59 · 12. Januar 2021

von IRamses

Hallo

das ist ein Beispiel das du anpassen kannst.

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub Var_MultiSeek()
'by Ramses
'Sucht in der gesamten Mappe nach einem Begriff und kopiert die
'gefundene Zeile in eine zu definfierende Ergebnistabelle
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String
'Suchbegriff
Dim sFind As Variant
Dim cr As Long, tarWks As String
'Name_der_Zieltabelle
'Bitte Anpassen !!!!
tarWks = "Tabelle3"
cr = 65536
If Worksheets(tarWks).Cells(cr, 1) = "" Then
cr = Worksheets(tarWks).Cells(cr, 1).End(xlUp).Row
End If
If cr = 0 Then cr = 1
'Suchbegriff definieren
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
'Suchbegriff auf Zelle definieren
'sFind = Worksheets("Tabelle1").Range("A1")
For Each wks In Worksheets
If wks.name = tarWks Then Exit Sub
Set rng = wks.Cells.Find(What:=sFind, _
LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
'Für die Automation kann die "If"-Anweisung auskommentiert werden
'---
If MsgBox("Suchbegriff: " & sFind & ",gefunden in " _
& wks.name & ", " & rng.Address, vbYesNo + vbQuestion, "Weitersuchen ?") = vbNo Then Exit Sub
'---
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(cr)
cr = cr + 1
Set rng = wks.Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
NextStart:
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo IRamses, es ist die Funktion die ich schon suche, übrigens mit kleiner Änderung.
Nämlich wie kann ich mehrere Wörter mit "ODER" als Suchkriterien angeben, und nur in einem Spalte suchen und nach erfolgreichen Suche die ausgewählte Zeilen komplett löschen.

danke um die Hilfe

Gabor

birog59 · 12. Januar 2021

Hallo, IRamses, kann man unter Do_Loop schleife eine weitere Erase Befehl durchführen lassen, somit die Kopierte Zeile aus dem Tabelle1 gelöscht wird.
Danke

Gabor

von IRamses

Hallo

Ich denke nicht dass ich die Formel in Chinesisch, Japanisch oder sonst einer exotischen Fremdsprache geschrieben habe.

"...Welche Schleife wäre hier sinnvoll und wie ist der Syntax dafuer..."

Genau das steht in meinem Beispiel

"...mir die Anzahl oder den Bereich angibt,..."

Genau das macht mein Beispiel

"...Dann kann ich per Summenformel..."
Vergiss es, addiere anstelle der MsgBox in meinem Beispiel einfach die Werte in einer Variablen und schreib den Variableninhalt dann in eine Zelle

Die Anzahl der gefundenen Zellen erhältst du ebenfalls mit einer Variablen die als Zähler funktioniert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JaSt · 17. Juli 2018

Hallo,
ich finde die dargestellte Lösung sehr gut und würde sie gerne auf mein Problem erweitern.
IRamses vielleicht hast Du einen passenden Tipp.
An Stelle der Eingabe des Suchbegriffs über die Box würde ich gerne auf eine Liste an Suchbegriffen Spalte A Zeile 2-40000 zurückgreifen.
Ziel wäre, dass das Programm für jeden Suchbegriff alle gefundenen Einträge in ein separates Tabellenblatt kopiert.

Vielen Dank im Voraus!

Office: Zellinhalt suchen und gefundene Zelle ausgeben

Zellinhalt suchen und gefundene Zelle ausgeben

Zellinhalt suchen und gefundene Zelle ausgeben

Zellinhalt suchen und gefundene Zelle ausgeben

Zellinhalt suchen und gefundene Zelle ausgeben

Zellinhalt suchen und gefundene Zelle ausgeben - Similar Threads - Zellinhalt gefundene Zelle

Teil des Zellinhaltes abfragen in VBA

Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe

Zellinhalt als Datei im Notepad speichern

Filtern nach Wert in Zellinhalt

VBA Hilfe für Zahlen eingeben und addieren + zellinhalt löschen

Zahlen eingeben und addieren + zellinhalt löschen

Zellinhalt suchen und gefundene Zelle markieren