Office - Word, Excel und Co. 9.706 Themen, 40.867 Beiträge

excel sheets kopieren und umbenennen laut Felder

logo_3 / 2 Antworten / Flachansicht Nickles

Hallo,

ich habe mehrere Felder in einer Spalte mit namen zb. "1";"1AB";"22Q" usw.

ich möchte einen sheets kopieren und den namen ändern laut die Felder in der Spalte.
-----------------------------------------------------------------
y = 1
x = 4
For zähler = 1 To 40

var = activesheets.Cells(y, x).Value
Sheets("layout").Select
Sheets("layout").Copy before:=Sheets("layout")
Sheets("layout (2)").Name = var
y=y+1
next zähler
----------------------------------------------------------------

die struktur "var = activesheets.Cells(y, x).Value" ist sicherlich faslch man müsste hier SET benutzen.
ich komme nicht drauf wie man den wert eines Feldes in eine Variable zuweisen.


danke

logo__3


bei Antwort benachrichtigen