Ecxel stürzt ab...
17.08.2007 14:33:00
Gromminger
Mein Excel-Template stürzt beim Versuch, die Datei unter einem bestimmten Namen abzuspeichern
regelmässig ab.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wbk As Workbook
Dim wsh As Worksheet
Dim FileSave As String
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("VBB_Form")
Application.DisplayAlerts = False
country_code = wsh.Cells(2, 7).Value
vin = wsh.Cells(12, 7).Value
FileSave = "VBB " & country_code & " " & vin & ".xls"
ActiveWorkbook.SaveAs Filename:=FileSave
End Sub
Wer kann mir helfen?
Danke und Gruss,
Gromminger