Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeiten vergleichen und in neues Tabellen übernehme

Zeiten vergleichen und in neues Tabellen übernehme
18.05.2004 08:39:38
G-o-C
Hallo zusammen
Ich brauche ein Makro, welches zwei Uhrzeiten miteinander vergleicht und wenn die Zeiten näher als 30 min zusammenliegen die Zeile automatisch in ein extra Tabellenblatt kopiert wird.
Bitte helft mir, ich blick nicht mehr durch!
Danke!!
Userbild
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeiten vergleichen und in neues Tabellen übernehme
18.05.2004 11:10:00
ANdreas
Hallo,
im Forum bitte mit Realnamen auftreten (siehe Forums-FAQ)
Zu Deinem Problem hier einmal mein Vorschlag:

Sub Kopieren()
Dim lngCount&, lngCount2&
lngCount = 2
With Worksheets("NameKopie") 'Namen anpassen, da wird hinkopiert
lngCount2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'freie Zeile
While Not IsEmpty(Cells(lngCount, 1))
If (Cells(lngCount, 7).Value - Cells(lngCount, 1).Value) * 3600 < 75.01 Then
Rows(lngCount).Copy Destination:=.Cells(lngCount2, 1)
lngCount2 = lngCount2 + 1
End If
lngCount = lngCount + 1
Wend
End With
Application.CutCopyMode = False
End Sub

Hoffe das hilft weiter,
Andreas
Anzeige
AW: Zeiten vergleichen und in neues Tabellen übernehme
18.05.2004 14:02:50
Marcel
Also irgendwie funktioniert das bei mir net!
Ich probier jetzt schon ne ewigkeit rum und verzweifel dran!
Kannst du mir vielleicht weiterhelfen, wenn ich das Dokument hochlade!?
https://www.herber.de/bbs/user/6489.xls
Ich hoffe es, sonst sterb ich noch, bei der Hitze!
Vielen dank
Anzeige
AW: Zeiten vergleichen und in neues Tabellen übernehme
18.05.2004 14:29:38
ANdreas
Hallo Marcel,
Du musst nur 1 Zeile ändern, da die Daten ja erst ab Zeile 5 beginnen.
Deswegen setzte am Anfang nicht auf 2 sondern:
lngCount = 5
Viel Spaß,
Andreas
AW: Zeiten vergleichen und in neues Tabellen übernehme
18.05.2004 14:42:46
Marcel
Vielen Dank, jetzt geht es!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige