VBA Suchen,kopieren
12.01.2019 14:24:16
Julian
Ich möchte in einer Tabelle auf Tabellenblatt 2 einen Wert in Spalte A suchen und diesen dann mit den Werte in der gleichen Zeile in Spalte B und C nach Tabellenblatt 1 in die Spalten A B C kopieren.
Bis jetzt habe ich folgenden Code der funktioniert, finde aber keine Möglichkeit mir automatisch die Werte in B und C mit zu kopieren, Ich hoffe mir kann jemand helfen.
Sub SuchenKopieren()
Dim Suche As Range
Dim Eingabe As String
Eingabe = Application.InputBox("Eingabe des Monats")
Set Suche = Worksheets("Tabelle2").Range("A1:A5").Find(Eingabe)
Cells(Suche.Row, Suche.Column).Copy Destination:=Worksheets("Tabelle1").Range("A1")
End Sub
Grüße Julian