Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche kopieren - benannte Bereiche kopieren

Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 09:40:46
Peter
Guten Tag
Mit der ersten Codezeile kopiere ich einen Range von einer Datei in die andere.
Nun möchte ich einen benannten Bereich ebenso kopieren. Wie muss ich die zweite Codezeile anpassen, dass das funktioniert? Nach meinem Verständnis müsste das ja auch funktionieren, selbst wenn der Bereich "nana" in der Quell- und Zieldatei nicht im gleichen Sheet sind, solange der Range genau gleich gross ist.
Danke für eine Antwort.
Gruss, Peter
wbQuelle.Worksheets("Deckblatt").Range("A1:f20").Copy wbZiel.Worksheets("Deckblatt").Range("A1:f20")
wbQuelle.Range("nana").Copy wbZiel.Range("nana")

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 10:32:00
Erich
Hallo Peter,
workbook hat keine Range-Eigenschaft, deshalb kommt da Fehler 438.
Probier mal 

wbQuelle.Names("nana").RefersToRange.Copy wbZiel.Names("nana").RefersToRange

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 10:38:25
Luschi
Hallo Peter,
falls die beiden mit 'nana' benamten Bereiche nicht gleich groß sind, dann funktioniert das so:
wbQuelle.Names("nana").RefersToRange.Copy wbZiel.Names("nana").RefersToRange.Resize(1, 1)
Gruß von Luschi
aus klein-Paris
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 11:53:00
Erich
Hi Peter und Luschi,
dann gehts auch schon so:
wbQuelle.Names("nana").RefersToRange.Copy wbZiel.Names("nana").RefersToRange(1)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 12:44:00
Luschi
Hallo Erich,
danke für diesen Hinweis, man muß immer wieder über die Möglichkeiten von Excel-Vba staunen.
Gruß von Luschi
aus klein-Paris
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 14:37:47
Peter
Hallo Erich und Luschi
Vielen Dank euch beiden!!
Es funktioniert.
Gruss, Peter
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 18:10:00
Peter
Hallo
Ich hatte Probleme, wenn der benannte Bereich "nana" eine verbundene Zelle ist. Gibt es eine Möglichkeit, dass Excel auch einen solchen Range kopieren kann?
Gruss, Peter
wbQuelle.Names("nana").RefersToRange.Copy wbZiel.Names("nana").RefersToRange(1)
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 20:48:00
Erich
Hi Peter,
klappt das nicht so?
wbQuelle.Names("nana").RefersToRange.Copy wbZiel.Names("nana").RefersToRange
Sind verb. Zellen in der Quelle, im Ziel oder in beiden?
Lässt sich der Bereich überhaupt per Hand in den Zielbereich kopieren?
(Ich probier das jetzt nicht aus - mag diese verbundenen Zellen eh nicht ;-))
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S.: Wie verletzt muss eine Zelle sein, dass man sie verbínden muss?
Anzeige
AW: Bereiche kopieren - benannte Bereiche kopieren
04.12.2008 21:14:10
Peter
Hallo Erich
Nein, leider habe ich es so nicht geschafft.
Händisch lässt sich das kopieren.
Die "P.S." hat literarische Züge! Ich mag verbundene Zellen auch nicht - manchmal sind sie unumgänglich, so z.B. wenn man mit Excel Textdokumente (mit Blocksatz) erstellt, jedoch ab und zu mal zwei-spaltig arbeiten muss. Dafür wäre ja Word bestimmt, doch wenn nebst Text viel Zahlen im Spiel sind, ist halt Excel immer noch die bessere Lösung.
Gruss, Peter
AW: Beispielmappe?
04.12.2008 21:28:54
Erich
Hi Peter,
kannst du eine Beispielmappe (zwei Blätter, zwei benannte Bereiche, Testmakro) hochladen?
(Das würde auch gleich die Frage beantworten: Sind verb. Zellen in der Quelle, im Ziel oder in beiden?)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Beispielmappe?
04.12.2008 21:54:34
Peter
Hallo Erich
Es ist nicht ganz einfach, aus dieser relativ grossen Datei eine Beispielsmappe zu generieren.
Nachstehend habe ich den Code kopiert. Die Quell- und die Zieldatei sind von der Formatierung her identisch. "EBreite10" ist sowohl in der Quelldatei als auch in der Zieldatei A21:E21 in der Tabelle "Bericht1" (mit A21:E21 konnte ich kopieren; vielleicht ist ja das Problem, dass die Rangeabfrage der verbundenen Zellen nur "A21" ergibt)
Clever wäre, wenn ich wirklich den Range "EBreite10" in die Ziel-Arbeitsmappe hineinkopieren könnte (trotz verbundenen Zellen), wenn es ja im Originalfile nur um 1 verbundener Zellbereich ginge, liesse sich das ja problemlos händisch machen.
Gruss, Peter

Public Sub KopierenVonDaten()
Dim wbQuelle As Workbook
Dim wbZiel As Workbook
Set wbQuelle = ThisWorkbook
Call TabsEinblenden(wbQuelle)   'Tabellen einblenden
Set wbZiel = FuObFileToRefresh  'Funktionsaufruf (Rückgabewert ist ein Objekt)
Call TabsEinblenden(wbZiel)        ‘Tabellen einblenden
wbQuelle.Worksheets("Deckblatt").Range("A1:f30").Copy wbZiel.Worksheets("Deckblatt").Range("A1: _
f30")
wbQuelle.Worksheets("Bericht1").Range("A21:e21").Copy wbZiel.Worksheets("Bericht1").Range("A21: _
E21")
wbQuelle.Names("eUe").RefersToRange.Copy wbZiel.Names("eUe").RefersToRange ‚ist nur eine Zelle
wbQuelle.Names("oUe").RefersToRange.Copy wbZiel.Names("oUe").RefersToRange
'wbQuelle.Names("EBreite10").RefersToRange.Copy wbZiel.Names("EBreite10").RefersToRange  ' _
entspricht („A21:E21“)
Set wbZiel = Nothing
Set wbQuelle = Nothing
End Sub


Anzeige
AW: Beispielmappe?
04.12.2008 22:09:00
Erich
Hi Peter,
da könnte ich mir vorstellen, dass sich etwas mit MergeCells und MergeArea machen ließe.
Könntest du dir die Mühe machen, eine neue Beispielmappe zu bauen (nicht "aus dieser relativ grossen Datei")?
Daran könnte man sehen, welche Bereiche mit "eUe" usw. benamst sind,
sehen, wo der beisherige Code klemmt, testen, ... (aber nicht mehr heute...)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Beispielmappe?
04.12.2008 22:44:51
Peter
Hallo Erich
Ich werde etwas bauen und wohl in einen neuen Beitrag packen.
Vielen Dank für die Unterstützung.
Gruss, Peter

299 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
4
8
10
2
3
7
6
1
6
3
4
16
11
14
5
4
2
4
2
4
1
8
8