Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus geschlossener Arbeitsmappe

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


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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige