Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dauer berechnen

Dauer berechnen
21.12.2020 11:22:09
Thipan
Hallo Zusammen
ich bin neu hier und versuche die Zeit zu berechnen in der "Hallo" gesagt wird.
In der Excel Tabelle sind 2 Spalten in A steht die Zeit in ms und in
Spalte B stehen der Event (x , y und Hallo). Ich wollte einen VBA Code
schreiben der in der Spalte B jede Zeile durchsucht nach einem Hallo und schaut
ob es in der nächsten Spalte auch steht. Dass soll der so lang machen bis in der
darauf folgenden Zeile etwas anders als hallo steht. Jetzt soll der für den ersten Hallo
und den letzten Hallo die dazugehörige Zeit in der Spalte A nehmen und die Zeiten voneinander
subtrahieren (letzte Zeit minus erste Zeit). Das Ganze soll er solange wiederholen bis alle
Zeilen durchsucht und alle "Hallo´s" berechnet wurden.
Hier ist der Link zur Excel Tabelle zu besseren Verständnis meiner Frage.
https://www.herber.de/bbs/user/142477.xlsm
Ich bedanke mich schon mal im Voraus für die Rückmeldungen
Grüße Thipan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dauer berechnen
21.12.2020 12:06:37
ralf_b
so, biddeschön
ergebnis der subtraktion wird neben das letzte Hallo geschrieben
Jeweils erstes und letzes Hallo werden farbig makiert. 
Sub hallo()
Dim firstHallo  As Double
Dim lastHallo As Double
Dim cell As Range
For Each cell In Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
Debug.Print cell.Row
If cell = "hallo" Then
Debug.Print cell.Row
If cell.Offset(-1)  "hallo" Then
firstHallo = cell.Offset(, -1).Value
cell.Interior.Color = vbRed
Else
If cell.Offset(1)  "hallo" Then
lastHallo = cell.Offset(, -1).Value
cell.Offset(, 1) = lastHallo - firstHallo
cell.Interior.Color = vbGreen
End If
End If
End If
Next cell
End Sub

Anzeige
AW: Dauer berechnen
21.12.2020 13:14:17
Thipan
Danke für die schnelle Antwort

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige