ich bin blutiger VBA-Anfänger.
Ich möchte die Werte aus der ersten Spalte (A) in bestimmten Abschnitten jeweils in die nächsten Spalten ausschneiden/einfügen.
(z.B.: Die Werte A101-A200 in Spalte B, die Werte A201-A300 in Spalte C, die Werte A301-400 in Spalte D, etc.) In der Spalte A stehen ziemlich viele Werte drin (ca. 15000 Zeilen). Hab da bis jetzt schon kurz was dazu programmiert:
Sub copy_cols()
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
Für 25 Vorgänge funktioniert das, dann sind die Spalten bis Z gefüllt. Dann beginnen aber die Spalten mit der Bezeichnung AA, AB, AC, etc.
Wie kann ich diese ansprechen? Und würde das mit einer IF-Then-Anweisung funktionieren?
Ich hab das schonmal versucht, aber irgendwas is noch falsch.
Könnt Ihr helfen?
Vielen Dank!
Viele Grüße
Kathrin