Makro funktioniert nicht
19.07.2021 08:00:37
Jessica
ich habe dieses Makro:
Sub MeinMako()
Dim Altname As String, Neuname As String, Pfad As String
Pfad = "...."
ThisWorkbook.Save
Altname = ThisWorkbook.FullName
If Right$(Pfad, 1) "\" Then Pfad = Pfad + "\"
Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=Neuname
Workbooks.Open (Altname)
ThisWorkbook.Close
End Sub
Wenn ich das Makro auf einen Button hinterlege funktioniert er.Ich habe jetzt aber eine Registerkarte "Meine Makros" in Excel angelegt und den Makro dort oben hinterlegt. Da funktioniert er nicht. Die Fehlermeldung lautet:
Lautzeitfehler 1004
Diese Erweiterung kann nicht mit dem ausgewählten Dateintyp verwendet werden.
Ändern Sie die Dateierweiterung im Textfeld 'Dateiname', oder wählen Sie einen anderen Dateityp aus, indem Sie die Auswahl unter 'Speichern unter' ändern.
Wenn ich auf Debuggen gehe wird mir 'ThisWorkbook.SaveAS Filename:=Neuname' gelb gemarkert.
Mir ist schon klar, dass es daran liegt, dass das Makro im Register liegt. Ich würde aber gerne mehrere Makros ins Register legen. Deswegen wäre ich sehr dankbar, wenn man mir sagt, worauf ich da zu achten habe, wo da der Unterschied liegt.
Viele Grüße
Jessica