Office: Makro bringt Excel zum Absturz

Hi erstmal, bin neu hier und hab schon ne Frage :)

zum Problem: Ich habe folgendes Makro erstellt:

Sub speich()
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
Dim a As Variant
a = MsgBox("Es wird gespeichert!!", vbOKOnly, "Speicherhinweis")
ActiveWorkbook.SaveAs Filename:="F:\" & Range("A1"), FileFormat:=xlExcel8
End Sub


Wenn ich jetzt allerdings auf den Speicher-Button klicke, dann speichert Excel zwar die Mappe, aber stürzt danach immer ab (Microsoft Excel funktioniert nicht mehr)
Kann mir jemand sagen, warum?

Danke schonmal für eure Hilfe

MfG

 

Das ist ja aber auch fies...

Ablauf: Du sagst Excel, daß er die Mappe speichern soll.

Excel findet daraufhin das Ereigis "BeforeSave" und sagt sich: "Oha, da muß ich ja vor dem Speichern noch schnell was machen..."

Der Befehl "SaveAs" dort soll die Mappe speichern, ok...

Excel findet daraufhin das Ereigis "BeforeSave" und sagt sich: "Oha, da muß ich ja vor dem Speichern noch schnell was machen..."

Der Befehl "SaveAs" dort soll die Mappe speichern, ok...

Excel findet daraufhin [...]

An dieser Stelle hab ich dann mal ESC gedrückt... ;-)

Gruß, Michael

 

Klingt logisch was du sagst :)

Da ich aber ein absoluter Laie in Sachen Makros bin, wäre es schön, wenn mir jemand sagen könnte, wie ich die funktion erhalten soll ohne dass es abstürzt :)

Folgendes sollte passieren:

Wenn ich in einem Feld einen Namen eingebe und dann auf speichern klicke, sollte die Mappe unter dem Namen in dem Feld gespeichert werden (Ohne Abstürze :) )

Vielleicht is jemand so nett und hilft mir.

 

Naja, das Grundproblem ist ja: Warum sagstr Du ihm, direkt bevor er speichern will, nochmals, daß er speichern soll. Damit schickst Du ihn ja in die Endlos-Spirale.

Also ein anderer Ablauf. Hmmm...

Dann wäre vielleicht das "Change"-Ereignis des Arbeitsblatts ein Ansatz: Jedesmal, wenn sich der Wert irgendwo auf dem Blatt ändert, würde dieses Ereignis ausgelöst werden. Innerhalb der Routine könnte man dann überprüfen, ob sich der Wert einer bestimmten Zelle geändert hat und wenn es die Zelle mit dem Dateinamen ist, dann speichern mit dem Namen.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim d As String
    Dim p As String
    Dim f As String
    Dim dpf As String

    If (Target.Row = 2) And (Target.Column = 3) Then

        d = "C:"
        p = "\Temp\"
        f = Trim$(Target.Value)
        dpf = d & p & f

        ThisWorkbook.SaveAs dpf

    End If

End Sub

Das würde voraussetzen, daß der Dateiname in C2 (row/zeile=2, column/spalte=3) eingegeben werden soll.

Der Speicherort setzt sich dann aus dem Laufwerk (d), dem Pfad (p) und dem Dateinamen (f) zusammen. Als d wird hier das C-Laufwerk und als f \temp fest angesetzt. Hier müßtest Du dann ggf. anpassen.

Außerdem ist hier nix an Sicherheitsabfragen drin. Wenn also jemand Müll in C3 eingibt, kommt auch Müll beim Speichern heraus... ;-)

Gruß, Michael