Suchergebnis in eine neue Mappe packen
28.08.2015 18:33:51
Andrea
seit zwei Tagen versuche ich eigentlich etwas leichtes zu schaffen.
Nachdem ich die Combobox auslese, möchte ich diese Variable in meine Suche aufnehmen und dann das Suchergebnis in eine neue Mappe schreiben.
Leider schaffe ich es nur, das Ergebnis in einem neuen Worksheet zu erzeugen.
Ich habe schon so viele Beiträge und Recherchen durchgeführt, dass ich eher einen Knoten im Kopf habe als die Lösung. Ich bin sicher, ihr könnt mir in Sekunden helfen.
Hier schon mal das, was ich bereits geschrieben habe:
Sub UserForm_Initialize() 'Im Userform gibt es ein paar Comboboxen, die die gleichen Werte haben
On Error Resume Next
Dim j As Integer
For j = 0 To 11
UserForm1.Controls("ComboBox" & j).RowSource = "Tabelle!A1:A4" 'Füllung der ComboBoxen
UserForm1.Controls("ComboBox" & j).ListIndex = 0
Next j
End Sub
Private Sub CommandButton1_Click() 'Suchen Button
Dim firstAddress As String
Dim rng As Range
Dim ws As Worksheet
Dim ErgBlatt As Worksheet
Dim zeile As Long
Const ErgBlattName As String = "Ergebnisse"
Dim wbk As Workbook
Set ErgBlatt = Worksheets.Add
ErgBlatt.Name = ErgBlattName
With Worksheets("Tabelle2").Range("A1:I5000")
Set rng = .Find(UserForm1.ComboBox1.Value, lookat:=xlPart, LookIn:=xlValues) 'Suche
If Not rng Is Nothing Then
firstAddress = rng.Address
Do
zeile = zeile + 1
rng.EntireRow.Copy ErgBlatt.Cells(zeile, 1) 'Funzt super, soll aber in ein neues _
Workbook
Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.Address firstAddress
End If
End With
End Sub
Danke für Antworten!!