ich habe ein Formular aus einer Liste per VAB generiert wo die Werte übertragen sind.
Es sollen aber die Verweise/Bezüge übertragen werden.
Ich hab es bisher nicht geschafft:
...
Set sheet = Worksheets("Gesamt")
Set rngInStart = sheet.Range("F3") ' 1 TNR
Set rngInStop = rngInStart.End(xlDown)
Set rngOutCurrent = Worksheets("Bestellung").Range("A1") 'FormularAusgabebeginn
For Each cell In sheet.Range(rngInStart, "F10") '
If cell.Offset(0, i).Value "" Then
'TNR schreiben
rngOutCurrent.Offset(outZeile, xTab) = cell.Offset(i, 0)
'Bezeichnung
rngOutCurrent.Offset(outZeile, xTab + 1) = cell.Offset(i, 7)
...
Für eine Lösung wäre ich euch sehr verbunden.
Danke
Reiner