Hallo,
wegen der speziellen Anforderung und meiner Unkenntnis hoffe ich, dass mir jemand bei meinem Problem helfen kann.
Problemstellung:
Aus einem großen, chronologisch sortierten Datensatz von einem Jahr (ca. 80000 Zeilen, jeder Tag hat 180 Zeilen), sollen bestimmte Tage ausgewählt und in ein anderes Tabellenblatt kopiert wernden, um diese Daten dann für ein Diagramm zu verwenden.
Z.B. es sollen alle Montage mit den dazugehörigen Werten (aus 3 Spalten) in Tabellenblatt B kopiert und sortiert werden.
Der Aufbau der Liste ist wie folgt:
10:54 / Sonntag / 03.06.2012 10:54:40 / 840 / 1247 / 343 (/=neue Spalte)
Das Problem ist zum einen, welche Befehle benötige ich und zum anderen, wie setze ich die Schleifen?
Hab nur mal angefangen mir die Schritte auf zu schreiben...
Sub Daten_invertieren()
Dim day As Date
Dim SucheNach As Range
'z.B. day = Montag
day = "Montag"
'1. Schleife
'sucht nach dem Tag in Spalte B mittels Variable "day" und kopiert Zeile nach Tabellenblatt2 in letzte beschriebene Spalte
Set SucheNach = Tabelle1.Range("B:B").Find(day)
Rows(day.Row).Copy Tabelle2.Cells(........?
'2. Schleife
'vergleiche Wert aus Tabelle1 Spalte A (Uhrzeit) der kopierten Zeile mit Wert aus Tabelle2 Spalte A1,
'dort steht jeweils im 8 Minutenschritten untereinander 00:00;00:08;00:16;...;23:52) wenn Wert zwischen 00:00 und 00:07 dann kopiere hier in B2,
'sonst in nächste Zeile
End Sub
Bin um jede Hilfe dankbar!
Gruß Leo
|