Nach Änderung Versionsnummer in Dokument aktualisieren (Codeergänzung)

[tw14199]

Hallo,

Habe folgenden Qeullcode

Sub Foo()

If ActiveWorkbook.Saved = True Then

MsgBox "Die Datei " & ActiveWorkbook.Name & " wurde nicht verändert.", _

vbInformation


End If


Dim MyDialog As Variant

    MyDialog = MsgBox("Änderungen in " & ActiveWorkbook.Name & _

    " speichern?", vbYesNoCancel + vbQuestion)


If MyDialog = vbYes Then

MsgBox "Es wurde 'JA' gewählt."

ElseIf MyDialog = vbNo Then

MsgBox "Es wurde 'NEIN' gewählt."

ElseIf MyDialog = vbCancel Then

MsgBox "Es wurde ABBRECHEN gewählt."


 End If

 End Sub

Funktion:

Wenn Änderung in Excel Dokument und Dokument verlassen wird bzw gespeichert wird, dann Dialogfenster (Änderung Speichern: Ja, Nein, Abrechen) anzeigen.

Sollte zumindest auch fragen, wenn ich speichere oder schließe (biite prüfen).

Gegeben: Zelle A1 hat den String "Version.X", das X steht für eine Zahl

Erweiterung gewünscht:

Wenn wie oben beschrieben, Dialogfenster angezeigt wird, soll vor dem verlassen bzw. Speichern das Feld A1 geändert werden.

Wenn Dialogfel 'JA' dann Feld Version.X (hier das X um 1 erhöhen) und Deatei unter DateinamenVers.X (X gelich wie im Dokument setzen) im Pfad XYZ speichern.

Es sollt immer, wenn das Dokument nach einer Änderung verlassen wird, die Versionsnummer in Feld A1 erhöht und der Dateiname angepasst werden.

Ansatz:

Dachte da an den Befehl replace um die Vesion zu erhöhen. oder muss man das über Konkatination machen da die Versionsnummer ja Teil des Strings ist, die Nummer als Integer ja mittels Schelfe erhöt werden kann (oder?).

Wie kann man das machen?

Bitte Quellcode konkret ergänzen, da ich Anfänger bin und mit VBA nie was ztun hatte.

Danke

Thomas