Hallo ihr Lieben,

Ich habe gerade etwas Panik, da ich eine Do...Loop Schleife erstellt habe, die sich nie erfüllen wird.

Nun kann ich nicht mal ein Laptop ausschalten, da sich Exel nicht beenden lässt, da ich sich immer die Inputbox öffnet.

Kann die Prozedur auch nicht im VBA Editor umschreiben, weil sich die Inputbox sich nicht schließen lässt.

Wie schaffe ich nun das ganze zu beenden?

Ich wäre auch sehr dankbar für eure Hilfe:'D

Sub Aufgabe4b()
 Dim intzaehler As Integer
 Dim strEingabe As String
 intzaehler = 1
Do
 strEingabe = InputBox("Bitte geben Sie etwas ein.", "Eingabe")
 Cells(intzaehler, 1).Value = strEingabe
Loop Until intzaehler = intzaehler + 1
End Sub