|
Hallo Zusammen,
Ich habe mir mittlerweise ein Makro gebaut, welches mir eine Muster Tabelle kopiert und unter neuem Namen wieder anfügt. Auf diese Weise kann ich nun sehr schnell für jede Kategorie ein Blatt generieren, in dem unter anderem eine SVERWEIS Funktion liegt.
Nun schaffe ich es leider nicht, den Spaltenindex bei jedem neuen Blatt um "1" zu erhöhen.
Code bisher
Sub Blatt_Kopieren_Name_Neu()
For n = 1 To 66
Sheets("Sample Sheet").Select
Sheets("Sample Sheet").Copy After:=Sheets(2)
Sheets("Categories").Select
Name = Range("A" & n).Text
Sheets("Sample Sheet (2)").Select
Sheets("Sample Sheet (2)").Name = Name
Next n
End Sub
Dies wollte ich nun hiermit kombinieren und bin gescheitert
.Range("B3").FormulaR1C1 = "=SVERWEIS(A3;Toolbox!$1:$1048576;2;FALSCH)"
.Range("B3").FormulaR1C1 = "=SVERWEIS(A3;Toolbox!$1:$1048576;2+n;FALSCH)"
Könnt Ihr mir hier vielleicht etwas Licht ins wochenendliche Dunkel bringen?
LG und Danke
Kai
|