Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

144to148

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Jahr als Teil des Dateinamens

Forumthread: Jahr als Teil des Dateinamens
6 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
Top 100 Forumthreads

07.08.2002 13:45:57

Rainer K.

Hallo Forum !
Vielleicht kann mir ja hier jemand helfen. Ich habe in einer Zelle das Startdatum, z.B. 01.01.2002, stehen. In einer anderen Zelle =("Jahresübersicht "&JAHR($D$2)) ergibt "Jahresübersicht 2002" . Besteht die Möglichkeit die Jahreszahl über VBA als Teil des Dateinamens zu verwenden ?

Gruß aus Mainhatten
Rainer

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Jahr als Teil des Dateinamens

07.08.2002 13:47:26

MRR
Re: Jahr als Teil des Dateinamens

07.08.2002 13:53:59

Rainer K.
Re: Jahr als Teil des Dateinamens

07.08.2002 14:02:06

MRR
Re: Jahr als Teil des Dateinamens

07.08.2002 14:12:46

Dirk
Re: Jahr als Teil des Dateinamens

07.08.2002 14:14:10

Rainer K.
Re: Jahr als Teil des Dateinamens

07.08.2002 14:27:27

Rainer K.

Re: Jahr als Teil des Dateinamens

07.08.2002 13:47:26

MRR

Wie meinen?
="Jahresübersicht" & Year(Range("D2"))
Oder wie oder was?
Matthias

Re: Jahr als Teil des Dateinamens

07.08.2002 13:53:59

Rainer K.

Hallo Matthias !

Im Augenblick speichere ich die Datei so ab:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ChDir "\\Nibelser\bih3\Abteilung Elektro-Elektronik\BUL"
ActiveWorkbook.SaveAs FileName:= _
"\\Nibelser\bih3\Abteilung Elektro-Elektronik\BUL\BUL2002.xls" _

also mit einem festen Namen. Im nächsten Jahr müßte ich meine Makros umschreiben und darum hätte ich es gerne automatisiert.

Gruß Rainer

Re: Jahr als Teil des Dateinamens

07.08.2002 14:02:06

MRR

Hallo Rainer,
dann wohl vielleicht so:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs FileName:= _
"\\Nibelser\bih3\Abteilung Elektro-Elektronik\BUL\BUL" & Year(Date) & ".xls"

Geht es so? Das ChDir kannman sich ja schenken...
Matthias

Re: Jahr als Teil des Dateinamens

07.08.2002 14:12:46

Dirk

Ich hab die Funktionalität auf nen CommandButton gelegt. Funktioniert aber auch in nem Makro.
Du musst halt nur Deinen ausgeschriebenen Pfad gegen meinen dynamischen ersetzen...
Ich geh einfach mal davon aus, dass das zugrundeliegende Jahr als DAtum in Zelle A1 steht.

Viel Spass
Dirk

Private Sub CommandButton2_Click()
Dim datei As String, speicherort As String
Const PFAD = "...dein Pfad..."
datei = "BUL" & Year(Range("A1")) & ".xls"
speicherort = PFAD & datei

End Sub

Re: Jahr als Teil des Dateinamens

07.08.2002 14:14:10

Rainer K.

Hallo Matthias !

Leider bringt Excel mir so einen Laufzeitfehler und fragt nach ungültigen Zeichen im Dateinamen."\\Nibelser\bih3\Abteilung

Elektro-Elektronik\BUL\BUL" & Year(Date) & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Was mache ich da denn schon wieder falsch ?

Gruß aus Mainhatten

Rainer

Re: Jahr als Teil des Dateinamens

07.08.2002 14:27:27

Rainer K.

Hi Dirk Hi Matthias!

Mit der Lösung von Dirk hat es funktioniert.
Vielen Dank Euch beiden für Eure Hilfe.

Gruß aus Mainhatten
Rainer