Hallo Ihr lieben Helfer und Helferinnen,

Excel bringt bei mir Loop ohne Do Fehler bei folgenden Code:

If AktuelleSpalte < 22 Or Int((AktuelleSpalte - 22) / 4) <> (AktuelleSpalte - 22) / 4 Then

Antwort = MsgBox("Diese Schaltfäche funktioniert nur in den Summenspalte, nicht in den Spalten der Miet-, Nebenkosten- oder Garagenzahlungen." + RT2 + "Soll in die nächste Summenspalte rechts gewechselt werden?", vbYesNo)

If Antwort = vbNo Then
Exit Sub
Else
Do While ((AktuelleSpalte - 22) / 4) <> (AktuelleSpalte - 22) / 4
AktuelleSpalte = AktuelleSpalte + 1 ' Zähler hochzählen.
If ((AktuelleSpalte - 22) / 4) <> (AktuelleSpalte - 22) / 4 Then ' Wenn Bedingung = True,
Range(ActiveCell.Row, AktuelleSpalte).Select
Exit Do ' Innere Schleife verlassen.
Loop

End If

End If

==========
Wenn der User in die Spalten 22,26,30,34, ... geklickt hat, dann soll die Aktion passieren.

Wenn er z.B. in 19,20,21 geklickt hat dann soll Excel das merken (tut es) und dann die Var. AktuelleSpalte solange hochzählen bis 22 erreicht ist.

Dies müßte doch mit der Do While Loop Anweisung gehen, die habe ich aus der Hilfe kopiert und meine Dinger nur noch eingebaut.

Woher kommt der Fehler?

Vielen Dank fürs Lesen, Eindenken und Antworten!

liebe e-Grüße
Elmar