Nach Umzug auf einen anderen Server (Die entsprechenden Orte hatte ich im Code angepasst) erhalte ich jedoch einen Fehler in der Zeile:
"ActiveWorkbook.SaveAs Filename:=Pfad & Datei"
Leider verstehe ich noch zu wenig von VBA um hier selbst Rückschlüsse ziehen zu können und bitte daher auf die Hilfe der Experten.
Vielen Dank! MfG aus Berlin, Tom
Hier der gesamte Code für das Steuerelement:
Private Sub CommandButton4_Click()
Dim Pfad$, Datei$, Endg$
Pfad = "\\1-server\11 Unterhalts Sonder Baureinigung\09 Material\1 Eingang"
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
With ActiveSheet
Datei = .Range("B12") & " " & .Range("B8") & " " & Format(.Range("B14"), "DD.MM.YY")
End With
If Datei = "" Then
MsgBox "Objektname wurde nicht eingegeben"
Exit Sub
End If
Endg = ".xls"
If LCase(Right(Datei, 4)) Endg Then 'Prüfung ob Zelle bereits Endung enthält
Datei = Datei & Endg
End If
ActiveWorkbook.SaveAs Filename:=Pfad & Datei
BestellENDE.Show
End Sub