Excel-Suche mittels VBA
02.06.2019 20:46:48
BR-MV
im hiesigen Forum hatte ich erfreuter Maßen einen Code gefunden, der für meine Zwecke gut geeignet schien und der (geringfügig angepasst) auch läuft:
Sub BegriffSuchen_ZeilenKopieren()
'https://www.herber.de/forum/archiv/176to180/177251_Suchen_per_VBA.html
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim i&, strSuchBegr$, firstAddress$, c As Range
Set wsQuelle = Worksheets("Daten")
Set wsZiel = Worksheets("Suche")
strSuchBegr = InputBox("Bitte Suchbegriff eingeben:", "Suchen", "Vorgabewert")
If Not strSuchBegr = "" Then
wsZiel.Cells.Clear
i = 22
With Intersect(wsQuelle.UsedRange, wsQuelle.Columns(1))
' If InStr(strSuchBegr, "*") = 0 Then _
' strSuchBegr = "*" & strSuchBegr & "*"
Set c = .Find(strSuchBegr, After:=wsQuelle.Cells(.Rows.Count, 1), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy _
Destination:=wsZiel.Cells(i - 19, 1)
i = i + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
Else
MsgBox "Suchbegriff: " & "" & " nicht gefunden!"
End If
End With
End If
Leider findet die Suche jedoch nur Texteingaben, aber keine Zahlen, Fließkomma- oder Datumseinträge. Ich benötige eine universell einsetzbare Suchroutine, die auch nicht nur die erste Spalte, sondern über die ersten 10 Spalten des Sheets ("Daten") Ergebnisse liefert und die betroffnen Zeilen in den Sheet "Suche" kopiert. Ich konnte dem Code nicht entnehmen, ob es an diesem oder an meinem Datensheet liegt. Haben die dort in den Spalten verwendeten Formate mehrfach überprüft und Ursache nicht finden können. Wäre schön, wenn mir ein/e Fachmann/-frau aus dem Forum Hilfe leisten könnte. Komme einfach nicht weiter.. Vielen Dank schon mal im Voraus!
VG BR-MV