Namenfeld mit kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


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:

Sub test()
  Names.Add Name:="Bereichsname", _
            RefersTo:=ActiveSheet.UsedRange
  MsgBox Names(1).NameLocal
  MsgBox Names("Bereichsname").RefersTo
End Sub

Gruss Rolf
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Namenfeld mit kopieren"