Range nicht von Zeile abhängig

[maninweb]

Hallo,

Achmed, die Struktur der Tabellen ist so wie sie in der Beispieldatei zu sehen ist, meines Erachtens nicht optimal.
Es ist jetzt ein wenig schwierig, eine bessere Struktur vorzuschlagen, da die Mappe anscheinend reduziert wurde;
aber generell empfiehlt es sich nur in Ausnahmefällen unterschiedliche Formeln in eine Spalte zu haben.

Dein Code greift auf verschiedene Bereiche zu. Diese könntest Du auslesen, indem Du die Bereiche nicht im Code
als Text ablegst, sondern in einer Excel-Zelle. Beispiel:

Code:

Selection.AutoFill Destination:=Range("M15:M268"), Type:=xlFillDefault

würde dann werden zu ...

Code:

Selection.AutoFill Destination:=Range(ActiveSheet.Range("Z1").Value), Type:=xlFillDefault

In Z1 steht dann M15:M268 als Text oder als Ergebnis einer Formel: 

Code:

=ADRESSE(ZEILE(M15);SPALTE(M15);4)&":"&ADRESSE(ZEILE(M268);SPALTE(M268);4)

Der Code sieht insgesamt nach einer Makroaufzeichnung aus. Select-Anweisungen sind z.B. zu 99% überflüssig.
Ich kann Dir jetzt an dieser Stelle keinen VBA-Kurs geben, aber google mal danach. Und nach vollständige
Referenzierung in VBA.

Gruß