mit folgendem Code wird in der Tabelle1 einen bestimmten Wert gesucht. Mit der MsgBox bekomme ich aktuell angezeigt in welcher Zeile dieser Wert steht, z.B. Zeile 17. Könnt Ihr mir bitte dabei helfen, das Makro mit folgender Funktion zu erweitern.
Es sollen jetzt in die Tabelle1, in diese Zeile z.B. 17 (das Ergebnis der Suche) die Werte aus Tabelle "Daten" von AE3 bis AV3 übertragen werden.
Vielen Dank für Eure Unterstützung. Gruß, Marko
Sub Suche()
Dim c As Range
With Sheets("Tabelle1").Range("A2:A1000")
Set c = .Find(Sheets("Daten").Range("AE3"), LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox c.Row
End If
End With
End Sub