habe vor einiger Zeit mit VBA gearbeitet und bin jetzt dabei mich wieder einzufinden. Ich habe schon viel über Zeilen vergleichen und einfügen in eurem Forum gelesen. So richtig hat mich das aber noch nicht weitergebracht. Hoffe nun das ihr mir weiterhelfen könnt. Aber nun zum eigentlichen Problem:
Ich habe Messwerte einer Woche die ich in Excel importiere. Die Messwerte wurden in einem Abstand von 0,5 min (also 30s) erfasst und sind auch nach dieser Zeitachse geordnet. Das Problem besteht darin, dass die Messung (bezogen auf eine Woche) nicht durchgängig erfolgt. Das heißt sie endet beispielsweise am 18.10.2011 12:38:00 und startet wieder am 18.10.2011 13:11:30.
18.10.2011 12:37:00
18.10.2011 12:37:30
18.10.2011 12:38:00
...
18.10.2011 13:11:30
18.10.2011 13:12:00
usw.
Ich möchte nun einen Code schreiben, der die Datensätze (Zeilen) durchläuft und die aktuelle Zeit mit der darauffolgenden Zeit vergleicht ob diese eine Differenz von 30s haben. Falls dies nicht der Fall ist soll eine Zeile zwischen den beiden Datensätzen eingefügt werden. In dieser Zeile soll dann die aktuelle Zeit + 30s errechnet werden. Ziel ist also die Fehlzeiten aufzufüllen um ein lückenloses Diagramm über eine Woche darstellen zu können.
Ich habe mich darin wie folgt versucht. Für eine einzelne Zeile klappt das auch ganz gut mit
folgendem Code:
Public Sub ZeileEinfuegen()
If Cells(9, 1).Value - Cells(8, 1).Value > 0.00035 Then
Range("B9").EntireRow.Insert
Cells(9, 1).Value = Cells(8, 1) + 0.00035
End If
Allerdings möchte ich diese If-Anweisung in eine Schleife legen und habe folgendes versucht: pre>
Private Sub cmd_Zeitachse_Click()
MsgBox ("leereTabelle")
Dim y As Integer
Dim ymax As Integer
Dim neueZeile As Integer
ymax = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For y = 2 To ymax + 1
If Cells(y + 1, 1).Value - Cells(y, 1).Value > 0.00035 Then
'If AchtiveCell.Value + 1 - AchtiveCell.Offset(y, 1).Value > 0.00035 Then
Range.Cells(y + 1, x).EntireRow.Insert
Cells(y2, 1).Value = Cells(y, 1) + 0.00035
End If
Next
End Sub
Ich hoffe ihr könnt mir helfen und mir sagen wo es hängt. Allerdings habe ich das Gefühl das ich komplett auf dem Holzweg bin. Ein schönes Wochenende wünsche ich und vielen Dank schon mal.
Gruß Marco