Hallo liebe Community,

ich habe mich vor kurzem dazu entschlossen in VBA einzusteigen. 

Nun möchte ich, auch im Hinblick auf die Arbeit, nach einem Begriff suchen und die darunter gelisteten Werte kopieren und einfügen. Pro Suchbegriff sind 3 Spalten mit Daten vorhanden.

Erläuterung: In Tabelle1(Overview), Zelle B2 steht der Suchbegriff. Der gesuchte Begriff soll nun in Tabelle2(Daten) in Zeile 1 gesucht werden und bei einem Treffer, die darunter gelisteten Daten, in den sich in Tabelle1 befindlichen Zieltabelle kopiert/eingefügt werden.

Der Code zum Finden des Suchbegriffes ist bereits fertig. Nur muss der Code so angepasst werden, dass alle 3 Spalten unter dem gesuchten Begriff kopiert und eingefügt werden. 

Da komme ich nicht weiter.

Ich freue mich, sollte jemand bemühen mir zu helfen und bedanke mich im Voraus.

Gruß

Florian

Option Explicit

Public Sub Suchen_kopieren()
Dim strSuche As String, raFund As Range, loLetzte As Long

strSuche = Worksheets("Overview").Range("B2")

If Not strSuche = vbNullString Then
    With Worksheets("Daten")
        Set raFund = .Rows(1).Find(what:=strSuche, LookIn:=xlValues, lookat:=xlWhole)
        If Not raFund Is Nothing Then
            Worksheets("Overview").Range("B5:D15").ClearContents
            loLetzte = .Cells(.Rows.Count, raFund.Column).End(xlUp).Row
            .Range(.Cells(2, raFund.Column), .Cells(loLetzte, raFund.Column)).Copy
            Worksheets("Overview").Range("B5").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
        Else
            MsgBox "Suchbegriff " & strSuche & " nicht vorhanden."
        End If
    End With
End If
         
End Sub