Daten aus geschlossener Excel Datei holen

Guten Tage alle zusammenmen,
ich möchte mich einmal kurz vorstellen mein Name ist Blackjack (Torsten)und ich schaue schon sehr oft in dieses Forum vorbei, um mir Informationen für meine kleinen Projekte abzuholen. Es hat mir schon oft geholfen. Meine Erfahrungen gerade was VBA angehen sind begrenzt und habe ich mir alles durch Learning by Doing beigebracht. Nun bräuchte ich mal eine aktive Unterstützung.
Aufgabe: Datei soll aus einer geschlossenen Datei (input.xlsx) auslesen, welche sich in einem Tempverzeichnis befindet.
Ziel: Das Auslesen soll im Tabellenblatt (Auslesen) erfolgen und nachdem auslesen soll wieder das Tabellenblatt (startup) als einziges Tabellenblatt angezeigt werden.
Das Makro funktioniert insoweit, das es die Daten ausließt und auch sauber importiert, leider nur immer im Tabellenblatt (startup). Ich bin mir ziemlich sicher das es mit der Laufzeit etwas zu tun hat, weiß nur nicht wie ich das lösen kann. Hab schon überall gesucht, ausprobiert aber keine Lösung gefunden die ich verstehe umzusetzen. Wie gesagt bin da kein Profi, aber gebe nicht auf.
Hintergrund: Die eingelesenen Daten werden in einem Dashboard an unterschiedlichen Stellen später weiterverarbeitet mit entsprechenen Druckmenues.
Link Vorschau
Userbild

Ich hoffe es so erklärt zu haben das man es versteht....
Würde mich freuen von Euch eine schnelle Hilfe zu erhalten, danke schon mal im voraus
LG Blackjack
Sub Import()
Sheets("startup").Select 'Startet im Tabellenblatt "startup"'
Sheets("Auslesen").Visible = True 'Blendet 'Tabellenblatt "Auslesen ein"'
Sheets("startup").Visible = False 'Blendet 'Tabellenblatt "startupaus"'
Sheets("Auslesen").Select'Startet im Tabellenblatt "Auslesen "'
'Hinweis das Daten importiert werden
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Daten werden importiert, bitte warten Sie einen Augenblick"
Set objShell = Nothing
'Startet das Makro Daten auslesen aus Tempverzeichnis
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
'** Angaben zur auszulesenden Zelle
pfad = "C:\Temp"
datei = "input.xlsx" ' Datei welche ausgelesen werden soll
blatt = "Tabelle1" ' Tabellenblatt welche ausgelesen werden soll
Set bereich = Range("A1:AA46")' Bereich welches ausgelesen werden soll
'** Bereich auslesen
For Each zelle In bereich
'** Zellen umwandeln
zelle = zelle.Address(False, False)
'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle
End Sub

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)
'Call Data 'Wenn Daten eingelesen wurden starte Makro "Data"
End Function

Sub Data()
Sheets("Auslesen").Select 'Startet im Tabellenblatt "Auslesen "'
Sheets("startup").Visible = True 'Blendet 'Tabellenblatt "startup ein"'
Sheets("startup").Select'Startet im Tabellenblatt "startup"'
Sheets("Auslesen").Visible = False 'Blendet 'Auslesen"startup aus"'
End Sub

Hallo Nepumuk,
diesen Code habe ich auch ausgeführt, der funktioniert eigentlich sehr gut.
1. Daten werden sauber eingelesen.
2. Es wird kein Arbeitsblatt extra eingeblendet und wieder ausgeblendet
3. Es kommt eine Meldung das noch irgendwas gespeichert werden muss
Schon sehr perfekt, auch wenn ich noch nicht alles verstehe.
Bei mir geht das auch recht schnell (Ryzen 7 1800), wenn der Rechner nicht so schnell ist und keine Meldung kommt, könnte das warten zu Unwohlsein führen. Kann man irgendwie eine Meldung oder so eine Loadinginfo einbauen bis das Makro fertig ist.
Diese Datei ist auch noch recht klein, ich habe da aber auch Dateien die mitunter 2000 bis 5000 Zeilen haben (Aufmasszeilen) da wird es schon einige Zeit dauern.
Das was Du bis jetzt schon gemacht hast begeistert mich schon, vielleicht hast Du da auch eine tolle Idee...

Public Sub Kopieren2()
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
Call Worksheets("Auslesen").Cells.ClearContents
Set objWorkbook = Workbooks.Open(Filename:="C:\Temp\input.xlsx", _
UpdateLinks:=3, ReadOnly:=True)
Call objWorkbook.Worksheets(1).Range("A1:BB46").Copy( _
Destination:=ThisWorkbook.Worksheets("Auslesen").Cells(1, 1))
Call objWorkbook.Close(SaveChanges:=False)
Set objWorkbook = Nothing
Application.ScreenUpdating = True
End Sub

Vielen Dank schon mal dafür das bringt mich auf jeden Fall schon mal weiter, ich krieg meine Daten ins mein Sheet
Gruss Torsten

Daten aus geschlossener Excel Datei holen

Forumthread: Daten aus geschlossener Excel Datei holen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial