Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus anderer Datei auslesen

Forumthread: Werte aus anderer Datei auslesen

Werte aus anderer Datei auslesen
13.03.2019 15:50:19
Philip
Sehr geehrte Forummitglieder,
ich möchte in einer Datei "A" (https://www.herber.de/bbs/user/128361.xlsx) ein/mehrere Makro(s) einpflegen.
In der Datei "A" soll aus einer geschlossenen Datei "B" (https://www.herber.de/bbs/user/128362.xlsx) - Pfad: "C:\Users\...xlsx" - einige Werte ausgelesen und in die Tabelle in der Datei "A" eingefügt werden.
Das Problem ist hier, dass Datei "A" eine Tabelle beinhaltet deren Überschriften nicht mit den Überschriften aus Datei "B" übereinstimmt.
Es sollte also in Datei "A" die Tabelle automatisch mit den dafür vorgesehenen Werten aus Datei "B" aufgefüllt werden. Wobei die Daten der Tabellenspalte aus Datei "A" "Nummer" mit der Arbeitsblattspalte aus Datei "B" "OrderConfID" (usw.) aufgefüllt werden soll.
Ist dies mit einem VBA-Programmcode realisierbar?
Danke & Gruß
Philip
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus anderer Datei auslesen
13.03.2019 16:59:31
Hajo_Zi
Halo Philip,
auslesen aus einer geschlossenen Datei ist aufwendig. 
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 Dateien\Hajo\Internet\Test\2009\"
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

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Werte aus anderer Datei auslesen
14.03.2019 08:18:04
Philip
Hallo Hajo,
erstmal vielen Dank für die Mühe.
Leider wirft mein Excel eine Fehlermeldung "Syntaxfehler" aus und verweist dabei auf folgende Programmzeile:
"
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from _
closed Workbook"
"
Anzeige
AW: Werte aus anderer Datei auslesen
14.03.2019 08:20:56
Philip
Edit:
Beitrag noch offen.
AW: Werte aus anderer Datei auslesen
14.03.2019 08:53:15
Werner
Hallo Philip,
der Zeilenumbruch ist falsch. Der wurde vermutlich von der Forensoftwar einfach gesetzt. 
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, _
"Get data from closed Workbook"
Gruß Werner
Anzeige
AW: Werte aus anderer Datei auslesen
14.03.2019 11:12:38
Philip
Vielen Dank!
Nun funktioniert es.
Es werden nun alle (im VBA-Code) angegebenen Bereich(e) kopiert.
Alle weiteren Wünsche aus meinen ersten beiden Beiträgen sind so nicht realisierbar?
Also z.B. eine automatische Zuordnung der entsprechenden Spalten.
Sodass die Spalte "OrderConfID" aus Datei "B" automatisch der Tabellenspalte "Nummer" in Datei "A" zugeordnet wird, usw...
- Das kann ich zur Not mit einigen Hilfsspalten in der endgültigen Tabelle realisieren.
Oder das Vergleichen der entstandenen Datei "A" (mit Werten) mit einer Datei "C", wie im zweiten Beitrag beschrieben.
- Das sollte die eigentliche Aufgabe des Makros sein, um Tagesaktuell die gewünschten Tabellen "automatisch" zu vervollständigen, bzw. zu aktualisieren.
Anzeige
AW: Werte aus anderer Datei auslesen
16.03.2019 07:54:36
Werner
Hallo Philip,
ich würde an die Sache anders ran gehen.
1. Datei B im Hintergrund öffnen
2. Spalte OrderConfID suchen
## hier stellt sich die Frage, ob die beiden anderen Spalten immer direkt rechts von OrderConfID sind oder auch gesucht werden müssen
3. Daten in Datei A kopieren
4. Dabei B schließen
Von einem Vergleich irgendwelcher Daten hast du bisher noch nichts geschrieben - das ist neu.
Und ohne weiterführende Angaben, was womit verglichen werden soll und was dann warum passieren soll, kann hier niemand etwas dazu sagen.
Gruß Werner
Anzeige
AW: Werte aus anderer Datei auslesen
18.03.2019 11:32:37
Philip
Hallo Zusammen,
ich sehe gerade, dass mein zweiter Beitrag gar nicht gesendet wurde.
Das tut mir leid, war wohl mein Fehler.
Der Vorschlag von Werner ist im Prinzip so umsetzbar.
Jedoch wollte ich davon weg kommen die Daten jeden Tag manuell zu kopieren.
Die Sache ist wie folgt:
Datei "A" ist meine Vorlage mit entsprechenden Formaten und Formeln.
Datei "B" wird aus einem Programm ausgespuckt. Die Werte in der Datei "B" sollen in die Tabelle der Datei "A".
Einen Tag später kommt Datei "C". Die Daten der Datei "C" sollen nun mit den nun gegebenen Werten in der Tabelle der Datei "A" verglichen werden.
Der Vergleich sollte wie folgt aussehen:
Ausschlaggebend ist die Spalte "OrderConfID" oder "Nummer". In Datei "C" sind nun Zeilen unter "OrderConfID", welche identisch sind mit den Werten aus der Tabelle der Datei "A". Wenn eine Nummer doppelt ist, soll diese aus der Datei "A" gelöscht/ausgeschnitten werden und in eine andere Tabelle/ein anderes Arbeitsblatt in der Datei "A" übertragen werden.
Ist dies denn grundsätzlich möglich? Oder vielleicht ist dies auch auf anderen Wegen erreichbar?
Datei "A": https://www.herber.de/bbs/user/128468.xlsx
Datei "B": https://www.herber.de/bbs/user/128469.xlsx
Datei "C": https://www.herber.de/bbs/user/128470.xlsx
Anzeige
;

Forumthreads zu verwandten Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Auswertungen aus Matrix - Wie
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer seperaten Arbeitsmappe liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte D untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalten nebeneinander die Bemessungsgrösse 2 (in d...
05.09.2008 12:03:00
Thread-ID: 1007638
4 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Anzeige
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Werte aus matrix entnehmen ?
AndreasK

Hallo erstmal,
ich habe folgendes Problem und stelle mich mal wieder ein bisschen zu doof an, naja ich komm nicht drauf.
In Blatt1 habe ich mir ein Formular angelegt das allerdings je nach inhalt an einen unterschiedlichen Verteiler per Mail verschickt wird. Die Namen stehen im Bereic...
29.09.2008 11:53:30
Thread-ID: 1013061
3 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige