Hallo,
folgender Code wird durch Klick auf einen Button ausgeführt:
'eMail Empfänger und Betreff einlesen
gn_an1 = Sheets("Zeitraum").Cells(4, 2)
gn_an2 = Sheets("Zeitraum").Cells(4, 3)
gn_an3 = Sheets("Zeitraum").Cells(4, 4)
gn_an4 = Sheets("Zeitraum").Cells(4, 5)
gn_an5 = Sheets("Zeitraum").Cells(4, 6)
gn_org_filename = ActiveWorkbook.Name
gn_path = ActiveWorkbook.Path
gn_betreff = "KPP_" & Sheets("KPP").Cells(6, 12) & "_" & Sheets("KPP").Cells(10, 12) & "_" & Sheets("KPP").Cells(17, 14) & "_" & Format(Now, "DDMMYYYY_hhmmss")
gn_filename = gn_path & "\" & gn_betreff
gn_filename = Replace(gn_filename, ".", " ")
Application.DisplayAlerts = False
'Datei speichern unter neuem Namen
ActiveWorkbook.SaveAs Filename:=gn_filename, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Datei versenden als Anhang via Outlook
Application.Dialogs(xlDialogSendMail).Show arg1:=Array(gn_an1, gn_an2, gn_an3, gn_an4, gn_an5), arg2:=gn_betreff
'Datei speichern unter altem Namen
ActiveWorkbook.SaveAs Filename:=gn_org_filename, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
*************************************************
gn_path zeigt beim ersten Mal korrekt den Dateipfad des Workbooks an: i:\kpp
Wird der Button nochmals betätuigt steht in gn_path folgender Pfad: c:\office12\...
Ich bin zwingend auf den korrekten Pfad angewiesen; hat jemand eine Idee was dort passiert (und wie ich das Verhalten vermeiden kann)?
Danke für Hilfe,
Heinz