Beim öffnen der Datei einen Zellenwert generien
25.05.2006 21:40:42
AVD
habe folgende Formel in meiner Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run "speichern"
End Sub
In diese möchte ich nun noch zusätzlich eine Anweisung tragen.
Diese Anweisung soll beim öffnen der Datei prüfen, wie der Dateiname heißt.
Ist der Dateiname "Dokumentation" soll in in dem Tabellenblatt "Start" in die Zelle A1 der Wert "1" abgegeben werden. Wenn nicht der Wert "2"
Vielen Dank für Eure hoofentlich unterstützenden Beiträge.
Danke
Alex
Anzeige