Du hast da eine Durcheinander:
Man kann zwar Schleifen in andere Schleifen EINBETTEN, aber ÜBERLAPPEN geht nicht,
ALSO
Code:
FOr merker = 1 to 2                 ' Äussere Schleife 
    for merker2 = 1 to 1            ' innere Schleife 
          ... 
    next merker2                       'ende innere Schleife 
Next merker                            ' Ende äussere Schleife
Bei dir heißt das aber

Code:
          ... 
    next merker                       '?§$%$
Next merker2                         ' ?§$%$
Das bringst du den Bascom in die Bredouille