ich habe das Problem, dass das Ergebnis der Suche (VBA) zu viele Zeilen hat. Jetzt möchte ich eine Userform erstellen.
Ist das möglich und kann ich den VBA-Code verwenden?
Sub Suchfunktion()
Dim lng As Long
Dim wks1 As Worksheet
Dim i
Dim SN
Dim Suche
SN = Application.InputBox("Bitte Suchbegriff eingeben!")
Set wks1 = Worksheets("Abnahme")
lng = ThisWorkbook.Sheets("Abnahme").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lng
If InStr(LCase(wks1.Cells(i, 1).Value), LCase(SN)) Then
Suche = Suche & i & " Zeile " & Chr(13) & wks1.Cells(i, 1).Value & Chr(13)
End If
Next
MsgBox Suche
End Sub
Vielen Dank.