Makro in Vista geht nicht
ReSt
ich habe nun ein Problem welches ich nicht verstehe.
Unten steht ein Makro welches in Windows XP funktionierte. Das heisst es kam ein Speichern unter Dialogfeld welches schon mit dem Namen und dem Dateityp ausgefüllt war.
Jetzt wo ich Windows Vista verwende, bekomme ich nur noch das Dialogfeld. Der Name fehlt und im Dateityp kann ich auch kein Excel anwählen. Kann mir jemand sagen, wie man das Makro ändern muss ?
Gruss Reto
' speichert die Datei Jan-Juli unter einem anderen Namen und löscht die unnöten Blätter
'
Sub JanDez_abspeichern()
Dim sh As Worksheet
Dim strVerzeichnis
Jahr = Worksheets("Input").Range("E2")
Tagesdatum = Application.Text(Now(), "dd-mm-yy___hh-mm")
sicherung = "Januar-Dezember " & Jahr & " " & Tagesdatum & ".xls"
strVerzeichnis = Application.GetSaveAsFilename(sicherung)
Sheets("JanDez").Activate 'aktiviert das Blatt
Cells.Select 'markiert alle Zellen
Selection.Copy 'kopiert alle Zellen
Workbooks.Add 'fügt ein neues Blatt ein
ActiveSheet.Paste 'fügt die Zellen ein
Application.CutCopyMode = False
' speichern unter; mit Dialogfeld
If strVerzeichnis <> False Then
ActiveWorkbook.SaveCopyAs strVerzeichnis
Else
MsgBox "Die Datei konnte wegen Benutzerabbruch nicht gespeichert werden!", vbOKOnly + vbCritical, "Speichern fehlgeschlagen"
End If
'schliesst die Hilfsdatei und kehrt auf den Ursprung zurück
ActiveWorkbook.Close savechanges:=False ' alle Änderungen werden verworfen
Range("A1").Select
End Sub