Herbers Excel-Forum - das Archiv

Daten aus geschlossener Arbeitsmappe

Bild

Betrifft: Daten aus geschlossener Arbeitsmappe
von: Josef

Geschrieben am: 16.03.2005 06:34:40
Guten Morgen!
Ich möchte aus einer geschlossenen Arbeitsmappe die Daten vom Arbeitsblatt "ABSCHNITTE" in einer geöffneten Arbeitsmappe in ein Tabellenblatt mit dem Namen "ABSCHNITTE" mittels VBA kopieren.
würde es hier bitte eine Lösung dafür geben?
Danke
Josef
Bild

Betrifft: AW: Daten aus geschlossener Arbeitsmappe
von: Hajo_Zi

Geschrieben am: 16.03.2005 07:08:49
Hallo Josef,
ein Ansatz für einen Wert.
Option Explicit
' von Alf Herber Forum
' https://www.herber.de/forum/archiv/52to56/t52834.htm#52840
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "E:\Eigene Dateien\Hajo\"
f = "Adresse.xls"
s = "Adresse"
r = "B4"
' bennanter Bereich ergänzung von Nikhil Milo
' r = "Heinze"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub
Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   bennanter Bereich ergänzung von Nikhil Milo
'     arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Daten aus geschlossener Arbeitsmappe
von: Josef
Geschrieben am: 16.03.2005 07:36:44
Hallo Hajo!
Danke für Deine Hilfe. Werde es mir gleich anschauen.

Josef
Bild

Betrifft: Nachfrage an Hajo_Zi
von: WernerB.

Geschrieben am: 17.03.2005 14:18:31
Hallo Hajo,
ich habe mit Deinem Makro und der Funktion nun eine geraume Weile experimentiert und folgendes festgestellt:
1. Die Version mit dem Auslesen einer Einzelzelle (Adresse) funktioniert problemlos.
2. Die Version mit dem Auslesen eines benannten Bereiches funktioniert nur dann, wenn der benannte Bereich aus einer einzelnen Zelle besteht; besteht dieser jedoch aus mehreren Zellen, so wird nur "#WERT" in die Zielzellen eingetragen.
Kann es sein, dass der auszulesende benannte Bereich in Deinem Beispiel-Makro nur aus einer einzelnen Zelle bestehen darf oder ist da meine Erwartungshaltung doch etwas zu hoch geraten?

Gruß
WernerB.
 Bild
Excel-Beispiele zum Thema "Daten aus geschlossener Arbeitsmappe"
MsgBox mit Werten aus geschlossener Arbeitsmappe Verweise auf Zellen in geschlossener Arbeitsmappe erstellen
Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe Wert aus geschlossener Arbeitsmappe in UserForm-TextBox
Start des Makros nach Laden der Arbeitsmappe Prüfung, ob eine Arbeitsmappe geöffnet ist
Die "personl"-Arbeitsmappe ausgeblendet speichern Blätter in andere Arbeitsmappen kopieren
Variablenübergabe in andere Arbeitsmappen SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen