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
