VBA mehere Datensätze zum Datum transp,
16.12.2020 16:30:59
Benedikt
ich bin zwar nicht neu bei der VBA Welt, jedoch ist mein Wissen eher rudimentär.
Folgender Sachverhalt/ Problemstellung:
in der Spalte A (ab A3) liegt ein Datensatz eines Monats mit verschiedenen Zeiten in Spalte D (von) und C (bis) vor. Es können mehrere Zeiten zu einem Datum vorliegen. Nun Soll die Spalte A mit der Spalte K verglichen werden und ab Spalte L, M die Zeiten aus Spalte D und C übertragen werden. Auch wenn zu einem Datum mehrere Zeiten vorliegen, sollen in die Splate ab L transponiert werden.
Am liebsten wäre mir eine Lösung über VBA. Ich denke es gibt schon zu diesem einfachen Problem eine Lösung oder die nur leicht zum zuschreiben gilt. Bin für jeden Tipp sehr dankbar:-)
Vielen Dank im Vorfeld!!
Dim Datum_1 As Long
Dim Datum_Vergleich As Long
Dim Zeit_1 As Long
Zeit_1 = 1
For Datum_1 = 1 To Sheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row
For Datum_Vergleich = 1 To Sheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Rohdaten")
If .Cells(Datum_1, 1) = .Cells(Datum_Vergleich, 11) Then
.Cells(Zeit_1, 12) = .Cells(Datum_1, 4)
.Cells(Zeit_1, 13) = .Cells(Datum_1, 5)
Zeit_1 = Zeit_1 + 1
End If
End With
Next Datum_Vergleich
Next Datum_1
End Sub