Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datums-Formel in VBA übersetzen

Datums-Formel in VBA übersetzen
01.08.2007 15:24:00
Düppi
Liebe Excel-Profis,
mit folgender Formel lese ich aus dem Speicherpfad meiner Datei das Datum aus. Funktioniert super. Wie kann ich diese Funktion aber in VBA übersetzen, fragt Düppi und bittet um Hilfe.
Formel in Zelle G1:
=DATUM(2007;1;TEIL(ZELLE("Dateiname");23;1)+7*TEIL(ZELLE("Dateiname");17;2)-4-WOCHENTAG(DATUM(2007;;) ;3))
Kurze Erläuterung:
Ordnerstruktur ist in dieser Form aufgebaut: N:\Blattplanung\40_KW\1_Montag
Dateiname ist immer SpiegelGlockeepaper.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datums-Formel in VBA übersetzen
01.08.2007 15:47:23
Rudi
Hallo,
den vollen Namen inkl. Pfad bekommst du mit
thisworkbook.fullname
DATUM: DateSerial
TEIL: Mid
WOCHENTAG: WeekDay
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Datums-Formel in VBA übersetzen
02.08.2007 11:19:00
Düppi
Hallo Rudi,
vielen Dank für die Hilfe. Kann erst jetzt antworten. Habe mir den Code gebastelt:
DateSerial(2007, 1, Mid(ThisWorkbook.FullName, 23, 1) + 7 * Mid(ThisWorkbook.FullName, 17, 2) - 4) - Weekday(DateSerial(2007, 0, 0), vbTuesday).
Komisch nur, dass ich den Tuesday als ersten Wochentag angeben muss, aber sei es drum, wenns funktioniert. Gruß + Dank, Düppi.
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige