Excel Macro Hilfe

    Per Commandbutton soll ein Macro ausgeführt werden.

    Mit

    Code
    Private Sub CommandButton1_Click()
Call Makro1
End Sub


    klappt dies.

    Das (Test-)Macro lautet

    Bevor das Macro ausgeführt werden soll, sollte eine Rückfrage kommen, da das eigentliche Macro Inhalte löschen soll. Was muß ich dazu wo einführen?

    Besten Dank für Hinweise.

    Code
    Private Sub CommandButton1_Click()
Dim Frage%
Frage = MsgBox("Achtung Makro1 wird ausgeführt", vbYesNo + vbExclamation, _
"Vorgang bestätigen")
If Frage = vbYes Then
Call Makro1
End If
End Sub

    Viel Spaß

    Super. Vielen Dank, klappt wunderbar.
    Vielleicht kannst mir noch eine Frage beantworten.
    Wenn man dann auf ok klickt, soll erst das vorhandene File gespeichert werden, nach ausführen von makro1 dann speichern unter als Fenster aufgehen. Bislang schaffe ich es nur, daß ich speichern unter mit einem vorgefertigtem Befehl und gegebenen Dateinnamen speichern kann. Es soll aber nur die Ordneransicht für speichern unter aufgehen, damit man den Pfad und die Datei wählen kann, unter der das abgespeichert wird. Hast Du dazu auch einen Vorschlag?

    Edit hat sich erledigt, hab gerade eben mit google die Antwort gefunden als Teil des Macros:

    Code
    Dim Neuer_Dateiname
    Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
    If Neuer_Dateiname = False Then Exit Sub
    ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname