Herbers Excel-Forum - das Archiv

Namenfeld mit kopieren



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Namenfeld mit kopieren
von: woolfy


Geschrieben am: 22.05.2002 - 14:35:54

Ich möchte einen Range aus einer TabelleX in Mappe "A" in eine TabelleY in Mappe "B" kopieren, jedoch kopiert er mir nicht die "Namenfeld"er mit!
Wenn ich die komplette Tabelle kopiere, dann klappts anstandslos.
Aber ich brauche bloss einen Teil aus TabelleX und möchte ihn an TabelleY anhängen.
Ist dies generell nicht möglich, oder bin ich wiedermal zu blind?

Danke im Vorraus für jede Hilfe

MfG
woolfy


nach oben   nach unten

Re: Namenfeld mit kopieren
von: Rolf, Lgh.


Geschrieben am: 22.05.2002 - 16:20:54

Hallo,
wie sieht Dein Code aus?
Gruss Rolf
PS: Bitte FAQ beachten: https://www.herber.de/bbs/faq.htm
"NickNames sind nicht erwünscht. Diese Frager werden bei der Beantwortung nicht gerade bevorzugt behandelt. Nenne zumindest Deinen Vornamen, damit man Dich ansprechen kann."
nach oben   nach unten

Re: Namenfeld mit kopieren
von: Jens W. alias woolfy


Geschrieben am: 22.05.2002 - 17:19:07

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

nach oben   nach unten

Re: Namenfeld mit kopieren
von: Rolf, Lgh.
Geschrieben am: 22.05.2002 - 20:26:59

Hallo Jens,
ich würde den Bereichsnamen mit eintragen ggf. vorher abfragen:

Gruss Rolf
 nach oben

Excel-Beispiele zum Thema "Namenfeld mit kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren