Arbeitsmappe als freigegebene Arbeitsmappe speiche
07.02.2009 15:27:00
Dirk
Ich hoffe einer kann mir bei folgendem Problem helfen!?
Mit folgendem Code erstelle ich mit einem CommandButton und einer Inputbox eine Datei, die später als Datenbank dienen soll. In diese erstellte Datei werden Daten geschrieben und gespeichert.
Sub CommandButton7_Click()
Application.ScreenUpdating = False
Dim I, Jahr As Integer
Dim Pfad As String
Pfad = "\\jvakofs01\user$\dirk.raeder\Tagesdienstplan\Neu\Datenbank_Tagesdienstplan_"
Jahr = InputBox(prompt:="Bitte geben sie das Kalenderjahr ein:" & vbNewLine & "(zwischen 2009 _
und 2100)", Title:="Eingabe Jahr")
If Jahr > 2008 And Jahr
Die so erstellte Datei, z.B.: Datenbank_Tagesdienstplan_2009.xls, soll aber als freigegebene Arbeitsmappe gespeichert werden.
Und genau da liegt mein Problem.
Ich weis nicht, wie ich den Code ändern muss!?!?!?!
Für Hilfe wäre ich dankbar.
MfG
Dirk R.