Dateinamen automatisch in bestimmte Zelle eintragen?

Question

Hallo,
ich habe mal wieder eine (kurze) Frage:
ist es möglich wenn im Dateinamen z.B. august 2009.xls steht . diesen august auch gleich als Monat August 2009 in eine bestimmte Zelle in der Tabelle übernimmt und als Datum erkennt?

klingt eigentlich einfach. aber wie so oft steckt der Teufel im Detail.

vielen dank im vorraus für eure Mühe.

MfG dieter

Answer 1

Hallo Dieter,

als Datum erkenen nein. Oder sehr aufwendig.

Link zurSeite Dateiangaben

Gruß hajo

Answer 2

hallo hajo,

das habe ich mir irgentwie einfacher vorgestellt. ich kann ja auch weiterhin das datum von hand eintragen. ist ja eigentlich auch nichts besonderes, ich wollte mir halt nur einen von so vielen arbeitsgängen sparen weil ich jeden monat mehre gleiche dateien erstellen muss.

danke für deine schnelle antwort

gruss dieter

Answer 3

Hallo Dieter,

schwierig ist es, aber es geht.

Wenn der Dateiname August 2009.xls lautet, erhältst Du mit
folgender Formel das Datum 01.08.2009

=DATUM(RECHTS(TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE(
"Dateiname";$A$1))+1;FINDEN("]";ZELLE("Dateiname";$A$1))-
FINDEN("[";ZELLE("Dateiname";$A$1))-
5);4);MONAT(TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Datei
name";$A$1))+1;FINDEN("]";ZELLE("Dateiname";$A$1))-
FINDEN("[";ZELLE("Dateiname";$A$1))-10)&1);1)

Gruß
Rainer

Answer 4

Hallo Dieter,

wenn Du aus dem Dateinamen nur den Monatsnamen als Textwert
brauchst, wird es einfacher.

=TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1
))+1;FINDEN("]";ZELLE("Dateiname";$A$1))-
FINDEN("[";ZELLE("Dateiname";$A$1))-10)

Gruß
Rainer

Answer 5

Hallo Rainer,

es sieht so aus als wenn dein erster beitrag mein Problem gelöst hat. Ich muss mit dem datum rechnen deshalb brauche ich einen zahlenwert.

ich melde mich und teile dir das ergebnis mit

besten dank nochmal.

gruss dieter

Answer 6

Hallo an alle!

Wenn es jemanden interessiert, wie die Lösung als VBA-Möglichkeit aussieht, kommt hier eine Lösungsmöglichkeit. Eventuell bringt diese ja auch DIeter weiter.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

Option Explicit

Sub Dateinmae_alsDatum_in_Zelle()
Range("A1") = CDate(Format(Mid(ThisWorkbook.Name, 1, _
Len(ThisWorkbook.Name) - 4), "dd.mm.yyyy"))
End Sub
Hier wird der Dateiname (August 2009.xls) in Zelle A1 als Datumswert 01.08.2009 zurückgegeben. Natürlich funktioniert das auch mit den anderen Monatsnamen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.\n\nBei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 7

Hallo Dieter,

habe meine erste Formel noch mal überarbeitet.
Beachte die beiden Bindestriche (=--)nach dem Gleichheitszeichen.
Sie sorgen dafür, dass der Datumstring in eine Zahl umgewandelt
wird.
Der Ergebniszelle musst Du das Datumsformat zuweisen.

=--TEIL(ZELLE("dateiname";$A$1);FINDEN("[";
ZELLE("Dateiname";$A$1))+1;
FINDEN(".";ZELLE("dateiname";$A$1))-1-
FINDEN("[";ZELLE("dateiname";$A$1)))

@coros

Gute Lösung.
Per VBA ist eben vieles einfacher als mit Tabellenfunktionen.


Gruß
Rainer

Answer 8

Hallo Reiner,

danke Dir für Dein Lob und ich kann Dir nur zustimmen, dass in VBA einiges einfacher zu realisieren ist.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]

Answer 9

Hallo ich nochmal!

Sorry Rainer für die Namensverschandellung Deines Namens in meinem letzten Beitrag. ich habe nur einen Kollegen, der ebenfalls Re(a)iner heißt, eben nur anstelle des Buchstaben a den Buchstaben e hat.

Sorry nochmal.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]

Answer 10

Hallo Oliver,

kein Problem, auf alle Fälle weiß ich dass Du mich meinst:-)

Gruß
Rainer