Office: Code wird nicht komplett ausgeführt

Guten Morgen in die Runde!

Situation:
Dieser Code wird nicht komplett ausgeführt. es wird der Teil mit der Du Until Schleife übersprungen. Wenn ich aber mit Einzelschritte durch den Code gehe dann funktioniert er wie er soll.

Kann mir einer sagen warum?

Code:

Sub Daten_Dienstreise() 'Daten vom Eingabefeldern in Reiseabrechnung übertragen

Dim daBeginn As Date
Dim lozeile As Long
Dim tbl As ListObject
Dim i, t As Integer
Dim stOrt As String


'Variablen erzeugen
Set tbl = Sheets("Eingabe").ListObjects("tblEingabe")
lozeile = ActiveCell.Row
stOrt = Cells(lozeile, 16)
daBeginn = CDate(Sheets("Eingabe").Cells(lozeile, 1))
TageDR = InputBox("Anzahl Tage", "Dienstreise")
i = TageDR
t = 0


'Dienstreiseformular befüllen
'Mit Schleife die Tage der Diensreise befüllen
Do Until i = 0
    With Sheets("Eingabe")
        .Cells(lozeile + t, 20) = "DiRe"
        .Cells(lozeile + t, 16) = stOrt
        t = t + 1
        i = i - 1
    End With
Loop



With Sheets("ABRE")
    .Range("A9,D14,D15") = daBeginn                         'Hinnreise
    .Range("G9,H14,H15") = daBeginn + (TageDR - 1)          'Rückreise
    .Range("B9") = TageDR & " Tag(e)"                       'Anzahl Reisetage
    .Range("F14") = Sheets("Eingabe").Cells(lozeile, 8)     'Uhrzeit Reisebeginn
    .Range("I15") = Sheets("Eingabe").Cells(lozeile, 9)     'Uhrzeit Reiseende
    .Range("C6") = Sheets("Eingabe").Cells(lozeile, 16)     'Zielort
'        .Select
End With


End Sub

 

Hallo KlausPeter,

- Dim tbl As ListObject (ist überflüssig, da nicht weiter verarbeitet)
- TageDR (ist nicht deklariert)
usw.
Nutzt du Listobjekte, dann sollte man es auch dementsprechend programmieren.
Lade eine adäquate Beispieldatei mit anonymisierten Datensätzen hoch. Dann kann man auch eine praktikable Lösung anbieten.

Gruß Uwe

 

Guten Morgen Uwe

Danke für die Hinweise. Dubioser Weise funktioniert der Code nach einem Neustart von Excel wieder. Die fehlenden oder falschen Codeteile habe ich gelöscht bzw. behoben.

Grüße
Klaus