[Excel] VBA Code funktioniert nicht

[Jumpanino]

Hi

Also ich habe ein Tabellenblatt. In dem Stehen in zwei nebeneinanderstehenden Spalten Zahlen. Diese sollen mir als Koordinaten dienen. Mittels VBA will ich diese auslesen und mittels Cells in die jeweilige Koordinate ein X schreiben lassen. Jetzt ist es so, dass ich schon ein Stück weit gekommen bin aber leider geht meine Schleife nicht. Wenn ich das Makro ausführe, dann schreibt er die erste Koordinate und dann nix mehr. Ich prüfe mit ANZAHL noch wieviel Zeilen es insgesammt sind damit die Schleife per Variable bestimmbar ist.
Ich kopiere also aus einer Liste Koordinaten in Spalte A und B. Dies soll mir dafür dienen, dass VBA in die jeweilige Koordinate ein X schreibt und das solange macht wie es Zeilen mit Koordinaten gibt.

Spalte
A B
197 160
386 45

Sub Schaltfläche2_Klicken()


    
    MaxAnzahl = Range("B7").Value

    
    
        Index = 9
        
        Wert_Spalte = Cells(Index, 3).Value
        Wert_Zeile = Cells(Index, 4).Value

    For iCounter = 1 To 90

        Index = Index + 1

    
        Cells(Wert_Zeile, Wert_Spalte) = "X"

    Next iCounter
    
    
End Sub

Vielen Dank für eure Hilfe

 

[Jumpanino]

So,

habs nu selbst hinbekommen

Sub Schaltfläche2_Klicken()


MaxAnzahl = Range("B7").Value


For iCounter = 9 To MaxAnzahl


Wert_Spalte = Cells(iCounter, 3).Value
Wert_Zeile = Cells(iCounter, 4).Value

Adresse = Cells2Range(Wert_Zeile, Wert_Spalte)

Range(Adresse).Select
ActiveCell.FormulaR1C1 = "X"


Next iCounter