Office: Verschachtelte Loop Schleife

Hallo zusammen,

Ich möchte gerne mehrere Kopfgesteuerte Loop Schleifen mit einer fußgesteuerten Schleife wiederholen.

Code:

Do

        Do Until Bestaetigung = 6
            
            Abfrage = InputBox("Bitte eingeben:", "Eingabe")
            Bestaetigung = MsgBox("Eingabe " & Chr(13) & Abfrage & Chr(13) & "richtig?", vbYesNo)
            
            If Bestaetigung = 7 Then
                MsgBox ("falsch eingegeben")
            End If
            
            If Bestaetigung = 6 Then
                ActiveCell.Value = Abfrage
            End If
             
        Loop
        
        If ActiveCell.Value <> "" Then
             Wiederholung = MsgBox("Weitere Eingabe?", vbYesNo)
        End If
                
Loop Until Wiederholung = 7

So würde dann der Schnipsel vereinfacht aussehen, wobei in der fußgesteuerten Schleife dann eigentlich mehrere Schleifen enthalten sind. Das Problem: Wiederholt wird nur die Abfrage der "Wiederholung". Setze ich die If Schleife in die Kopfgesteuerte Schleife, stürzt Excel 2007 ab.
Ist es also generell möglich eine solche Programmstruktur auszuführen oder bleibt mir als Lösung nur eine Sprungmarke? Auch mit Userformen wäre es kein Problem, diese darf ich allerdings nicht verwenden.

Danke schonmal für eure Hilfe und liebe Grüße

 

Also,habs gelöst.
Fehler lag in den Kopfgesteuerten Schleifen zwischen der großen Schleife, da ich ja nicht die Werte der Variablen dazwischen jedes mal gelöscht habe, hat er die Schleife gar nicht mehr ausgeführt. Rätselhaft bleibt mir nur noch warum das Ding so gnadenlos abstürzt...
ABER: Problem gelöst

 

Hallo correx,

meinst Du damit, dass das Excel-Makro und Excel abstürzt, oder meinst Du, dass das Excel-Makro keine Reaktion mehr zeigt?

Meiner Meinung nach kann in diesem Fall nur die 2. Möglichkeit eintreten.
Das Makro zeigt deshalb keine Reaktion, weil es unter bestimmten Umständen in der äußeren Schleife hängen bleibt, ohne Chance sie jemals wieder zu verlassen außer durch einen Tastatur-Break.
Tritt zB. ein, wenn die aktive Zelle leer ist und in der Variablen 'Wiederholung' der Wert 6 (=vbYes) enthalten ist.

In solch ungeklärten Fällen, in denen das Makro etwas macht, was man sich vorerst nicht erklären kann, hilft es stets, wenn man in einer Makrozeile einen Breakpoint setzt und dann mit der Einzelschritttaste F8 Zeile für Zeile abarbeitet, um so zu sehen, wie sich die Variablen und das Makro verhalten.