ich habe ein Problem mit kopieren und einfügen in vba
Also, der Benutzer wird mit einer Eingabe aufgefordert, Zahlen oder Buchstaben einzugeben (zb. IA ).
Ich meiner Liste befinden sich:
IA11011 Adresse1 Wareneingang 1
IA11021 Adresse2 Wareneingang 1
MA13101 Adresse0 IA111 fertig 0
MA13111 Adresse1 Wareneingang 1
MA11111 Adresse1 Wareneingang 1
Wenn der Benutzer mit der Eingabe dann alle Zeilen mit IA (egal was vor oder nach IA steht) filtern will, sollen eben alle Zeilen wo IA enthalten ist ( auch in Zeile 3, es kann also auch hinten stehen ) kopiert werden und in eine andere Tabelle (Tabelle1 (Sheet1 ist die erste in meinem Fall )) eingetragen werden. Wenn ich mein Programm aber ausführe kopiert es jedoch nur die erste Ziele mit IA und schreibt es in die andere Tabelle, und hört dann einfach auf. Ich glaube ich bräuchte eine Do loop, aber ich habe keine Ahnung wie ich das anstellen soll. Könnte mir bitte jemand helfen, danke. Hier mein Code
Sub new1()
Dim rng As Range
Dim loDeinWert As String
Dim sFirstAdress As String
loDeinWert = InputBox("Abfrage", "Eingabe", Environ("a1")) ' Eingabe
Set rng = Worksheets("Sheet1").Range("A:AA").Find(loDeinWert)
If rng Is Nothing Then
MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
sfirstaddress = rng.Address
rng.EntireRow.Copy
Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp) _
.Offset(2, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Sheet1").Range("A:AA").FindNext(rng)
End If
End Sub