Excel Zeilen von unterschiedl. Tabellen mittels Zeit zuordne

Hallo,

ich bin mir nicht wirklich sicher bin wonach ich suchen soll um die Antwort zu meinem Problem zu finden, deswegen wollte ich mal hier mein Glück versuchen.

ich möchte momentan 6 Datensätze miteinander vergleichen, die jeweils 5-minütige Werte mit einem Zeitstempel beinhalten (also dem Datum und der Uhrzeit).

Leider sind die Daten teilweise fehlerhaft, wodurch ich die eine Tabelle nicht einfach neben die andere setzen kann. Es fehlen z.B. Stunden/Minuten oder manche Werte sind doppelt, sodass die Tabellen komplett "verrutscht" sind. Die Werte müssen aber zwingend den jeweiligen anderen Werten von der gleichen Zeit zugeordnet werden und aufgrund der hohen Datenmenge würde es viel zu lange dauern dies manuell zu korrigieren.

Keine Ahnung wie man das mit Funktionen beheben könnte, außer irgendwie über das Datum und die Uhrzeit halt.. Hat jemand da eine Idee? Ich bin leider nicht besonders gut im Umgang mit Excel, deswegen hoffe ich auf Hilfe! Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

ich kann die Beispieldatei nicht hochladen, über 1 MB, weil altes 2003 Format. Dafür schicke ich dir das Makro.
Ich habe es von Fort Next auf Find Methode umgestellt. Bei mir dauerte das komplette ausfüllen 2:20 Minuten.
Es gibt bei den einzelnen Blöcken erhebliche Lücken, das musst du bitte selbst prüfen ob das so richtig ist.

mfg Piet

Option Explicit      '7.1.2024  Piet  für Herber Forum

Dim AC As Range, lzA As Long

Dim j, k As Long, lzO As Long

Dim rFind As Range, rw As Long





'neue Version über Do Loop

'For Next > 4 Minuten für 1 Block!



Sub Stationen_auflisten_Loop()

Dim SpO As Long, Sp3 As Long

SpO = 22   'Spalte V-AA

Sp3 = 1    'Spalte A,D,G,J,M,P

lzO = Cells(Rows.Count, 20).End(xlUp).Row

Range("V3:AA" & lzO).ClearContents

Application.ScreenUpdating = False

[ab1,ab2] = Time



For k = 1 To 6

  lzA = Cells(Rows.Count, Sp3).End(xlUp).Row

  

  'Blockweise Daten auflisten

  For Each AC In Cells(3, Sp3).Resize(lzA - 2, 1)

      Application.StatusBar = AC.Row & "  " & lzA & "  LTK " & k + 6

      Set rFind = Columns("U").Find(What:=Format(AC.Cells(1, 2), "h:mm:ss AM/PM"), _

          After:=[u2], LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:= _

          xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

     

     If Not rFind Is Nothing Then

        rw = rFind.Row

        Do

           If AC.Value = rFind.Cells(1, 0) Then

              Cells(rFind.Row, SpO) = AC.Cells(1, 3): Exit Do

           End If

           Set rFind = Columns("U").FindNext(rFind)

        Loop Until rFind.Row = rw

     End If

  Next AC

  

  'Spaltenverschiebung

  SpO = SpO + 1

  Sp3 = Sp3 + 3

Next k



[ab2] = Time

MsgBox "Fertig"

End Sub

Beliebteste Forumthreads (12 Monate)

Excel Zeilen von unterschiedl. Tabellen mittels Zeit zuordne

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Zeilen von unterschiedl. Tabellen mittels Zeit zuordne

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread