Excel Macro Problem mit der Zellenauswahl in einer Schleife

[fdsonne]

Hallo Leute,

ich sitz hier gerade vor nem kleinen Problem was mich schon seit ewigkeiten beschäftigt und nun aber bald mal gelöst werden muss.

Und zwar will ich nem Schleifendurchlauf je eine Zelle auswählen und in diese einen Wert eintragen.
Das ist ja so erstmal kein Problem.

for x=1 to 10
    range("A" & x)
    ...
next x

somit kann ich ja einfach in einer Schleife die Zellen A1-10 durchlaufen...
Mein Problem ist nun, ich will aber nicht Zeilenweise weiterrutschen, sondern Spaltenweise...
Ich brauch also irgendwas, was mir erlaubt den Buchstaben "A" mit jedem Spaltendurchlauf um eins zu erhöhen!?
Und genau dort scheiters, hat da jemand vllt ne passende Lösung parat... ich hab schon diverse Dinge probiert, aber irgendwie bekomm das nicht hin.
Ich hoff mal ihr könnt mir da helfen

THX
fdsonne

 

[S3ri0uS]

Versuche es mal damit...

Sub test()
For i = 1 To 10
Worksheets("Tabelle1").Range(Cells(1, 1), Cells(1, i)) = "1"
Next i
End Sub

Mit der Option [Range(Cells(Zeile, Spalte)] kommst du weiter als mit
den absoluten Zellbezeichungen!

Dies hilft dir bei einem vorher festgelegten Bereich.

So geht es aber auch...

Sub test()
For i = 1 To 10
Worksheets("Tabelle1").Cells(1, i) = "1"
Next i
End Sub

 

[fdsonne]

ohh THX das klingt doch schon mal gut...
Ich werds mal probieren