AW: bestimmten Pfad in Zelle
20.02.2016 13:22:54
Peter
Hallo Herbert,
das Problem mit dem Pfad habe ich gelöst über VBA.
'Listing 1 zeigt die Auslese-Function.
Private Function GetValue(pfad, datei, blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen
'*** 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
'Um einen einzelnen Wert aus einer angegebenen Zelle auszulesen, verwenden Sie folgendes Makro.
Sub Zelle_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, zelle As String
'in der aktiven Tabelle die Zelle auswählen, in welche Daten eingefügt werden sollen
Sheets(1).Activate
ActiveSheet.Cells(10, 16).Select 'Zeile 10 Spalte P
'** Angaben zur auszulesenden Zelle
pfad = "C:\Users\Peter\Desktop\Test_verschieben"
datei = "Test_Basis.xlsm"
blatt = "Tabelle1"
bezug = "P2"
'** Eintragen in Zelle
ActiveCell.Value = GetValue(pfad, datei, blatt, bezug)
End Sub
Jetzt habe ich aber noch folgendes Problem:
Ich speichere die Datei unter neuer Datei mit jedoch statt _Basis mit _Datum.
Ich habe in einer Zelle folgende Formel:
"=WECHSELN(LINKS(ZELLE("Dateiname";$A$1);-1+FINDEN("]";ZELLE("Dateiname";$A$1)));"[";"")"
Diese Formel wird aber nicht aktualisiert, wenn die Datei unter anderem Namen gespeichert wird sondern
nur wenn die Datei neu geöffnet wird oder z.B. Umschalt F9 gedrückt wird. Wie kann ich es nun erreichen, dass nach dem Speichern der Datei diese automatisch die Zelle aktualisiert.
Danke für Deine Hilfe.
Gruss Peter