Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in einer Liste zu ordnen

Werte in einer Liste zu ordnen
04.03.2020 17:10:58
Dominik
Hallo!
Mein Problem: Ich habe eine Liste aller Tageszeiten (1-24) as Long. Weiters habe ich Tageszeiten (hh:mm:ss) die ich in einer Dezimalzahl (As Double) umgewandelt habe, um diese zu den Liste der Tageszeiten zu ordnen. z.B: 8 = 8,6667
Ich versuche das mittels einer If-And-Schleife (siehe Code erste Antwort) die Werte so zu listen, dass die Stunden (tzh = dem Wert der Tageszeit) und wenn die Dezimalzahl größer gleich der Tageszeit ist.
Danke im Voraus für eure Hilfe.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in einer Liste zu ordnen
04.03.2020 17:11:55
Dominik

For tz = 1 To tzMax
Cells(tz, 1) = tz
tz1 = tz + 1
Cells(tz, 13) = tz1
'Startzeitpunkt
tzUhr = Tabelle11.Cells(tz, 2).Value
tzh = Format(tzUhr, "h") 'nur Stunden
tzm = Format(tzUhr, "n") 'nur Minuten
tzs = Format(tzUhr, "s") 'nur Sekunden
tzZahl = tzh + (tzm / 60) + (tzs / 60) 'Uhrzeit von hh:mm:ss in 0,00 umwandeln
Tabelle11.Cells(tz, 9) = tzZahl
'Ankunftszeitpunkt
tzUhr = Tabelle11.Cells(tz, 3).Value
tzh1 = Format(tzUhr, "h") 'nur Stunden
tzm1 = Format(tzUhr, "n") 'nur Minuten
tzs1 = Format(tzUhr, "s") 'nur Sekunden
tzZahl1 = tzh + (tzm / 60) + (tzs / 60) 'Uhrzeit von hh:mm:ss in 0,00 umwandeln
Tabelle11.Cells(tz, 10) = tzZahl1
Tabelle11.Cells(tz, 11) = tzh
'Wenn Tageszeit kleiner als Startzeit ist und wenn Tageszeit +1 größer ist asl Startzeit (Muss  _
dazwischen liegen) -> 12 

Anzeige

256 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige