Von Zeilen zu Spalten
08.10.2013 14:18:05
Leo
ich bin recht unerfahren mit vba und hoffe hier etwas Hilfe zu bekommen.
Problemstellung:
Aus einem großen, chronologisch sortierten Datensatz von einem Jahr (ca. 80000 Zeilen, jeder Tag hat ca. 180 Zeilen),so sieht eine Zeile aus:
03.06.2012 10:54:40 / 840 / 1247 / 343 (/=neue Spalte)
sollen bestimmte Tage (z.B. alle Montage) ausgewählt und in ein anderes Tabellenblatt kopiert werden, allerdings nicht untereinander, sondern nebeneinander.
Das mit den Montagen raussuchen, habe ich geschafft, allerdings werden diese untereinander geschrieben. Da jeder Montag von 00:00 bis 23:59 geht, habe ich gedacht, man könnte jeweils diesen Block nebeneinanderschreiben.
Könnte mir jemand bei dem Code helfen?
Das habe ich bisher:
Sub KopierenZwischen0und24Uhr()
Dim fAuslesen() As Variant
Dim fÜbergabe() As Variant
Dim i As Long, j As Long
With Sheets("Tabelle2")
fAuslesen = Range(.Range("A2"), .Range("A2").End(xlDown)).Resize(, 4)
End With
ReDim fÜbergabe(1 To UBound(fAuslesen), 1 To 4)
For i = 1 To UBound(fAuslesen)
If Hour(fAuslesen(i, 1)) >= 0 And Hour(fAuslesen(i, 1))