title image


Smiley Re: Excel: speichern in einem bestimmten Ordner
Hallo AndreasIch habe dieses Problem wie folgt gelöstMeine Vorlage heißt Lieferschein erstellenÜber die Befehlsschaltfläche starte ich das "Datei speichern und schließen" Über den Usernamen frage ich die Computer im Netzwerk ab weil alle in das selbe Verzeichnisabspeichern sollen.Declare Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Dim Anwendungsopjekt As New Anwendungsklasse Public Marion As String Public Laufwerk As StringPublic Sub ShowUserName() Dim Buffer As String * 100 Dim BuffLen As Long BuffLen = 100 GetUserName Buffer, BuffLen Marion$ = Left(Buffer, BuffLen - 1) If Marion$ = "Marion" Then Laufwerk = "D" If Marion$ = "Meister" Then Laufwerk = "G" If Marion$ = "Andreas" Then Laufwerk = "F" a = ThisWorkbook.Path b = Laufwerk & ":\eigene dateien\excel\Lieferschein\Lieferschein bezahlt" d = Laufwerk & ":\eigene dateien\excel\Lieferschein"End Sub'Datei unter Re.Nr., Name und ersten Text abspeichern und Datei und Excel schließenPrivate Sub CommandButton1_Click()Application.ScreenUpdating = False 'Bildschirmaktualisierung aus Dim datnam As String'Abfrage wie heißt die Aktuelle Datei datnam = Range("Q3") c$ = ThisWorkbook.Name If c$ = "Lieferschein erstellen1" Then Windows("adressen1.xls").Activate ActiveWindow.Close 'Adressendatei schließen bei neuer Datei 'Datei unter Rechnungs Nr.und ersten Text abspeichern ActiveWorkbook.SaveAs FileName:=Laufwerk & ":\Eigene Dateien\excel\Lieferschein\" & datnam & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Else ActiveWorkbook.Save 'Datei unter altem Namen abspeichern End If Application.ScreenUpdating = True 'Bildschirmaktualisierung ein Workbooks.Close 'Datei schließen Application.QuitEnd SubIch hoffe du kannst damit was anfangenGruß Andreas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: