ich übernehme aus einem Listenfeld Einträge in ein neues Tabellenblatt, jedoch sollen dabei nur die Spalten 1-4 und nicht alle (-1) übernommen werden. Dazu habe ich nach recherchieren herausgefunden, dass man sowohl die erste Spalte deklarieren kann, als auch die letzte (Bsp.For j = 1 To .ColumnCount 4). Das ändern der Ausgangspalte funktioniert, jedoch das definieren der letzten Spalte (To .ColumnCount 4) führt zum Fehler.
Frage, was muss ich ändern, um die Übernahme der Daten nur bis Spalte X zu zulassen?
Zudem würde mich noch interessieren, wie ich für alle Einträge die erst in Spalte B geschrieben werden, in Spalte A eine Nummerierung laufen lassen kann?
Mein aktueller Code:
With UserForm1.ListBox1
For i = 0 To .ListCount - 1
For j = 1 To .ColumnCount - 1
Cells(i + 27, j + 1) = .List(i, j)
Cells(i + 27, j + 1).HorizontalAlignment = xlCenter
Cells(i+27,j+1)= mach bitte zu jedem Eintrag in Spalte A eine fortlaufende Nummerierung
Next
Next
End With