Ich suchte eine Möglichkeit ein per Dropdown angewähltes Feld und einige dazugehörige Zellen in eine Tabelle gleichen Namens zu kopieren. Das soll bei jedem Makroaufruf in die nächste leere Zellen geschehen.
Bei der Suche bin ich hier im Forum auf einen 5 Jahre alten Artikel gestoßen. Der Code funktioniert soweit. Nur wird immer der alte Wert überschrieben anstatt bei einem erneuten Aufruf die darunterliegenden Zellen zu befüllen !
Könnte mir bitte jemand einen Tip geben was falsch ist ?
Sub Eintragen()
Dim zelle As Range
Dim r As Long
Dim i As Long
On Error Resume Next
For Each zelle In Range("A2")
r = zelle.Row
With Worksheets(zelle.Value)
i = .Cells(65536, 2).End(xlUp).Row + 1
.Cells(i, 1) = Cells(r, 1)
.Cells(i, 3) = Cells(r, 3)
.Cells(i, 4) = Cells(r, 4)
.Cells(i, 6) = Cells(r, 6)
.Cells(i, 7) = Cells(r, 7)
.Cells(i, 9) = Cells(r, 9)
End With
Next
End Sub
Vielen Dank schonmal im Voraus
Ralf