Daten aus geschlossener Arbeitsmappe

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Daten aus geschlossener Arbeitsmappe"