title image


Smiley War mal im Forum
Sub speichern()



Name = ActiveSheet.Cells(17, 5) ' Hier abholen aus der Zelle



If Name > " " Then

ActiveWorkbook.SaveAs Filename:=Name _

, FileFormat:= _

xlNormal, Password:="", WriteResPassword:="",

ReadOnlyRecommended:=False _

, CreateBackup:=False

End If





End Sub


Hilft's !?

Any - Auf gute Fragen ... folgen bessere Antworten --




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: