Forums Neueste Beiträge
 

Dateinamen dynamisch gestalten

29/01/2009 - 17:22 von Harald Schlüter | Report spam
Hallo Zusammen,

ich habe ein Problem mit einem VBA-Code bzgl. der dynamischen
Gestaltung des Dateinamen.

Hier erstmal der Code:


Private Sub 1_Click()
Application.ScreenUpdating = False
ActiveWindow.NewWindow
Sheets("Year 1").Select

Windows("Data Entry.xls:1").Activate

Windows.Arrange ArrangeStyle:=xlVertical
Application.ScreenUpdating = True
End Sub


Der Dateiname ist 'Data Entry.xls' und hier auch als solcher
festgeschrieben.
Gibt es eine Möglichkeit den Dateinamen auch dynamisch zu gestalten
(z.B. wenn ich die Datei umbenenne)?
Dann funktioniert der o.a. Code ja nicht mehr.

Besten Dank für Eure Hilfe!

Viele Grüße

Harald Schlüter
 

Lesen sie die antworten

#1 Andreas Killer
29/01/2009 - 19:41 | Warnen spam
Harald Schlüter schrieb:

Gibt es eine Möglichkeit den Dateinamen auch dynamisch zu gestalten
(z.B. wenn ich die Datei umbenenne)?


ActiveWorkbook.Name ist das was Du suchst.

Andreas.

Ähnliche fragen