Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

benannten Bereich aus geschl. Mappe kopieren

Forumthread: benannten Bereich aus geschl. Mappe kopieren

benannten Bereich aus geschl. Mappe kopieren
10.12.2016 17:49:00
Fred
Hallo Excel-Experten,
ich habe ähnliche Frage schon hier im Forum gelesen,- finde aber den Beitrag nicht.
Es geht um folgendes:
Von meiner ausgehenden „Mappe2“ möchte ich per Button aus der geschlossenen „Mappe1.xlsm“ den benannten Bereich „Top_Werte“ in Tabellenblatt „Center“, in meinen benannten Bereich „Top_Werte“ ( Tabellenblatt „Start“) kopieren. Die „Mappe1.xlsm“ soll danach wieder geschlossen werden.
Kann mir jemand bitte einen Beispiel-Code nennen?
Gruß
Fred
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: benannten Bereich aus geschl. Mappe kopieren
10.12.2016 18:34:38
Nepumuk
Hallo,
ich bin mal davon ausgegangen dass sich beide Mappen im selben Ordner befinden:
Option Explicit

Public Sub Kopieren()
    
    Dim objWorkbook As Workbook
    
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    Set objWorkbook = Workbooks.Open(Filename:=ThisWorkbook.Path & _
        "\Mappe2.xlsx", UpdateLinks:=0, ReadOnly:=True)
    
    Call objWorkbook.Worksheets("Center").Range("Top_Werte").Copy( _
        Destination:=ThisWorkbook.Worksheets("Start").Range("Top_Werte").Cells(1, 1))
    
    Call objWorkbook.Close(SaveChanges:=False)
    
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: benannten Bereich aus geschl. Mappe kopieren
10.12.2016 19:33:36
Fred
Hallo Nepumuk,
ja! die Mappen befinden sich in einem Ordner.
Es funktioniert hervorragend,
danke für deine Mühe Nepumuk!
mfg
Fred

Forumthreads zu verwandten Themen

Adresse des benannten Bereiches ohne VBA
Peter

Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
06.01.2009 22:09:00
Thread-ID: 1037380
16 Beiträge
Anzeige
Benannten Bereich einfügen
Specke

Hallo Experten,
ich möchte einen benannten Bereich in einem anderen Tabellenblatt einfügen:
If InStr(1, Empfänger, "AAA") > 0 Then
Set c = Worksheets(2).Range("B1:B200").Find("BBB", LookIn:=xlValues)
intZeile = c.Row
Worksheets(3).Range("CCC").Copy
Worksheets(2).Range...
18.03.2009 14:38:22
Thread-ID: 1061434
3 Beiträge
Anzeige
Änderungen in benannten Zellen speichern
Peter

Hallo Forum,
in einer Uform wird ein Datensatz ausgewählt und in mehreren Mustertabellen
an benannte Zellen übergeben.
Ich suche nach einer Möglichkeit bei Änderung in einer benannten Zelle, diese Änderung
im augewählten Datensatz der Quelldatei zu speichern.
Da ich noch wen...
26.11.2009 16:12:52
Thread-ID: 1120122
2 Beiträge
benannten bereich auswählen
Peter

Hallo ich möchte mehrere Zellen auswählen denen ich einen Namen gegeben habe,
so geht es aber leider nicht. Was mache ich den falsch? ActiveSheet.Range(Array("Sitz01", "Sitz02", "Sitz03", _ "Sitz04" _ , "Sitz05", "Sitz06", "Sitz07", "Sitz08" _ , "Sitz09", "Sitz10", "Sitz11", "Sitz12" _ , "...
26.03.2010 20:55:02
Thread-ID: 1148786
11 Beiträge
Zellen einfügen in einem benannten Bereich
Avalon

Hallo zusammen,
um das Problem zu beschreiben, muss ich etwas ausholen und die Arbeitsmappe erläutern.
Vorgeplänkel
Die Arbeismappe besteht aus zwei Tabellenblättern, "A" und "B".
Im Tabellenblatt "A" wurde der Bereich C2:H10 als "Bereich_A" benannt. Im Tabellenblatt "B" wurde...
20.09.2013 12:55:03
Thread-ID: 1331691
3 Beiträge
Anzeige
Summenprodukt mit benannten Bereichen
Carsten
Hallo alle zusammen,
ich habe folgendes Problem:
Ich habe alle meine Spalten benannt. Jetzt möchte ich mit folgende Operation ausführen:
=SUMMENPRODUKT((Sector=D10)*$AC$10:$AJ$5009)+SUMMEWENN(Sector,D10,Specific_Return)
Die Spalten AC bis AJ sind ja alle benannt, aber eben Spaltenwe...
30.07.2014 16:46:26
Thread-ID: 1373210
7 Beiträge
Anzeige
Reihenfolge der umbenannten Files
Rolf

Hallo zusammen,
mit dem folgenden Makro lassen sich die Files eines Ordners schnell umbenennen ohne vorher die _ ursprünglichen Dateinamen auflisten zu müssen. Sub jojo() Dim Dateiname, Pfad As String, i As Integer On Error Resume Next Pfad = [D3] i = 1 Dateiname = Dir$(Pfad & "*") Do...
09.06.2015 11:03:17
Thread-ID: 1429948
6 Beiträge
Zeilen einfügen zwischen zwei benannten Bereichen
Vic

Hallo Excelprofis - ein gesundes und erfolgreiches neues Jahr wünsche ich zunächst.
Mein Problem: Ich möchte von Arbeitsblatt1 Spalte B1:E1 bis zur letzten Zeile nach Arbeitsblatt2, Spalte B6:E6 kopieren. Das Vertrackte dabei ist, dass ich in Arbeitsblatt2, Spalte B7:E7 bereits Daten habe,...
04.01.2016 17:59:42
Thread-ID: 1467035
6 Beiträge
in bestehenden Code benannten Bereich einfügen
MB12
Hallo zusammen,
nachdem mir Michael einen tollen Code "gezaubert" hat, den ich dann noch erfolgreich erweitert habe, fehlt mir noch eine Kleinigkeit. Ich starte einen Beitrag, da Michael einige Tage nicht da ist:
Ich möchte jeweils in die damit neu erzeugten Blätter (ca 30) einen benannten...
27.03.2016 20:48:49
Thread-ID: 1484507
8 Beiträge
Range in benannten Bereich auswählen
Kailash

Hallo!
in dem benannten Bereich [list_columns] möchte ich Zelle 1 bis zur letzten verwendeten Zelle markieren.
Hier einer meiner vergeblichen Versuche: Sub RangeinBereichMarkieren() With ChangeColumns [list_columns].Range(Cells(1, 1), [list_columns].Cells(Rows.Count, 1).End(xlUp)).Selec...
16.02.2017 19:13:43
Thread-ID: 1542086
14 Beiträge
Word-Link auf global benannten Bereich
AndFi

Ich habe in einer Excel-Datei einen Bereich benannt, und zwar nicht auf Tabellenblatt-, sondern Arbeitsmappenebene, weil ich vom Tabellenblattnamen unabhängig sein möchte.
Aus Excel heraus klappt es wunderbar, den Bereich in Zellbezügen oder VBA-Makros einfach mit seinem Namen anzusprechen....
15.07.2017 19:06:33
Thread-ID: 1569366
3 Beiträge
Eckzellen eines benannten Bereiches
ExcelDirk

Wertes Forum,
wie bekomme ich den die Eckzellen eines benannten Bereiches? Also Links oben, unten rechts oben, unten.
Sicherlich nicht mit Text-Funktionen aus dem Namen des benannten Bereiches herausoperieren?
Herzlichen Dank und sonnige kalte Grüße
Dirk
21.02.2018 12:53:09
Thread-ID: 1610281
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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