Re: Namenfeld mit kopieren
22.05.2002 17:19:07
Jens W. alias woolfy
Danke für den Hinweis...
Ich kopiere mir eine Art Vorlage:
Workbooks("Map").Worksheets("Vorlage1").UsedRange.Copy
Und möchte diese mit anderen Vorlagen in einer Tabelle zusammenpuzzeln:
Workbooks("Map").Worksheets("Endergebnis").Range("ANHÄNGEPUNKT").PasteSpecial Paste:=xlPasteAll
Dabei lege ich eine neue Mappe an, da pro Mappe nur ein "Names"-Array existiert und ein "Namenfeld"-Verweis nicht 2mal (durch kopieren) pro Mappe existieren kann.
PS: dei Anweisungszeilen sind nur eine vereinfachte Darstellung.
Das original sieht dann irgendwie so aus:
WrkBook = ActiveWorkbook.Name
Workbooks.Add
WrkBookNew = ActiveWorkbook.Name
Workbooks(WrkBook).Worksheets(CStr(Workbooks(WrkBook).Worksheets("Ini").Range("tVorlageKopf"))).Copy before:=Workbooks(WrkBookNew).Worksheets("Tabelle1")
ActiveSheet.Name = Bestellnummer
...
Workbooks(WrkBook).Worksheets(CStr(Workbooks(WrkBook).Worksheets("Ini").Range("tVorlageRumpf"))).UsedRange.Copy Destination:=Workbooks(WrkBookNew).Worksheets(Bestellnummer).Range("ENDE_KOPF")
...
Workbooks(WrkBook).Worksheets(CStr(Workbooks(WrkBook).Worksheets("Ini").Range("tVorlageFuß"))).UsedRange.Copy Destination:=Workbooks(WrkBookNew).Worksheets(Bestellnummer).Range("ENDE_RUMPF")
...
danke mfg jens