Ich möchte das in Spalte F im Tabellenblatt1 nach Zahlen oder Buchstaben (kann auch ein Wort sein) gesucht wird. Die gefundenen Zeilen sollen anschliessend von Spalte A bis F ins Tabellenblatt2 ab Zeile 2 untereinander kopiert werden. Die Suche kann in einer Combobox1 die sich auf einer UserForm befindet ausgewählt werden. Nun habe ich das Problem, dass wenn ich zum Beispiel einen Buchstaben "A" auswähle, auch die Zeilen welche sich zum Beispiel "RA" drin befinden kopiert. Dies sollte eigentlich nicht sein!
Die Spalte F wo sich der Inhalt für die ComboBox befüllen befindet , ändert sich nach Anwender auch ständig. Also ist zum Beispiel der Buchstabe "A" einmal in Zeile 1 und ein andermal in Zeile 12. Jedoch immer in Spalte F.
Hat da jemand eine Idee?
Da wäre mein Code, der fast funktioniert! :-)
Dim rng As Range
Dim Suchen As String
Dim sFirstAdress As String
Application.ScreenUpdating = False
Suchen = ComboBox1
Set rng = Worksheets("Tabelle1").Range("F:F").Find(Suchen)
If rng Is Nothing Then
MsgBox "Lagerort " & Suchen & " nicht gefunden!", vbInformation
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Tabelle1").Range("F:F").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address sfirstaddress
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
Gruss Daniel