selbstgeschriebene Funktion wird nicht berechent
24.10.2005 14:48:32
Heiko
ich habe im Dateinamen die Kalenderwoche mit eingetragen.
(z. B. Daten_KW23_2004.xls).
Diese Datei kopiere ich für jede KW des Jahres und benenne sie entsprechende der KW.
z. B.
Daten_KW23_2004.xls
Daten_KW24_2004.xls
Daten_KW25_2004.xls
Ich möchte mir nun beim Öffner der jeweiligen Datei aus dem Dateinamen den Kalenderwochenstring extrahieren. Dies geht aber nur wenn ich nochmal in die Zelle gehe und dort F2 und anschl. Enter drücke.
Hier den Code der Funktion dazu:
------------------
Function KWtxt()
KWtxt = Mid(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, "K", 1), 4)
End Function
------------------
Wie geht das gleich von selbst beim Öffnen der Datei ?
'Application.Volatile' funktioniert nicht !
'Application.Range("k1").Calculate' funktioniert auch nicht !
Oder ich bin zu doof :-(
Vielen Dank schon mal für Eure Hilfe
Gruß Heiko
Anzeige