ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
23.06.2014 14:57:24
Thorben
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Filestring1 = "\Test1.xlsm"
Filestring2 = "\Test2.xlsm"
If ActiveSheet.Range("G1") = "Bestand 1" = True Then
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Filestring1
Else
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Filestring2
End If
ActiveWorkbook.Save
End Sub
Er speichert zwar die Kopie aber dann ist Feierabend.
Wenn ich den Pfad direkt anweise dann klappts ohne mucken:
Möchte aber mit ThisWorkbook.Path arbeiten.
Jemand ne Idee warum Excel damit Probleme hat?
Danke und Gruß
Thorben