Daten nach Anzahl auflisten

[flixx14]

Hallo,

mit dem folgenden VBA-Makro lassen sich die Einträge wie gewünscht in Spalte A ab Zeile 15 auflisten.

Code:

Sub auflisten()

'** Dimensionierung der Variablen
Dim lngWert As Long
Dim lngZeile As Long

'** Vorgaben definieren
Set wsdat = ThisWorkbook.Sheets("Tabelle1")
lngZeile = 15

For a = 15 To wsdat.Cells(Rows.Count, 12).End(xlUp).Row
 
  '** Wert auslesen
  lngWert = wsdat.Cells(a, 12).Value
 
  '** Daten schreiben
  For b = 1 To lngWert
     
    '** Werte schreiben
    wsdat.Cells(lngZeile, 1).Value = lngWert
   
    '** Zeilenzähler erhöhen
    lngZeile = lngZeile + 1
  Next b

Next a

End Sub

Ich habe die Beispieldatei aus als Anlage beigefügt. Wenn du die Schaltfläche "Daten auflisten" klickst, wird der Code entsprechend ausgeführt.

Viele Grüße

Alois

Vielen Dank für die Arbeit.
Ich glaube das ich mich falsch ausgedrückt habe, Entschuldigung.
Ich habe mal eine Tabelle gemacht wie ich es eigentlich gemeint habe.
Das nächste Mal drücke ich mich sofort richtig aus.