Hillllfeeeeee

TOP!!!

Danke vielmals. Erleichtert die Arbeit um Stunden.

Hi Claus,

ich denke du hast das erste Bild mit der Problemstellung ganz oben nicht ganz verstanden.

Da ist keine leere Zeile wo das Datum hinsoll. Das obere Bild zeigt die Ausgangssituation an. Das untere soll das Ergebniss des Macros sein. Zwischen 01.04.2016 01:25 und 01.04.2016 01:35 ist die Zeit 01.04.2016 01:30 nicht vorhanden. Diese soll eingefügt
werden (vgl Bild)

Wenn da eine leere Zeile herrscht dann stimmt dein Macro.

Hallo,

entweder hast du keine leere Zellen in deinem Bereich oder die Zellen sind nicht wirklich leer. Klicke mal in den Spaltenkopf der Spalte A => Daten => Text in Spalten => Feste Breite => Weiter. Entferne im 2. Schritt den Trennpfeil durch Doppelklick darauf
und gehe auf Fertig stellen. Damit sollten eventuelle Leerzeichen in den Zellen gelöscht werden.

Probiere es dann mal so:

Sub Ausfuellen()

Dim LRow As Long

Dim rngC As Range, myRng As Range

With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    Set myRng = .Range("A1:A" & LRow)

    If Application.CountBlank(myRng) > 0 Then

        For Each rngC In .Range("A1:A" & LRow).SpecialCells(xlCellTypeBlanks)

            rngC = rngC.Offset(-1, 0) + TimeSerial(0, 5, 0)

            rngC.Offset(, 1).Resize(1, 5) = 0

        Next

    End If

End With

End Sub
[b]Edit:
[/b]Du kannst eine scheinbar leere Zelle auch mal überprüfen mit z.B.:

=Länge(A1) oder auch das darin enthaltene Zeichen auslesen mit:

=Code(A1)

Claus

Hallo,

korrekt, ich habe das Bild und die Beschreibung falsch aufgefasst.

Probiere es mal so:

Sub Ausfuellen()

Dim LRow As Long, i As Long

With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    For i = LRow To 2 Step -1

        If Format(.Cells(i, 1) - .Cells(i - 1, 1), "h:mm") <> "0:05" Then

            .Rows(i).Insert

            .Cells(i, 1) = .Cells(i - 1, 1) + TimeSerial(0, 5, 0)

            .Cells(i, 2).Resize(1, 5) = 0

        End If

    Next

End With

End Sub

Claus

Habe deine Schritte befolgt.

Wenn ich auf ''Ausführen'' klicke passiert nichts. Keine Fehlermeldung. Aber auch das Fehlende Datum wurde nicht endeckt und eingefügt.