Function xl4Value(varParam) As Variant
xl4Value = ExecuteExcel4Macro(varParam)
End Function
Sub Testwert()
Const strPath As String = "C:\Eigene Dateien\"
Const strWB As String = "DeineMappe.xls"
Const strSh As String = "DeineTabelle"
Dim varValue As Variant, strSource As String
If Dir(strPath,16) = "" Then
MsgBox "Der Pfad: " & Chr(10) & strPath & Chr(10) & _
"wurde nicht gefunden! ", 64, "weise hin..."
Exit Sub
End If
If Dir(strPath & strWB) = "" Then
MsgBox "Die Datei: " & Chr(10) & strWB & Chr(10) & _
"wurde nicht gefunden! ", 64, "weise hin..."
Exit Sub
End If
strSource = "'" & strPath & "[" & strWB & "]" & strSh & "'!R1C1"
varValue = xl4Value(strSource)
MsgBox varValue
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen