Daten aus geschlossener Arbeitsmappe kopieren

Sarah · 2003-10-13T12:28:42+00:00

Hi, ich habe das Problem, dass ich aus einer Arbeitsmappe Daten aus einer geschlossenen Arbeitsmappe herauskopieren will. Ich habe folgendes Makro geschrieben: Private Sub CommandButton1_Click() Workbooks.Open FileName:="C:\WINNT\...\Mappe2.xls" Workbooks("Mappe2").Activate Worksheets("Tabelle1").Select Range("B3").Select Selection.Copy ActiveWindow.Close Range("B9").Select ActiveSheet.Paste End Sub Wenn ich dieses Makro ausführen will bekomme ich jedoch folgende Fehlermeldung:"Die Select-Methode des Range-Objektes ist Fehlerhaft". Kann mir irgendwer sagen, wie ich das beheben kann oder kenn einen besseren Weg? Danke schon mal Sarah

Hallo Sarah

für eine einzelene Zelle

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 = "D:\Eigene Dateien\Hajo\"
f = "Adresse.xls"
s = "Adresse"
r = "B4"
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)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Hallo Sarah,

uuups - ich habe gerade festgestellt, dass mir wohl eine eckige Klammer vor dem Dateinamen verlorengegangen ist.
Außerdem musst Du natürlich die drei Punkte in der Zeile

strSource = "'C:\WINNT\...\[Mappe2.xls]Tabelle1'!R3C2"

schon durch den/die richtigen Ordner des korrekten Pfades Deiner Quelldatei ersetzen.

Funktion und Makro gehören in ein normales Standard-Modul.
Das Makro geht in die Funktion und holt sich da den Wert aus der geschlossenen Datei (mit einer dateiübergreifenden Verknüpfung vergleichbar).
Das "R3C2" am Ende bedeutet Row (Zeile) 3, Column (Spalte) 2; dies entspricht der Zelladresse "B3".
Hier noch mal Funktion und korrigiertes Makro:


Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function


Sub Sarah()
Dim strSource As String
strSource = "'C:\WINNT\...\[Mappe2.xls]Tabelle1'!R3C2"
Range("B9").Value = xl4Value(strSource)
End Sub

Gruß WernerB.

Daten aus geschlossener Arbeitsmappe kopieren

Forumthread: Daten aus geschlossener Arbeitsmappe kopieren

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial