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

VBA Excel Daten auslesen

Forumthread: VBA Excel Daten auslesen

VBA Excel Daten auslesen
21.02.2020 08:53:10
Wrona
Hallo in die Runde,
habe folgendes Problem, ich speichere eine Datei wie folgt:
pfad = "Y:\Zwischenablage\" & Format(Export.Sheets("Journal").Range("J1"), "YYYY") & "-" & Format(Export.Sheets("Journal").Range("J1"), "MM")
dateiname = Replace(Export.Sheets("Journal").Range("H1"), " ", "") & "_" & Export.Sheets("Journal").Range("B1")
Zelle J1 steht Datum in der Form Januar (01.01.2020)
Zelle H1 steht die Dienstgruppe (DG12)
Zelle Be steht der Name in der Form (Name,Vorname)
der Dateiname sieht dann wie folgt: 2020-01DG12_Name,Vorname
wie kann ich bei der nächsten Speicherung wäre hier die Datei 2020-02DG12_Name,Vorname die Daten einer bestimmten Zelle aus dem Vormonat (2020-01DG12_Name,Vorname) auslesen, stehe bisssl auf dem Schlauch.
Danke schon mal im voraus.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Excel Daten auslesen
21.02.2020 09:34:06
fcs
Hallo Wrona,
dann musst du dir Pfad/Dateiname für den Vormonat in Variablen "zusammenbasteln", die Vormonatsdatei kurz schreibgeschützt öffnen, Wert in Variable auslesen und Datei wieder schliessen.
Ungetestet kann das etwa wie folgt aussehen. 
Sub Test()
Dim export As Workbook
Dim pfad As String, dateiname As String
Dim pfadVM As String, dateinameVM As String, wkbVM As Workbook, varWertVM
Dim Jahr As Integer, Monat As Integer
Jahr = Year(export.Sheets("Journal").Range("J1").Value)
Monat = Month(export.Sheets("Journal").Range("J1").Value)
If Monat = 1 Then
pfadVM = "Y:\Zwischenablage\" & Format(Jahr - 1, "0000") & "-" & Format(12, "00")
dateinameVM = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
Else
pfadVM = "Y:\Zwischenablage\" & Format(Jahr, "0000") & "-" & Format(Monat - 1, "00")
dateinameVM = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
End If
dateinameVM = Dir(pfadVM & dateinameVM & ".xls*")
If dateinameVM = "" Then
MsgBox "Datei für den Vormonat existiert nicht!"
varWertVM = "kein Wert"
Else
Application.ScreenUpdating = False
Set wkbVM = Application.Workbooks.Open(pfadVM & dateinameVM, ReadOnly:=True)
varWertVM = wkbVM.Worksheets("Blattname").Range("C7").Value 'Name und Zelle anpassen!
wkbVM.Close savechanges:=False
Application.ScreenUpdating = True
End If
pfad = "Y:\Zwischenablage\" & Format(export.Sheets("Journal").Range("J1"), "YYYY") & "-" &  _
Format(export.Sheets("Journal").Range("J1"), "MM")
dateiname = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
End Sub

Anzeige
AW: VBA Excel Daten auslesen
21.02.2020 11:33:01
Darius
fcs Vielen Dank für die schnelle Antwort,
muss zugeben das ich was vergessen habe, die Zelle die ich aus dem Vormonat auslesen möchte ist E75 und der Wert aus dieser Zelle soll in den aktuellen Monat in die Zelle E74 übernommen werden,
Sorry für die Umstände und Danke!
AW: VBA Excel Daten auslesen
21.02.2020 20:20:23
fcs
Hallo Darius,
dann etwa so - nicht vergessen den Namen des Blattes anzupassen in den Zeilen mit Kommentar!
LG
Franz 
Sub Test()
Dim export As Workbook
Dim pfad As String, dateiname As String
Dim pfadVM As String, dateinameVM As String, wkbVM As Workbook, varWertVM
Dim Jahr As Integer, Monat As Integer
Jahr = Year(export.Sheets("Journal").Range("J1").Value)
Monat = Month(export.Sheets("Journal").Range("J1").Value)
If Monat = 1 Then
pfadVM = "Y:\Zwischenablage\" & Format(Jahr - 1, "0000") & "-" & Format(12, "00")
dateinameVM = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
Else
pfadVM = "Y:\Zwischenablage\" & Format(Jahr, "0000") & "-" & Format(Monat - 1, "00")
dateinameVM = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
End If
dateinameVM = Dir(pfadVM & dateinameVM & ".xls*")
If dateinameVM = "" Then
MsgBox "Datei für den Vormonat existiert nicht!"
varWertVM = "kein Wert"
Else
Application.ScreenUpdating = False
Set wkbVM = Application.Workbooks.Open(pfadVM & dateinameVM, ReadOnly:=True)
varWertVM = wkbVM.Worksheets("Blattname").Range("E75 ").Value 'Blatt-Name anpassen!!!
wkbVM.Close savechanges:=False
Application.ScreenUpdating = True
End If
pfad = "Y:\Zwischenablage\" & Format(export.Sheets("Journal").Range("J1"), "YYYY") & "-" &  _
Format(export.Sheets("Journal").Range("J1"), "MM")
dateiname = Replace(export.Sheets("Journal").Range("H1"), " ", "") & "_" _
& export.Sheets("Journal").Range("B1")
export.Worksheets("Blattname").Range("E74 ").Value= varWertVM  'Blatt-Name anpassen!!!!
End Sub

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
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Daten aus mehreren Dateien auslesen/anfüg
Ines

