17.08.2020, 14:30
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.
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
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.
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