Office: speichern im falschen Format

Hallo zuammen,

ich möchte aus einer Makro-Datei ein Tabellenblatt in eine neue Arbeitsmappe kopieren und diese Datei als xlsx speichern. Dazu habe ich mir das folgende Makro geschrieben:

Sub AG_Datei_neu()
'
' AG_Datei_neu Makro
'

'

Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant

Sheets("OP-Liste").Select
Sheets("OP-Liste").Copy

Verzeichnis = "O:2 PM1 CPM1 CC7_Drittgeschäft2 Henderson2. Objekte" 'Verzeichnis-Vorschlag
Datei = Range("A3") & "_OP Call" & Format(Date, "_mm_yyyy") 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern gedrückt

ActiveWorkbook.Close
Sheets("Makros").Select
End Sub



Das funktioniert auch alles wunderbar. Allerdings wird die Datei als xls gespeichert. Wenn ich diese dann öffne ercheint die folgende Fehlermeldung:
"Das Dateiformat und die Dateierweiterung von Dateiname passen nicht zueinander. Möglicherweise ist die Datei beschädigt oder nicht sicher. Sie sollten sie nicht öffnen, wenn Sie Ihrer Quelle nicht vertrauen. Möchten Sie die Datei trotzde öffnen?"
Wenn ich die Datei dann öffne, manuell als xlsx speicher und die Endung "xls" lösche, funktioniert alles einwandfrei. Aber das muss doch auch von Anfang an richtig gehen, oder?!

Zudem würde ich die Datei gerne automatisch in dem Pfad speichern, in dem die Ursprungsdatei (also die, aus der das Tabellenblatt kopiert wurde) abliegt. Hier habe ich schon sämtliche Varianten mit "ThisWorkbook.Path" probiert, die aber alle zu Fehlermeldungen führten.

Ich bin für jeden Tipp dankbar! *Smilie

Ganz liebe Grüße

:)

 

Hi,

schau dir mal folgendes an:
https://docs.microsoft.com/de-de/off...orkbook.saveas
https://docs.microsoft.com/de-de/off...ook.savecopyas

Beachte bei .SaveAs das Fileformat bzw gib an, welches Format Du speichern möchtest.

 

Hallo Marco,

vielen Dank für deine Antwort.

Leider komme ich mit der Hilfe nicht weiter, weil mir nicht ganz klar ist, wie ich das Makro umgestalten muss.

Könntest du deine Hilfe bitte ein wenig präzisieren? Da wäre ich dir sehr dankbar!

Liebe Grüße
Martina

 

Ich gehe davon aus, dass SaveDummy verwendbar ist:

Code: