Daten nach Anzahl auflisten

[Officer]

Hallo,

ist vom Prinzip ja das gleiche, nur andere Spalten

Hier der geänderte Code und die Beispieldatei.

Code:

Sub auflisten()

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

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

'** Ausgabebereich löschen
wsdat.Range("A15:C1000").ClearContents

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

Next a

End Sub

Gruß Alois