VBA Wert & Sonderzeichen zurückgeben
01.06.2017 19:31:15
Pascal
tut mir leid für den ähnlichen Beitrag doch verlor der alte ein wenig die Übersicht.
Folgender Code übernimmt über eine Schaltfläche das Speichern.
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\Users\koch\Desktop\" 'Verzeichnis-Vorschlag
Datei = "Name" & ActiveSheet.Range("AJ6").Value & ".xls" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy
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
Der Code speichert die Datei unter dem Namen "Name" wenn kein Inhalt in AJ6 vorhanden ist und unter dem Namen "Name+(inhalt AJ6) wenn Inhalt in AJ6 vorhanden ist.
Wie schaffe ich es das der Datei-Name "Name" lautet wenn kein Inhalt in AJ6 vorhanden ist und der Name "Name_(inhalt AJ6)" lautet wenn ein Inhalt in AJ6 vorhanden ist.
Er also zusätzlich zum InhaltAJ6 noch einen Unterstrich davor setzt?
Liebe Grüße
Anzeige