Untenstehender Code soll aus mehreren Zeilen die Ausschneiden und woanders einsetzen, die innerhalb von 5 Minuten liegen.
Dazu wird aus der untersten Zeile die Startzeit ausgelesen (zeitunten) und zu dieser 5 Minuten hinzugezählt.
Dann sollen alle Zeilen überprüft werden, ob sie denn in den 5 Minuten liegen (ender > Cells (i, anfangsspalte) ).
Leider tritt der Fehler "Typen unverträglich" auf (Nummer 13) und ich komme nicht mehr weiter. Vielleicht liegt das an dem zuaddieren der Zeit (TimeValue), aber ich wüsste auch nicht, wie ich dies lösen könnte.
Für Hilfe wäre ich sehr dankbar!
--------
Sub zaehlen()
Dim LetzteReihe
Dim zeitunten
Dim ender
Dim i
Dim anfangreihe
Dim anfangsspalte
anfangsreihe = 2
anfangsspalte = 11
LetzteReihe = Cells(Rows.Count, 11).End(xlUp).Row 'sucht letzte zelle
zeitunten = Cells(LetzteReihe, anfangsspalte).Value 'liest die Startzeit aus
ender = zeitunten + TimeValue("00:05:00") 'haengt 5 minuten dran
For i = 2 To LetzteReihe
~f~If ender > Cells(i, anfangsspalte) Then
Cells([i], [1,11]).Cut
Cells([300 + i], [1,11]).Paste
End If
i = i + 1
Next i
End Sub
--------