Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateiname mit Datum erkennen
zurück: Bestimmten Bereich anzeigen wenn Bedingung stimmt weiter: diagramm einfügen und löschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
JuGi
Neuling


Verfasst am:
22. Jan 2013, 12:05
Rufname:

Dateiname mit Datum erkennen - Dateiname mit Datum erkennen

Nach oben
       Version: Office 2010

Hallo, erst mal danke für das Forum, hab hier schon jede Menge gelernt.

Mein Problem:
Ich habe mehrere Dateien mit einem Dateinamen nach Folgendem System
IRGENDWAS_2012-10-17_13-40-10_WASANDRES

Mein Makro soll nach Eingabe von einem Zeitraum einen bestimmten (bekannten) Ordner durchsuchen und alle Mappen in diesem Zeitraum öffnen.

Würde IRGENDWAS und WASANDRES sich nie ändern hät ich kein problem. Aber ich bekomme: *_2012-10-17_13-40-10_* quasi einfach nicht hin.

Das Datum habe ich in Variablen aufgesplittet und lasse sie in einer Schleife hochzählen. Hier mal ein Ausschnitt aus meinem Ansatz der aber nicht funktioniert:
----------------------------------------------------------------
Dim Nam As String

Do While EndD > ZD

' sind alle als integer gedimt
LJ = DatePart("yyyy", ZD): LM = DatePart("m", ZD): LT = DatePart("d", ZD)
Lh = DatePart("h", ZD): Lmi = DatePart("n", ZD): Ls = DatePart("s", ZD)


Nam = Dir(strPath & "*" & LJ & "-" & LM & "-" & LT & "_" & Lh & "-" & Lmi & "-" & Ls & "*.xlsx")

'Überprüfen, ob die Datei vorhanden ist
If Len(Dir(strPath & Nam)) > 0 Then
DA = True
Else
DA = False
End If

If DA = True Then
Workbooks.Open Filename:=Nam

(Workbooks.Open Filename:=strPath & Nam) hab ich auch versucht


-----------------------------------------------
strPath les ich vorher aus einer Zelle (als string)

ZD = Zähldatum und wird in der Schleife immer um 1 sec erhöht

Diese Len funktion hatte ich irgendwo gefunden um zu checken ob die Datei überhaupt existiert (läuft auch wenn ich nicht diese "*" geschichte einbauen will)

hoffe man kann versteh wo mein problem liegt. Bin noch neu und kann mich deshalb noch nicht so gewählt ausdrücken.
Der Komplette code is ziemlich lang, weil das Makro noch ein Diagram erstllt und und und. Deshalb hab ich mal nur den ausschnitt mit erkläreung hier rein.

mfg Julian
Rudi M.
Gast


Verfasst am:
22. Jan 2013, 15:17
Rufname:


AW: Dateiname mit Datum erkennen - AW: Dateiname mit Datum erkennen

Nach oben
       Version: Office 2010

Hallo,
Code:

.....
If Right(strPath, 1)<>"\" Then strPath=strPath & "\"
Nam = Dir(strPath & "*" & Format(ZD,"YYYY-MM-DD_hh-mm-ss") & "*.xlsx")
If Nam <>"" Then
Workbooks.Open strPath & Nam
....
End If
....

Gruß
Rudi
JuG
Gast


Verfasst am:
23. Jan 2013, 10:50
Rufname:

AW: Dateiname mit Datum erkennen - AW: Dateiname mit Datum erkennen

Nach oben
       Version: Office 2010

Danke Danke Danke

Hat etwas gedauert bis ich das in mein Wirrwa eigefügt hab, aber jetzt läufts!

Super Rudi Smile
JuG
Gast


Verfasst am:
23. Jan 2013, 10:53
Rufname:


AW: Dateiname mit Datum erkennen - AW: Dateiname mit Datum erkennen

Nach oben
       Version: Office 2010

Danke Danke Danke

Hat etwas gedauert bis ich das in mein Wirrwa eigefügt hab, aber jetzt läufts!

Super Rudi Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Nur die Uhrzeit aus einer Datum&Uhrzeit-Angabe extrahier 12 Daysleeper 1060 08. Jun 2005, 16:03
c0bRa Nur die Uhrzeit aus einer Datum&Uhrzeit-Angabe extrahier
Keine neuen Beiträge Excel Formeln: Fehler in der Formel, Summenprodukt, Datum, Monat 4 Gast 948 03. Jun 2005, 18:46
Gast Fehler in der Formel, Summenprodukt, Datum, Monat
Keine neuen Beiträge Excel Formeln: Datumsformel gesucht (Wenn Datum >= xx.xx.xxxx dann mache 3 Gast 2494 25. Mai 2005, 11:07
Gast Datumsformel gesucht (Wenn Datum >= xx.xx.xxxx dann mache
Keine neuen Beiträge Excel Formeln: Rechnen mit Datum (nur Tageswert) 6 MartinJungwirth 4097 19. Mai 2005, 11:19
c0bRa Rechnen mit Datum (nur Tageswert)
Keine neuen Beiträge Excel Formeln: Aktuellsten Wert ausgeben anhand Datum 2 katz 976 27. Apr 2005, 08:53
katz Aktuellsten Wert ausgeben anhand Datum
Keine neuen Beiträge Excel Formeln: WENN DATUM 1 dubber 1156 25. Apr 2005, 11:42
fridgenep WENN DATUM
Keine neuen Beiträge Excel Formeln: Wenn Datum fast erreicht, Feld Rot 9 JörgK. 2957 21. März 2005, 16:29
JörgK. Wenn Datum fast erreicht, Feld Rot
Keine neuen Beiträge Excel Formeln: Dateiname in Zelle 6 syltcamp 513 19. März 2005, 14:30
Hübi Dateiname in Zelle
Keine neuen Beiträge Excel Formeln: Datum Konvertieren 3 palath 2225 22. Feb 2005, 19:17
Günni Datum Konvertieren
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung, verknüpft mit Datum 2 MichaelP 2643 11. Jan 2005, 10:48
MichaP Bedingte Formatierung, verknüpft mit Datum
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: Datum von morgen als Dateiname 1 D U K E 1765 22. Okt 2004, 16:08
ae Datum von morgen als Dateiname
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe