Benötige Hilfe bei Before Save Ereignis
24.02.2016 09:02:44
Thorben
Ich habe eine Datei!
Ich hatte es wie folgt:
So klappt es: direkte Dateibenennung
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo Ende
If ActiveSheet.Range("F1") = "Hallöle" = True Then
ActiveWorkbook.SaveCopyAs "\\server\a\b\c\d\05\abc1.xlsm"
Else
ActiveWorkbook.SaveCopyAs "\\server\a\b\c\d\05\abc2.xlsm"
End If
Ende:
Exit Sub
End Sub
Jetzt möchte ich etwas flexibler werden und will ActiveSheet.Range("F1")
in einem anderen Blatt haben!
Leider geht's nicht so wie erwartet:
So geht's nicht: Excel stürzt ab!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FName As String
Dim FPath As String
FPath = "\\server\a\b\c\d\05\"
FName = Sheets("BV Name").Range("A1").Text
Application.ScreenUpdating = False
ThisWorkbook.SaveCopyAs Filename:=FPath & "\" & FName
Application.ScreenUpdating = True
End Sub
Kann mir mal einer helfen bitte.
Besten Dank und Gruß
Thorben
Anzeige