|
Hey ihr,
habe folgendes Makro:
Sub Test()
Dim sht1 As Worksheet
Set sht1 = Sheets("Muster")
Sheets(3).Activate
sht1.Copy before:=ActiveSheet
ActiveSheet.Name = Cells(1, 7)
End Sub
Wenn ich das Makro ausführe, erstellt es mir eine Kopie meines Muster-Tabellenblattes und setzt an die für mich gewünschte Position. Es wird nach dem Zelleninhalt von Cells(1,7), also G1 benannt. Nun möchte ich aber, dass nach jeder Erstellung eines Blattes die Zelle unterhalb angesprochen wird, also Cells(2,7), Cells(3,7) usw. und dementsprechend benannt wird.
Meine Idee ist dies mit einer For-Schleife zu lösen, also im Prinzip so ähnlich:
Dim n as Integer
Dim name as Text
For n=1 to 99
cells(n,7).value=name
Next n
Und unten bei ActiveSheet.Name = Cells(name,7) zu schreiben. Aber durch längeres Rumprobieren komme ich auf keinen grünen Zweig, ich wäre über jegliche Hilfe erfreut.
Beste Grüße!
|