4
Daten aus 4 verschiedenen Excel Dateien auslesen
Hallo,
ich habe folgendes Problem.
Ich habe eine Hauptdatei und von dieser aus will ich automatisch einen Wert aus anderen Excel Dateien übernehen.
Ich habe folgende Zelle verknüpft mit Test Dateien erstellt.
='C:\Test\[23.05.2014.xlsx]23.05.2014'!$B$3+'C:\Test\[23.05.2014.xlsx]23.05.2014'!$B$4
Und ein Makro was automatisch beim start ausgeführt wird.
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveCell.FormulaR1C1 = _
"='C:\Test\[23.05.2014.xlsx]23.05.2014'!R3C2+'C:\Test\[23.05.2014.xlsx]23.05.2014'!R4C2"
Range("C5").Select
End Sub
das funktioniert auch alles soweit.
Mein Problem ist das die Excel Dateien sich jeden Tag von Namen ändern immer das Aktuelle
Datum vom Tag. z.B. morgen 24.05.2014.xls usw.
Wie kann ich hierfür eine Variable erstellen.
Danke für Info`s
ich habe folgendes Problem.
Ich habe eine Hauptdatei und von dieser aus will ich automatisch einen Wert aus anderen Excel Dateien übernehen.
Ich habe folgende Zelle verknüpft mit Test Dateien erstellt.
='C:\Test\[23.05.2014.xlsx]23.05.2014'!$B$3+'C:\Test\[23.05.2014.xlsx]23.05.2014'!$B$4
Und ein Makro was automatisch beim start ausgeführt wird.
Sub Makro1()
'
' Makro1 Makro
'
'
ActiveCell.FormulaR1C1 = _
"='C:\Test\[23.05.2014.xlsx]23.05.2014'!R3C2+'C:\Test\[23.05.2014.xlsx]23.05.2014'!R4C2"
Range("C5").Select
End Sub
das funktioniert auch alles soweit.
Mein Problem ist das die Excel Dateien sich jeden Tag von Namen ändern immer das Aktuelle
Datum vom Tag. z.B. morgen 24.05.2014.xls usw.
Wie kann ich hierfür eine Variable erstellen.
Danke für Info`s
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 239027
Url: https://administrator.de/contentid/239027
Printed on: April 23, 2024 at 21:04 o'clock
4 Comments
Latest comment
Hallo mc12345 und willkommen im Forum!
Im einfachsten Fall etwa so:
bzw
- falls das Standardformat, wie es von
Grüße
bastla
Im einfachsten Fall etwa so:
ActiveCell.FormulaR1C1 = _
"='C:\Test\[" & Date & ".xlsx]" & Date & "'!R3C2+'C:\Test\[" & Date & ".xlsx]" & Date & "'!R4C2" Datum = Date 'bei Bedarf anpassen, zB für eine bestimmte Formatierung
ActiveCell.FormulaR1C1 = _
"='C:\Test\[" & Datum & ".xlsx]" & Datum & "'!R3C2+'C:\Test\[" & Datum & ".xlsx]" & Datum & "'!R4C2" Date geliefert wird, ev nicht passen sollte und Du daher vorweg eine Formatierung vornehmen und in der Variablen Datum speichern wolltest oder zB das Datum von gestern (per Date - 1) benötigt würde ...Grüße
bastla
Danke werde ich am Montag Testen habe jetzt Wochenende .. tatsächlich brauche ich die Anpassung der Variablen -1
Erst einmal vielen Dank für deine Hilfe.
Erst einmal vielen Dank für deine Hilfe.
Hallo bastla,
soweit funktioniert es jetzt.
Gibt es auch einen einfachen weg für die Variablen Date das es automatisch erkannt wird es ist Montag Date - 3 ansonsten -1 Tag?
Danke
Gruß
mc
soweit funktioniert es jetzt.
Gibt es auch einen einfachen weg für die Variablen Date das es automatisch erkannt wird es ist Montag Date - 3 ansonsten -1 Tag?
Danke
Gruß
mc
Hallo mc12345!
ein ...
Grüße
bastla
Datum = Date - 1
If Weekday(Date) = 2 Then Datum = Datum - 2Grüße
bastla