Hallo,
folgende Ausgangssituation. Ich habe ca. 70 Exceldateien, alle mit dem gleichen Tabellenaufbau. Alle befinden sich auch in einem Ordner. Die Ergebnisse auf den Tabellenblättern möchte ich in einem neuen Tabellenblatt zusammenfassen.
Die Tabellenblätter sind folgendermaßen aufgeba...
08.03.2009 18:42:10
Thread-ID: 1057929
5 Beiträge
Daten aus geschlossener Datei auslesen
Reinhardt

Hallo.
Mit der gegoogelten u.a Sub komme ich in meiner Aufgabenstellung fast schon klar. Meine Frage: Wie muß der Dateipfad geschrieben werden, damit er mir z.B. Das Tabellenblatt "Test" ausließt? Danke im voraus. Gruß Reinhardt Sub DatenImport() Dim rngTarget As Range Set rngTarget = R...
24.04.2009 13:34:00
Thread-ID: 1070948
2 Beiträge
Daten aus anderer Datei auslesen und eintragen | Herbers Excel-Forum
Bernd
Hallo Freaks,
ich suche seit heute 12 h nach einer Lösung im Archiv, bin aber nicht fündig geworden bzw. nicht in der Lage, das makro anzupassen.
Problem: aus einem Verzeichnis eine Datei aussuchen und aus zwei exakt benannten Blättern die Daten eines bestimmten Bereiches einlesen. Dabei ha...
24.01.2010 19:45:10
Thread-ID: 1132528
4 Beiträge
Datenimport aus geschlossener Excel-Datei
Martin

Hallo,
vielleicht kann mir jemand zu folgendem Problem behilflich sein:
. Eingabe einer Auftragsnummer in einem Excelsheet "Arbeitszeiten"
. In einer geschlossenen Excel-Auftragsdatei wird nach dieser Nr. gesucht.
. Wenn gefunden, wird u.a. der Auftragstext und der Auftraggeber...
10.02.2010 17:05:52
Thread-ID: 1137467
9 Beiträge
Daten aus geschlossener Datei
Norbert

Bin mit Hilfe des Forums schon weit gekommen....
ich hole mir Daten aus Tabelle 2 in Tabelle 1 deren ein Zellwert Teil von B2/Tabelle 1 ist.
Sub test() Dim a As Long, i As Long Dim Wert1 As String, Wert2 As String a = 6 Wert1 = Tabelle1.Cells(1, 2).Value With Worksheets("Tabelle2") For...
04.04.2010 15:25:29
Thread-ID: 1150186
4 Beiträge
Daten aus xl-datei auslesen
Beffen

Hallo liebe forianer,
erstmal vielen lieben Dank für die Hilfe bisher. Ihr seid echt klasse. Aber leider hören die Probleme nicht auf. Mein Chef möchte folgende application zur Vereinfachung entwickelt haben:
Ich möchte aus einer Datei, deren Speicherort und Name immer ein anderer ist/s...
21.01.2011 17:28:08
Thread-ID: 1196720
3 Beiträge
Daten aus xl-datei auslesen
Beffen

Hallo liebe forianer,
erstmal vielen lieben Dank für die Hilfe bisher. Ihr seid echt klasse. Aber leider hören die Probleme nicht auf. Mein Chef möchte folgende application zur Vereinfachung entwickelt haben:
Ich möchte aus einer Datei, deren Speicherort und Name immer ein anderer ist/s...
21.01.2011 16:30:11
Thread-ID: 1196728
3 Beiträge
Daten aus mehreren Excel Dateien auslesen
Koenig

Guten Tag,
ich möchte mir mein Leben etwas vereinfachen und komme aber da nicht so recht weiter. Ich habe eine Tabelle in welcher ich Daten auswerten möchte. Diese Daten sind in verschiedenen Tabellen die ich monatilch bekomme.
Ich würde dies gern durch ein Makro erledigen lassen und z...
09.03.2011 09:56:27
Thread-ID: 1204916
5 Beiträge
Auslesen der AutoFilter-Daten in VBA
Andi

Wie können die Werte der Listbox eines Autofilters ausgelesen werden, um darauf indiziert weiter zugreiffen zu können. Wäre nett, wenn jemand ein kleines Beispiel liefern könnte.Andi
07.06.2002 15:36:11
Thread-ID: 126950
3 Beiträge
Per VBA Daten aus Datei auslesen mit Bedingungen
Mars

Hallo,
ich möchte per VBA (ein Knopfdruck), Daten aus einer anderen Excel Datei holen und in eine vorhanden schreiben. Die Quelldatei, aus der die Werte stammen, ändert sich wöchentlich. Also muss der User einmal pro Woche den Knopf drücken um die Daten zu übertragen. Pferdefuss: es gibt da...
20.08.2012 13:38:53
Thread-ID: 1275702
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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