AW: Makro zum Datenübertrag
09.07.2003 07:57:02
WernerB.
Hallo Thommi,
das sollte mit einem Excel4-Makro zu schaffen sein (siehe nachstehendes "Strickmuster"); Makro und Funktion gehören in ein normales Standard-Modul.
Die auszulesenden Dateien müssen nicht (können aber auch) geöffnet sein!
Option Explicit
Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function
Sub Thommi()
Dim strSource As String
Dim wert As Double
Sheets("Tabelle1").Select
wert = 0
strSource = "'C:\TEMP\[MappeA.xls]Tabelle1'!R4C2"
wert = wert + xl4Value(strSource)
strSource = "'C:\TEMP\[MappeB.xls]Tabelle1'!R4C2"
wert = wert + xl4Value(strSource)
strSource = "'C:\TEMP\[MappeC.xls]Tabelle1'!R4C2"
wert = wert + xl4Value(strSource)
strSource = "'C:\TEMP\[MappeD.xls]Tabelle1'!R4C2"
wert = wert + xl4Value(strSource)
Range("B4").Value = wert
End Sub
Viel Erfolg wünscht
WernerB.