ich habe das selbe Problem welches in dem Beitrag Daten auslesen gelöst wurde.
Hier die Datei: https://www.herber.de/bbs/user/74947.zip
Dabei wurde das Problem von Erich G. mit folgendem VBA Code gelöst:
Sub KennzListe2()
Dim lngQ As Long, arrQ, arrK(), varK, arrZ()
Dim zz As Long, qq As Long
With Sheets("Allgemein")
lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
arrQ = .Cells(2, 1).Resize(lngQ + 1, 5)
ReDim arrK(1 To lngQ)
ReDim arrZ(1 To 4, 1 To lngQ)
varK = arrQ(1, 1)
zz = 1
arrK(1) = arrQ(1, 1)
arrZ(1, 1) = arrQ(1, 2)
arrZ(3, 1) = arrQ(1, 4)
For qq = 2 To lngQ + 1
If varK arrQ(qq, 1) Then
varK = arrQ(qq, 1)
arrZ(2, zz) = arrQ(qq - 1, 3)
arrZ(4, zz) = arrQ(qq - 1, 5)
If qq
Das Problem ist, das ich die Daten welche in dem Arbeitsblatt "Sortiert" gelesen bekomme weiterverwenden möchte, jedoch stimmt die Formatierung nicht. Ich bekomms einfach nicht hin, beispielweise das Minimum und Maximum zu bestimmen, da dies immer gleich 0 ist?
Kann mir jemand bei der Fehlerbehebung helfen?
Velen Dank,
grüße
Jürgen