Ich brauche eure Hilfe!!
Ich möchte Daten aus einer geschlossenen Arbeitsmappe in die aktive Arbeitsmappe kopieren. Mit folgendem Code aus dem Forum funktioniert dies auch super, allerdings nur für eine Zelle.
Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function
Sub Kopieren()
Dim strSource As String
strSource = "'C:\Dokumente und Einstellungen\Dirk R\Desktop\[Datenbank.xls]Tabelle1'!R1C1"
Range("A1").Value = xl4Value(strSource)
End Sub
Ich möchte allerdings einen Bereich kopieren: A1:D22.
Ich tüftele nun schon eine ganze Weile rum, aber es will mir nicht gelingen!?
Ich habe an folgenden Code gedacht, der aber nicht funktioniert:
Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function
Sub Kopieren()
Dim strSource As String
Dim I, J As Integer
For I = 1 To 4
For J = 1 To 22
strSource = "'C:\Dokumente und Einstellungen\Dirk R\Desktop\[Datenbank.xls]Tabelle1'!" & _
Cells(J, I)
Cells(J, I).Value = xl4Value(strSource)
Next J
Next I
Was mache ich falsch?
Und wie schreibe ich das genaue Gegenstück?
Ich möchte auch Daten in die geschlossene Arbeitsmappe schreiben!
Für eure Hilfe wäre ich sehr dankbar!
MfG
Dirk
End Sub