Vielen Dank für die Hilfe. Danke.
nebeneinander in Spalte D
Nebeneinander in eine Spalte ?
Oder willst Du die Zahlen in EINE Zelle hintereinander haben?
Gruß aus dem Sauerland
Jens
Sub Schaltfläche1_BeiKlick()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
Range("D1") = Range("D1") & Cells(i, 1) & ","
Next i
End Sub
oder Formel:
=VERKETTEN(A1&","&A2&","&A3.........)
Gruß aus dem Sauerland
Jens