Hab da ein Script, welches unter Windows 7 und Excel 2010 funktioniert. Auf einem Rechner mit Windows 10 und Office 365 aber nicht.
Da öffnet sich das speichern-Fenster, es ist aber kein Dateiname vergeben.
Kann mir da jemand helfen?
Private Sub CommandButton21_Click()
'Dialogfeld "Speichern unter" aufrufen
'und dabei den Dateipfad und den Dateinamen
'vorgeben
Dim strDateiname As String
ChDrive "c:\"
ChDir "\temp\"
strDateiname = ActiveSheet.Range("J3").Value & ("__") & Format(Month(Date), "00") & (".") & Year(Date) & ("__FW-Messprotokoll")
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
MsgBox ("Speicherung abgeschlossen")
End Sub
|