Datum und Uhrzeit zuordnen
09.03.2020 16:47:00
JIE
eigentlich will ich was relativ einfaches von VBA, aber natürlich wie das so ist, will es nicht so wie ich.
Ich ziehe aus einer Datenbank 3 Tabellen mit Datum, Uhrzeit und einem Wert.
Jetzt möchte ich entsprechend die 3 Tabellen zu einer zusammen fassen und nach Datum und passender Uhrzeit sortieren.
Jetzt klappt das aber nur, wenn die Uhrzeiten aneinanderreihend sind, sobald da ein Sprung drin ist, spring ich anscheinend immer aus der Schleife ich weiss aber nicht wieso.
Das funktioniert:
01.01.2000 7:00
01.01.2000 8:00
01.01.2000 9:00
Das funktioniert nicht:
01.01.2000 7:00
01.01.2000 9:00
01.01.2000 10:00
Sub Daten()
Dim Zeile As Long
Dim TabEnd As Long
TabEnd = Tabelle3.Cells(Rows.Count, 16).End(xlDown).Row
Range("Q3:Z27").ClearContents
For Zeile = 4 To TabEnd
If Tabelle3.Cells(Zeile, 16).Value = Tabelle3.Cells(Zeile, 1).Value Then
Tabelle3.Cells(Zeile, 17).Value = Tabelle3.Cells(Zeile, 3).Value
Tabelle3.Cells(Zeile, 19).Value = Tabelle3.Cells(Zeile, 4).Value
ElseIf Tabelle3.Cells(Zeile, 16).Value = Tabelle3.Cells(Zeile, 6).Value Then
Tabelle3.Cells(Zeile, 21).Value = Tabelle3.Cells(Zeile, 8).Value
ElseIf Tabelle3.Cells(Zeile, 16).Value = Tabelle3.Cells(Zeile, 10).Value Then
Tabelle3.Cells(Zeile, 23).Value = Tabelle3.Cells(Zeile, 12).Value
End If
Next Zeile
End Sub