Finden und kopieren
02.03.2020 10:04:29
IceTea
hoffe ihr könnt mir bei meinem Problem weiterhelfen.
Ich würde gern Daten auf einer Tabelle (anderes Datenblatt) suchen und in eine vorgefertigte Tabelle (auch ein anderes Datenblatt) ausgeben lassen. Bei Suchtreffer soll die ganze Zeile ausgegeben werden. Auf Anhieb hatte es geklappt aber irgendwie klappt es nicht mehr. .
Sub FindUndCopy()
Dim rng As Range
Dim eingabe As Long
Dim sfirstadress As String
eingabe = MusterMax
Set rng = Worksheets("Tabelle2").Range("B1:C10").Find(eingabe)
If rng Is Nothing Then
MsgBox "Wert " & eingabe & " nicht gefunden"
Else
sfirstadress = rng.adress
Do
rng.EntireRow.Copy
Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Tabelle2").Range("B1:C10").FindNext(rng)
Loop While Not rng Is Nothing And rng.adress sfirstadress
End If
End Sub