Office: (Office 2013) Werte aus geschlossener Datei auslesen

Tendo · 12. März 2017

Hallo Zusammen,

ich bräuchte bitte mal wieder Eure Hilfe!

Ich würde gerne aus geschlossenen Excel-Dateien Werte auslesen, die sich immer an der gleichen Stelle befinden. Ich habe bereits versucht über den Ansatz mit "GetValue" an mein Ziel zu kommen. Leider Erfolglos.

Hat jemand eine andere Idee, damit ich an die Werte komme. Eine Gedankenstützte würde mir (hoffentlich) reichen.

Vielen Dank für Eure Unterstützung!

Schönen Abend
Tendo

:)

Hajo_Zi · 14. März 2017

Code:

Option Explicit

Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'© t.ramel@mvps.org
' wird durch die HoleDaten aufgerufen
Dim strQuelle As String
Dim Zeilen As Long
Dim Spalten As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range(SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from closed Workbook"
GetDataClosedWB = False
End Function

Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
Pfad = "L:Eigene DateienHajoInternetTest2009"
Dateiname = "Beispiel Forum 30.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1" ' von welcher Tabelle soll er holen?
Bereich = "A1:B9" ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1") ' in welchen Bereich soll er kopieren? Genauer gesagt: Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Werte aus geschlossener Datei auslesen

Werte aus geschlossener Datei auslesen

Werte aus geschlossener Datei auslesen

Werte aus geschlossener Datei auslesen - Similar Threads - Werte geschlossener Datei

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Werte auslesen mit s(w)verweis

Dropdown Auswahl -> anderer Wert Speichern

Werte automatisch übernehmen

#Wert wenn Datei geschlossen ist

Werte in geschlossene Datei einfügen

Anzahl bestimmter Werte ermitteln in geschlossener Arbeitsmappe