hallo Folgende Situation
ich habe daten die ungefähr so aussehen
Zeit ____sonstiges____Start___ …
17:20____ 1
17:40____ 1
17:50____ 2_________Beginn___
.
.
.
18:00____1
18:10____2__________Ende____
Nun möchte ich das er in spalte 3 den beginn erkennt und gleichzeit die Zeit in spalte 1 übernimmt und genau die gleiche Prozdeur mit dem endwert.
danach soll ein Bereich gebildet und kopiert werden.
Gruß
Heko
Damit hast Du deine Daten mal Zeile für Zeile
Dim strZeilen() as String = Split(DeineDaten, vbcrlf)
Nun Beginn und Ende suchen
For intLoop = 0 to strZeilen.GetUpperBound(0)
if not strZeilen(intLoop).IndexOf(„Beginn“) = 0 then
MyStartTime = strZeilen(intLoop).Substring(0,5)
elseif not strZeilen(intLoop).IndexOf(„Ende“) = 0 then
MyEndTime = strZeilen(intLoop).Substring(0,5)
endif
if not MyStartTime = „“ and not MyEndTime = „“ then exit for
Next
Nun mit Datediff die differenz berechnen
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]