Statt ListCount -1 nur bis Spalte X

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With UserForm1.ListBox1 For i = 0 To .ListCount - 1 For j = 1 To 4 Cells(i + 27, j + 1) = .List(i, j) Cells(i + 27, j + 1).HorizontalAlignment = xlCenter Cells(i + 27, 1) = WorksheetFunction.Max(Range("A:A")) + 1 Next j Next i End With

Hallo Tim,
hier der Code für deinen Button:

Private Sub CommandButton1_Click()
Dim i As Long, j As Long, loLetzte As Long, raZelle As Range
Application.ScreenUpdating = False
Workbooks.Add
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
Next j
Next i
End With
Cells(8, 1) = "Auftraggeber / Kunde"
Cells(9, 1) = "Ort"
Cells(10, 1) = "Strasse"
Cells(13, 7) = Date
Cells(16, 1) = "Auftrags-Nr.: "
Cells(25, 1) = "Pos."
Cells(25, 1).Font.Bold = True
Cells(25, 1).HorizontalAlignment = xlCenter
Cells(25, 2) = "ART-Nr."
Cells(25, 2).Font.Bold = True
Cells(25, 2).HorizontalAlignment = xlCenter
Cells(25, 3) = "Bezeichnung"
Cells(25, 3).Font.Bold = True
Cells(25, 3).ColumnWidth = 15
Cells(25, 3).HorizontalAlignment = xlCenter
Cells(25, 4) = "Menge"
Cells(25, 4).Font.Bold = True
Cells(25, 4).HorizontalAlignment = xlCenter
With ActiveWorkbook.Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For Each raZelle In .Range(.Cells(27, 1), .Cells(loLetzte, 1))
raZelle.Value = WorksheetFunction.Max(.Range(.Cells(27, 1), .Cells(loLetzte, 1))) + 1
Next raZelle
End With
Unload Me
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Statt ListCount -1 nur bis Spalte X

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Statt ListCount -1 nur bis Spalte X

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread