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
Anzeige
Inhaltsverzeichnis

benannten Bereich aus geschl. Mappe kopieren

Forumthread: benannten Bereich aus geschl. Mappe kopieren

benannten Bereich aus geschl. Mappe kopieren
10.12.2016 18: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 19: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 20: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 23:09:00
Thread-ID: 1037380
15 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 15:38:22
Thread-ID: 1061434
2 Beiträge
Ä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 17:12:52
Thread-ID: 1120122
1 Beitrag
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 21:55:02
Thread-ID: 1148786
10 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 14:55:03
Thread-ID: 1331691
2 Beiträge
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 18:46:26
Thread-ID: 1373210
6 Beiträge
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 13:03:17
Thread-ID: 1429948
5 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 18:59:42
Thread-ID: 1467035
5 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 22:48:49
Thread-ID: 1484507
7 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 20:13:43
Thread-ID: 1542086
13 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum