Zelle AA1 ansprechen

[larsbaer]

Hallo Excelfreunde,

ich bin blutiger VBA-Anfänger und habe ein Problem mit dem Einfügen von bestimmten Zellbereichen in die Spalten. Zum besseren Verstehen:
Ich habe in der Spalte A ganze viele Werte alle runterwerts drin stehen (ca. 15000 Zeilen). Jetzt möchte ich immer die nächsten 100 Werte in die nächste Spalten kopieren (z.B. die Werte von 101-200 in Spalte B, die Werte von 201-300 in Spalte C, die Werte von 301-400 in Spalte D, etc.)
Nach 25 Spalten ist das einfache Alphabet aber zu Ende und es beginnen die Spalten AA, AB, etc.
Wie kann ich diese ansprechen?
Bis jetzt habe ich folgendes programmiert:
i = 0
Do
zeilenbeginn = 1 + i * 100
zeilenende = 100 + i * 100
zeilen = "A" & zeilenbeginn & ":A" & zeilenende

spalte = Chr(i + 65) & "1"

Worksheets("Tabelle1").Range(zeilen).Select
Selection.Cut
Worksheets("Tabelle1").Range(spalte).Select
ActiveSheet.Paste
i = i + 1
Loop Until (IsEmpty(Range("A" & zeilenbeginn + 100)))
End Sub

Damit fügt er bis Spalte Z jeweils 100 Werte ein (macht also 25 Voränge). Dann beginnen die Spalten AA, und ab da geht es nicht mehr :-(

Könnt Ihr weiterhelfen? Ich dachte da an eine IF-Anweisung...

Danke schonmal im Voraus!

Viele Grüße
Kathrin

 

[duckdonald]

Mit der Cells() Funktion lassen sich die Spalten von Excel als Zahl ansprechen

Bei Range gibst du den Spalten- und Zeilenwert mit Buchstaben und Zahlen an.
z.B.: Range("A1", "A100").Select


Bei Cells werden auch die Spalten durchnumeriert. Also A=1, E=5, AA=27, usw.

z.B.: Range(Cells(1, 1), Cells(100, 1)).Select
(dies markiert den selben Bereich wie oben - jetzt können diese Zahlen aber durch Variablen ersetzt werden, mittels einfachen Zähler)


Gruß DuckDonald