Thema Datum  Von Nutzer Rating
Antwort
16.03.2017 13:03:54 Daniel
NotSolved
Blau Save As
 16.03.2017 14:13:07 Heiko
NotSolved
16.03.2017 14:29:26 Gast98474
NotSolved

Ansicht des Beitrags:
Von:
Heiko 		Datum:
16.03.2017 14:13:07		 Views:
599		 Rating:
     
Antwort:
  Ja
Thema:
Save As

Hallo Daniel,

versuch es mal so, bin mir aber nicht ganz sicher




	
Sub AutoSave()







	 Dim Datei As String
 Dim Verzeichnis As String
 Dim SaveDummy As Variant



	 
 Verzeichnis = "C:\Users\Heiko Bischoff\Desktop\Backoffice\OrgTool\"  'Verzeichnis-Vorschlag
 Datei = "Arbeitsnachweis_" & Range("C3") & ".xls"             'Datei-Vorschlag
 SaveDummy = SpeichernUnter(Verzeichnis & Datei)
 If SaveDummy <> False Then ActiveWorkbook.SaveAs SaveDummy   'Es wurde im Dialog auf Speichern gedrückt



	End Sub



	Function SpeichernUnter(VorgabeName As String) As Variant



	SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel Dateien (*.xls),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")



	End Function



	So poppt das Fenster im richtigen Pfad auf.



	Hoffe das hilft.



	Grüße,



	Heiko



	 

    		
									

								

							

					
		   


                    
     
 

                        

                                

                                    Ihre 
 Antwort

                    
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
    • 
                                        
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
    • 
                        
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
    • 
                        
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
    • 
                        
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
    • 
                                    


                            

                                

                                    
                                        Thema:
                                    
                                    
                                        
                                    
                                    
                                        Name:
                                    
                                        
                                    
                                    
                                        Email:
                                    
                                        
                                    
                                

                                

                                    

                                        
                                        
                                    
                                

                            

                          
  
                          

	
                         
                                  
                             

                             
                            

                            
                            

                            
                       

                                
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
    • 
                                        
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
    • 
                        
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
    • 
                        
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
    • 
                        
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei 
    Antworten auf Ihren Beitrag zu benachrichtigen
    • 
                                    

                        

                            
                        

                        
 

                                                  

 
      
                                 
                            

                      

                          
                              
                                  Thema                               
                          
                          
                              
                                  Datum 
                          
                          
                              
                                  Von Nutzer
                          
                          
                              
                                  Rating
                          
                          
                              

                                  Antwort

                          		
                      

                      


16.03.2017 13:03:54
Daniel



NotSolved




Blau Save As

16.03.2017 14:13:07
Heiko 



NotSolved




16.03.2017 14:29:26
Gast98474



NotSolved