Code:
Private Function save() ActiveSheet.Unprotect ("xxx") Dim ort Dim name ort = InputBox("Speichern unter...", "Speicherort", "C:\") name = InputBox("Dateiname:", "Dateiname", "SGN-Rohstoffberechnung") If (ort = "") Then Else If (ort <> "") Then If (name = "") Then Else If (name <> "") Then ActiveWorkbook.SaveAs Filename:= _ ort & name & ".xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveSheet.Protect ("xxx") End If End If End If End If Range("C7").Select ActiveSheet.Protect ("xxx") End Function
Wie man sieht, gibt es 2 Button, einen, in den man den Speicherort eingibt und einen, in den man den namen eingibt.
Zu den 4 if-Abfragen:
Damit verhindere ich, wenn der Nutzer nichts eingibt, oder auf "Abbrechen" klickt, das das Programm den Blattschutz aufhebt.
Zu dem Speicherort:
Wenn jemand eigibt:
"D:\Excel"
dann den Namen "Test", dann wird die Datei unter: "D:\ExcelTest.xls" abgespeichert.
Ich möchte nun, dass überprüft wird, ob ein "\" am Schluss existiert, und wenn nicht, dass eines hinzugefügt wird.
-> Wie geht das?
Zu dem Dateinamen:
Wenn jetzt jemand "Test.xls" eingibt, wird das als "Test.xls.xls" abgespeichert. Hier möchte ich also überprüfen, ob ein ".xls" am Ende vorhanden ist udn wenn ja, dass es entfernt wird.
-> Wie geht das?
Ich hoffe, mir kann wer helfen, ich helfe auch gerne, wenn ich kann, nur ich bin da noch net so gut drin, aber ich steigere mich ja dank eurer Hilfe..
MfG
Manuel