Daten aus geschlossener Arbeitsmappe

Forumthread: Daten aus geschlossener Arbeitsmappe

16.03.2005 06:34:40

Josef

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten aus geschlossener Arbeitsmappe

16.03.2005 07:08:49

Hajo_Zi
AW: Daten aus geschlossener Arbeitsmappe

16.03.2005 07:36:44

Josef
Nachfrage an Hajo_Zi

17.03.2005 14:18:31

WernerB.

AW: Daten aus geschlossener Arbeitsmappe

16.03.2005 07:08:49

Hajo_Zi

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.

AW: Daten aus geschlossener Arbeitsmappe

16.03.2005 07:36:44

Josef

Hallo Hajo!
Danke für Deine Hilfe. Werde es mir gleich anschauen.
Josef

Nachfrage an Hajo_Zi

17.03.2005 14:18:31

WernerB.

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.

Beliebteste Forumthreads (12 Monate)

Daten aus geschlossener Arbeitsmappe

Forumthread: Daten aus geschlossener Arbeitsmappe

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread