Zellen aus Zeile in verschiedene Zellen kopieren
09.01.2018 20:09:40
Roli
ich möchte den Wert in Tabelle1,C1 in Tabelle2, Spalte A suchen.Wenn gefunden
sollen die Werte der ersten 6 Spalten der Fundzeile in verschiedene 6 Zellen in Tabelle1 kopiert werden.
Bei meinem Versuch wird nur die Spalte F in alle Zellen von Tabelle1 kopiert.
Was mach ich denn falsch ?
Sub test()
Dim suchen As Range
Dim sn As Range
Set suchen = Sheets("Tabelle1").Cells(1, 3)
With Worksheets("Tabelle2")
Set sn = .Range(.Cells(1, 1), .Cells(20, 1)).Find(What:=suchen, LookIn:=xlValues, lookat:= _
xlWhole)
End With
For Each zell In Sheets("Tabelle2").Range("A" & sn.Row & ":" & "F" & sn.Row)
Sheets("Tabelle1").Range("E1,F2:G3,F5") = zell
Next
End Sub
Gruß Roli