Laufzeitfehler 9

Hallo,
ich verzweifle langsam. Bin relativer VBA Neuling und versuche verschiedene Makros aus VBA Büchern nachzustellen. Ich nutze Excel 2010.
Folgende Wunschkonstellation:
Ich habe 2 Excel Dateien, DateiA.xlsx mit Tabellenblatt "Quelle" und DateiB.xlsm mit Tabellenblatt "Ziel".
In der Tabelle "Quelle" steht in Feld A1 einfach nur "abc".
Diesen Text möchte ich mit folgendem Befehl aus DateiA.xlsx Tabellenblatt "Quelle" A1 nach DateiB.xlsm Tabellenblatt "Ziel" nach A1 kopieren.
Workbooks("D:\VBA\DateiA.xlsx").Sheets("Quelle").Range(Cells(1, 1), Cells(1, 1)).Value.Copy _
Workbooks("D:\VBA\DateiB.xlsm").Sheets("Ziel").Range(Cells(1, 1), Cells(1, 1))
Ich würde hier gerne mit Cells arbeiten, um das ganz über Variablen nachher etwas variabler gestalten zu können. Ich habe aber auch mal folgendes probiert mit gleicher Meldung.
Workbooks("D:\VBA\DateiA.xlsx").Sheets("Quelle").Range("A1").Value.Copy _
Workbooks("D:\VBA\DateiB.xlsm").Sheets("Ziel").Range("A1")
Der Aufruf des VBA Codes findet aus der geöffneten DateiB.xlsm statt.
Muss DataA.xlsx erst geöffnet werden, damit der Copy Befehl funktioniert? Das steht im Buch so nämlich nicht drin.
Um es innerhalb einer Arbeitsmappe mal grundsätzlich auszuprobieren, ohne das Problem _
mit der ungeöffneten 2. Excel Datei zu haben, habe ich in der Datei DateiB.xlsm mal das _ Tabellenblatt "Tabelle1" angelegt und dort in A1 "abc" eingetragen. Mit folgendem simplen Code wollte ich ausprobieren, ob ich den Inhalt von A1 mit debug.print ausgeben kann. Auch da kommt leider der Laufzeit 9 Fehler... Ich kapiers einfach nicht...


Sub Verarbeitung()
Dim a As String
a = Workbooks("D:\VBA\DateiB.xlsm").Sheets("Tabelle1").Cells(1, 1).Value
Debug.Print a
End Sub

Hoffe mir kann jemand weiterhelfen.
Die Sache mit den 2 Dateien und den Cells Angaben in der Range wäre das Optimum, aber ich würde es gerne überhaupt erst mal ans Laufen kriegen...

Hallo Werner,
Du kannst aus einer geschlossenen Datei nur kompliziert was auslesen, benutze Formel.

Option Explicit
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'? t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle       As String
Dim Zeilen          As Long
Dim Spalten         As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ung?ltig!", vbExclamation, "Get data from  _
closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad            As String
Dim Dateiname       As String
Dim Blatt           As String
Dim Bereich         As String
Dim Ziel            As Range
Pfad = "L:\Eigene Dateien\Hajo\Internet\Test\2009\"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1"  ' von welcher Tabelle soll er holen?
Bereich = "A1:B9"   ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1")  ' in welchen Bereich soll er kopieren? Genauer gesagt:  _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Forumthread: Laufzeitfehler 9

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial