Einzelne zeilen auslesen und in einer zusammenfügen?

[thevibe]

Hallo,
ich würde gern aus einer tabelle alle werte einer spalte einlesen und an einer anderen stelle in EINER zeilen nebeneinander (mit komma getrennt) wieder ausgeben.
ich kriegst einfach nich hin.

so sollte z.b. aus:
1
2
3
4

1, 2, 3, 4 werden

 

[Alex F.]

voraus auslesen ?

Tabelle in excel ? in access oder andere Datenbank oder csv Datei ?

 

[thevibe]

excel tabelle

 

[MAN]

Probiers mal damit:

Sub PrintNumbers()
   ' Wieviele Zeilen das Makro durchgehen soll
   Const ZEILEN_ANZAHL As Integer = 10
   
   Dim i As Integer
   Dim Zeile As String
   
   For i = 1 To ZEILEN_ANZAHL
      ' Hole Zahlen aus Zelle Ai  (i = aktuelle Zeile)
      Zeile = Zeile & Cells(i, 1).Value
      
      If i = ZEILEN_ANZAHL Then
         Exit For
      End If
      
      Zeile = Zeile & ", "
   Next i

   ' Schreibe Ergebnis in Zelle B1
   Cells(1, 2).Value = Zeile
End Sub

mfG,
MAN