Hallo Forum,

2 Sachen vorweg:
- Bin neu in diesem Forum
- Mache mich z.Zt. mit VBA schlau

Zu meinem Problem:
Ich habe eine Art Lieferschein, dessen aktuelle Nummer erweitert sich bei jedem Öffnen um 1. Gleichzeitig wollte ich gern die aktuelle Lieferscheinnummer als Dateinamen speichern (bis hierher gings). Nun kann ich aber nicht den Laufwerkspfad ändern, der speichert mit das immer auf meiner Platte und nicht auf dem Server. Ich verwende zum speichern einen Command Button mit folgendem Code:

Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Range("F6").Value & Range("G6").Value & ".xls"
End Sub

Um die Nummer zu erhöhen den:

Private Sub Workbook_Open()
Dim Test As String, Testzahl As Long
Test = ActiveWorkbook.Names("LfdNummer").Value
Testzahl = Val(WorksheetFunction.Replace(Test, 1, 1, "")) + 1
Test = "=" & Format(Testzahl, "0")
ActiveWorkbook.Names.Add Name:="LfdNummer", RefersToR1C1:=Test
End Sub

Ich krieg das nur nicht mit dem Laufwerkspfad hin!!!

Bitte um Eure Hilfe und danke im voraus

Mick