Sheets("Tabelle1").Range("A1).Value = Sheets("Tabelle2").Range("C10").Value
Sheets("Tabelle1").Range("A6).Value = Sheets("Tabelle2").Range("C12").Value
usw. (diverse Zuordnungen ohne System dahinter)
Im Anschluss soll nach einem Ausdruck ein Loop erneut das Formular durchlaufen und ausfüllen, nur dass diesmal die Daten in D statt C stehen. Danach E usw., theoretisch bis über Z hinaus.
Mein Problem ist, wie ich den Loop durch die Spalten laufen lasse.
For i = A to AA
und
...Sheets("Tabelle2").Range(i & "12").Value
wird ja sicher nicht gehen.