Sverweis per vba in eine geschlossene D.
10.07.2020 15:58:16
Herbert
gibt es eine möglichkeit, per modul(makro) einen VLookup für die bestimmung einer bestimmten Zelle aus einer geschlossenen Datei auszulesen?
Wenn ich die Zelle bei "zelle = " dahinter schreibe direkt, funktioniert der Code auch, nur würde dann nicht nach der angegebenen Bezeichnung suchen, wessen Daten dann gepackt werden sollen.
Man drückt einen Knopf (Überprüfen), dieser führt dann folgende Codes aus:
Option Explicit
Private Function GetValue(pfad, datei, blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen
MsgBox pfad & "\" & datei
'*** Dimensionierung der Variablen
Dim arg As String
'Sicherstellen, dass das datei vorhanden ist
If Right(pfad, 1) "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , _
xlR1C1)
'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub Zelle_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, zelle As String
'** Angaben zur auszulesenden Zelle
pfad = "X:\5. Genehmigungswesen\1. Genehmigungserstellung nach VwV 2017\"
datei = "Achsbildtool Stand 10.07.2020.xlsm"
blatt = "SZM"
zelle = "B3"
'** Eintragen in Zelle
Worksheets("Zwischen Speicher").Range("B2") = GetValue(pfad, datei, blatt, zelle)
End Sub
Danke für jede hilfe und Antwort!
MfG Herbert!