Datei-Name Abfrage
14.11.2023 08:54:58
Sandra
wir führen bei uns Programme (Calculate_Rechen) die der Vertrieb bearbeitet und unter einem neuem Namen abspeichert. z.B.: Hamburg_Calculate_Rechen
Gibt es ein Möglichkeit diesen Namen abzufragen?
Es ist nämlich so, dass in dem Programm, wenn es neu zur Bearbeitung geöffnet wird, Zellen auf der Startseite wieder geleert werden sollen.
z.B. auf dem Tabellenblatt "Start" sollen H2 und I2sollen geleert werden. Diese füllt der Vertrieb aber aus und der Stand soll auch für den Vertrieb mit dem neuem Dateinamen immer erhalten bleiben.
Das Ursprungsprogramm soll beim Öffnen aber diese Zellen wieder leeren.
So sieht derzeit mein Code beim Öffnen aus:
Private Sub Workbook_Open()
Range("I2").Value = ""
Range("H2").Value = ""
Range("A7").Select
Worksheets("Start").Shapes("RSH_E_D").Visible = False
Worksheets("Start").Shapes("RSH_E").Visible = False
Worksheets("Start").Shapes("RSH_E_RSH_E_D").Visible = True
End Sub
Leider weiß ich nicht, wie ich den Dateinamen abfragen kann.
Vielleicht könntet Ihr mir hier helfen.
VG
Sandra