Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Suche über mehrere Tabellenblätter zzgl. Ausgabe
#1
Hallo zusammen.

Vielleicht kann mir jemand von Euch helfen.

Ich habe eine Excel geschrieben mit Parkerlaubnissen. Dabei wird das Parken den verschiedenen Berufsgruppen zugewiesen.
Nun habe ich eine Suchfunktion gefunden und über VBA eingerichtet.

Wie schaffe ich es noch zu sagen, dass Excel mir alle gefundenen Werte separat anzuzeigen und zu listen hat?
Aktuell sehe ich nur auf welchem Tabellenblatt und in welcher Reihe der Wert steht. Gerne möchte ich aber das Ergebnis mit allen Daten sehen. Confused

Vielen Dank Euch.

Hier der Code:

Sub SuchenÜberMehrereDateien()
Dim such, wb, sh, gefunden, msg, treffer As Boolean
such = InputBox("Suchbegriff?")
For wb = 1 To Workbooks.Count
For sh = 1 To Workbooks(wb).Sheets.Count
With Workbooks(wb).Sheets(sh)
Set gefunden = .Cells.Find(what:=such, lookat:=xlWhole)
If Not gefunden Is Nothing Then
firstaddress = gefunden.Address
treffer = True
msg = such & " gefunden in " & vbCrLf & _
Workbooks(wb).Name & vbCrLf & _
Workbooks(wb).Sheets(sh).Name
MsgBox msg & vbCrLf & gefunden.Address(0, 0)
Do
Set gefunden = .Cells.FindNext(After:=.Range(gefunden.Address))
If gefunden.Address = firstaddress Then Exit Do
MsgBox msg & vbCrLf & gefunden.Address(0, 0)
Loop
End If
End With
Next
Next
If Not treffer Then MsgBox such & " nicht gefunden"
End Sub
Antwortento top
#2
Hi

schau dir mal die Datei von @Case an.
https://www.clever-excel-forum.de/Thread...e-ausgeben

Gruß Elex
Antwortento top
#3
Danke Elex, da schaue ich heute Abend mal rein. 19
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste