Wie genau mache ich das jetzt mit dem kopieren und auf dem anderen Blatt einfügen?
Indem du die entsprechende Zelle ansprichst. Wie man auf Zellen zugreifen kann, siehst du auch schon vorherigen Makro - musst es nur machen.
Worksheets("anderesBlatt ").Range("C7").Value = vntPtr.Value
'oder alternativ
Worksheets("anderesBlatt ").Cells(7, "C").Value = vntPtr.Value
Weiss nicht genau wie ich eine nicht immer gleiche Zeileposition "anspreche"
Indem du dir die Zeile, in die geschrieben werden soll, in einer Variable merkst.
In jedem Schleifendurchgang erhöhst du dessen Wert um Eins (1).
z.B.
z = 7
For Each vntPNr In .Items()
Worksheets("anderesBlatt ").Cells(z, "C").Value = vntPtr.Value
z = z + 1
Next
|