Daten einlesen
05.12.2021 23:31:00
Bernd
in einer Zusammenfassung, siehe auch Beispielmappe, versuche ich Werte einzelner Dateien einzulesen.
Wenn ich das jedoch so per Formel mache werden die Inhalte erst aktualisiert, wenn die Ursprungsdatei geöffnet wird.
Kann mir da wer helfen, wie ich die aus der geschlossenen Datei heraus bekomme.
Oder ists eurer Meinung nach besser die Datei zu öffnen, die Wert in ner Variable zu ermittelln und gleich einzutragen?
noch zum Hintergrund
Die Ursprungsdateien werden täglich automatisch als csv-Dateien erstellt und im Verzeichnis gespeichert.
Der Name entspricht dabei immer dem Tagesdatum mit Endung '_ein.csv'
Die Datei wird prinzipiell korrekt ermittelt, eingefügt sollte aber optimalerweise gleich der Wert und nicht ne Formel
aktuell sieht das Macro folgendermaßen aus:
Sub Daten_einlesen()
ispalte = Cells(6, Columns.Count).End(xlToLeft).Column
lspalte = Cells(5, Columns.Count).End(xlToLeft).Column
For i = ispalte To lspalte
'Ermittlung letzte Spalte mit Bearbeitungskennzeichen = 'x'
ispalte = Cells(6, Columns.Count).End(xlToLeft).Column
'Generierung Dateiname aus aktuellem Spaltendatum
Datum = Cells(5, ispalte + 1).Value
file = ActiveWorkbook.Path & "\" & Format(Datum, "yyyymmdd") & "_EIN.csv"
'Prüfung, ob Datei vorhanden
If Dir(file) "" Then
' MsgBox "Datei vorhanden" & file
Cells(7, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C3"
Cells(8, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C4"
Cells(9, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C5"
Cells(10, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C6"
Cells(11, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C13"
Cells(13, ispalte + 1).FormulaR1C1 = "='" & file & "'!R3C153"
End If
'Bearbeitungskennzeichen 'x' setzen, nachdem die Inhalte übernommen wurden
Cells(6, ispalte + 1).Value = "x"
'nächste Spalte...
i = i + 1
Next i
End Sub
hier Beispielmappe
https://www.herber.de/bbs/user/149605.xlsx
Wäre nett, wenn mir dabei wer helfen kann.
Danke vorab - gruß Bernd
