ich habe folgenden code gefunden, um daten aus einer geschlossenen datei auszulesen und in einer msgbox anzuzeigen:
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "C:\temp\"
f = "test.xls"
s = "Tabelle3"
r = "A1"
MsgBox 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
was muss ich nun anpassen, damit ich den wert einer inputbox in zwei verschiedenen geschlossenen dateien (test1.xls und test2.xls / je tabelle '1' und '2') suchen kann und sämtliche ergebnisse, d.h. die gesamte zeile, wo der wert vorkommt (im bereich A1 bis L500) im tabellenblatt 'suchen' der offenen datei anzeigen kann?
kann mir jemand helfen
vielen dank