Ich habe folgendes Makro:
Sub NurXLS()
Application.ScreenUpdating = False
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\Temp\rot.xls"
Windows("weiter.xls").Activate
Sheets("Tabelle3").Select
Cells.Select
Selection.Copy
Windows("rot.xls").Activate
Cells.Select
ActiveSheet.Paste
'EXCEL-SPEICHERDIALOG ZUR BESTIMMUNG DES DATEINAMENS AUFRUFEN
auswahlangabe1 = MsgBox("Wählen sie im folgenden Dialog den Pfad und den Dateinamen für das _
Excel-File aus", vbOKOnly, "SPEICHERORT EXCEL-FILE")
Saveas_filename = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Path & "\" & _
strFileSaveName, fileFilter:="MyData(*.xls), *.xls")
'FALLS ANWENDER AUF ABBRECHEN GEDRÜCKT HAT
If Saveas_filename = False Then
strTxt = "Sie haben den Speichervorgang abgebrochen. Die Daten wurden nicht exportiert!"
MsgBox strTxt, vbCritical
Exit Sub
End If
'DATEINAME AUS KOMPLETPFAD EXTRAHIEREN
lngStringLaenge = Len(Saveas_filename)
For i = lngStringLaenge To 1 Step -1
'STRING RÜCKWÄRTS AUFBAUEN BIS SHLASH KOMMT
If Left(Mid(Saveas_filename, i), 1) = "\" Then
strFilename = Mid(Saveas_filename, i + 1)
Exit For
End If
Next i
'ENDANWEISUNGEN
ActiveWorkbook.SaveAs Filename:=Saveas_filename, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Kill "C:\WINDOWS\Temp\rot.xls"
Sheets("Tabelle3").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Tabelle1").Select
Range("A1").Select
Fertig = MsgBox("Der Bericht wurde erfolgreich erstellt!", vbOKOnly, "VORGANG ABGESCHLOSSEN")
Application.ScreenUpdating = True
End Sub
Macht folgendes: Schreibt eine Tabelle in eine neue Arbeitsmappe und speichert diese dann unter einem neuen Namen, den man eingeben kann, ab.
Läuft das Makro passiert folgendes.
Makro läuft.
MsgBox: "Der Bericht wurde erfolgreich erstellt!" erscheint
die Speicherabfrage erscheint
Fertig
Aber Makro soll tun:
Makro läuft
Speicherabfrage erscheint
MsgBox: "Der Bericht wurde erfolgreich erstellt!" erscheint
Fertig
Gehört da irgendow ein halt rein, bevor man weitermacht, oder wie kann ich das erreichen?
Danke für eure Tipps!
Gruss
Rolf