Laufzeitfehler 13 beim Löschen von Zelleninhalten
09.06.2015 18:59:13
Zelleninhalten
ich erhalte immer einen "Laufzeitfehler 13", wenn ich aus einem Rechnungsformular Zelleninhalte lösche und dann per Userform versuche eingegebene Daten in das Rechnungsformular einzugeben. Wenn ich aber die Variable i in einen Bereich auf dem Arbeitsblatt weiter runter setze, wo keine Eingaben oder Löschungen getätigt wurden, werden die Daten normal übertragen.
Kann ich irgendwas dagegen machen, das bei meiner Prozedur immer der Fehler erscheint?
Option Explicit
Private Sub cmdÜbertragen_Click()
Dim i As Long
i = 10
Worksheets("Rechnungsformular").Activate
Do Until IsEmpty(Cells(i, 1).Value) = True
i = i + 1
Loop
Cells(i, 1).Value = Cells(i - 1, 1).Value + 1
Cells(i, 2).Value = Me.txtKinder.Value
Cells(i, 3).Value = Me.txtHerren.Value
Cells(i, 4).Value = Me.txtDamen.Value
Cells(i, 5).Value = Me.lblTage.Caption
Cells(i, 6).Value = Me.lblGesamt.Caption
Cells(i, 7).Value = Me.lblMwst.Caption
Cells(i, 8).Value = Me.lblGesamtbrutto.Caption
Range("E5:H15").HorizontalAlignment = xlRight
End Sub