Werte aus geschlossener Mappe holen
27.01.2007 19:04:30
Wolfgang
ich habe im Internet ein Makro gefunden, daß mir von einer geschlossenen Mappe von A1 bis A15 die Werte in eine Mappe ebenfalls von A1 bis A15 schreibt.
Leider reichen meine minimalen VBA-Kenntnisse nicht aus dieses Makro so umzuprogrammieren, daß mir die Werte von C2 bis M8 aus der geschlossenen Mappe in eine Mappe ebenfalls von C2 bis M8 geschrieben werden.
Ich hoffe auf Hilfe.
Vielen Dank
Wolfgang
Sub TestGetValue()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim i As Integer
a = "C:\Dokumente und Einstellungen\Wolfgang\Eigene Dateien\Excel-Tabellen"
b = "test.xls"
c = "Tabelle1"
d = "A"
'Schreibt die Werte in die angegebene Tabelle in A1 - A15
For i = 1 To 15
Worksheets("Tabelle1").Range("A" & i) = GetValue(a, b, c, d & i)
If Worksheets("Tabelle1").Range("A" & i) = 0 Then Worksheets("Tabelle1").Range("A" & i) = ""
Next i
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(, , xlUp)
GetValue = ExecuteExcel4Macro(arg)
End Function