Daten auslesen
Heinrich
dank Erich G. hab ich diesen wunderbaren VBA Code, welcher jeweils den Maximal- und Minimalwert von den 4 Zeitspalten im Tabellenblatt "Allgemein" in das Tabellenblatt "Sortiert" einliest.
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 Nun meine Frage, wie es möglich wäre per VBA Code die in dem Tabellenblatt "Allgemein" in den Spalten F:L stehenden Zeiten 5-11 in das Tabellenblatt "Sortiert" als Summe einzulesen? Wie dies am Beispiel der Kennzahl 567777 durchgeführt wurde.
https://www.herber.de/bbs/user/75424.xlsx
Beste Grüße und vielen Dank
Heinrich
Anzeige