Datei auf Server speichern

Sub SaveCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim sSammelString$, sDateiname$, sTrennzeichen$, sDatum$
sDateiname = "D:\...\" & [AuftragsNr] & "-" & [AnlBez] & "-" & [Auswahl_Serie] & ".csv"
sTrennzeichen = ";"
Set Bereich = Tab_07_CSV.UsedRange
Open sDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
sSammelString = sSammelString & """" & CStr(Zelle.Text) & """" & sTrennzeichen
Next
If Right(sSammelString, 1) = sTrennzeichen Then
sSammelString = Left(sSammelString, Len(sSammelString) - 1)
End If
Print #1, sSammelString
sSammelString = ""
Next
Close #1
Set Bereich = Nothing
Beep
End Sub

Sub SaveCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim sSammelString$, sDateiname$, sTrennzeichen$, sDatum$
sDateiname = "\\SERVERNAME\Data\" & [AuftragsNr] & "-" & [AnlBez] & "-" & [Auswahl_Serie] & " _
.csv"
sTrennzeichen = ";"
Set Bereich = Tab_07_CSV.UsedRange
Open sDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
sSammelString = sSammelString & """" & CStr(Zelle.Text) & """" & sTrennzeichen
Next
If Right(sSammelString, 1) = sTrennzeichen Then
sSammelString = Left(sSammelString, Len(sSammelString) - 1)
End If
Print #1, sSammelString
sSammelString = ""
Next
Close #1
Set Bereich = Nothing
Beep
End Sub