ich habe ein Makro erstellt, das mir in einer anderen Datei in einer Spalte (hier C) Werte sucht und die Treffer-Zeile in diese Datei kopieren soll. Problem daran ist, dass bei Teilsuche (Suchbegriff: *4) die Einschränkung auf die Spalte nicht funktioniert (Das ganze Blatt wird durchsucht).
Die Eingabe der Begriffe erfolgt über Userform. (Es können auch mehrere Begriffe gesucht werden).
Hier das Makro für einen Begriff:
' Suche nach Angebotsnummer
Dim rng As Range, rngSource As Range, rngStart As Range
Dim varInput As Variant
Dim iRow As Integer
varInput = varInputAngebotsnummer ' Suchbegriff ändern (wird für verschiedene Begriffe verwendet)
If varInput = False Then Exit Sub
With Workbooks(sFN).Sheets(Daten)
Set rng = ActiveSheet.Columns(3).Find( _
What:=varInput, LookAt:=xlPart, LookIn:=xlValues) ' Columns ändern
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!"
Exit Sub
End If
Set rngStart = rng
Set rngSource = rng.EntireRow
Do
Set rng = Cells.FindNext(After:=rng)
If rng.Address = rngStart.Address Then Exit Do
Set rngSource = Application.Union(rngSource, rng.EntireRow)
Loop
End With
With ThisWorkbook.Sheets("Suchen")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
rngSource.Copy .Cells(iRow, 1)
'.Columns.AutoFit
End With
Gruß Peter