Hallo erstmal
Ich habe ein Problem mit einigen Datein auf der Arbeit wozu ich jetzt was mit VBA machen muss.
Ich habe ein Tabelle mit rund 30000 Werten diese enthält Datum, Uhrzeit, Höhe und Geschwindigkeit. Jetzt ist das problem das Gerät hat im falschen Takt (z.B. alle 5min anstad jede 1min) aufgenommen. Das heist ich muss je nach Zeitabstand in jede Zeile ein bestimmt Anzahl an Zeilen einfügen . Dann muss ich in diese Freizeilen die Messwerte Aufteilen.
Ich habe bereits zum Thema Zeilen Einfügen was im Internet gefunden was sehr gut klappt (Wenn der Urheber das sieht hoffe ich das er nicht dagegen hat das ich es benutze). Aber ich würde gerne wissen wie ich es so umschreiben kann das der Zeilenabstand auch noch mit abgefragt wird und ich ihn so schneller Festlegen kann.
Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?") 'abfrage bezeiht sich auf beginn der rechnung
For i = Menge To Titel + 1 Step -1
Menge1 = i + 1 & ":" & i 'i+2 bedeutet 3 freizeilen
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub
So ungefähr sieht die Tabelle aus
Datum, Uhrzeit ,Höhe, Geschwindigkeit
"12/MAR/04","11:44",0.785,0.12
"12/MAR/04","11:48",0.257,0.45
"12/MAR/04","11:52",0.785,0.05
"12/MAR/04","11:56",0.785,0.58
Ich brauch hier jetzt Zwichen jeder Zeile 3 Freizeilen und diese müssen mit der Entsprechen Zeit aufgefüllt werten also von 11:44 bis 11:48 in 1 min schritten. Die Werte Höhe und Geschwindigkeit sind Mittelwert über den Zeittakt als müssen diese nur durch 4 geteilt werden, wobei der Ursprungswert ebenfalls ersetz werden muss.
Ich hoffe ich habe mein Problem gut dargestellt und ihr könnt mir helfen denn ich habe gerade mal ansatzweise die Grundlagen drauf.
Ich bedanke mich schon mal im voraus für eure Hilfe und Mühe.
|