Doppelte Versionierung verhindern

Sub Makro6() Sheets("Abrechnungsplan").Select Sheets("Abrechnungsplan").Copy Before:=ActiveSheet Sheets("Abrechnungsplan (2)").Select ActiveSheet.Name = Date ActiveSheet.Shapes("Button 2").Select Selection.Cut ActiveSheet.Shapes("Button 1").Select Selection.Cut Cells.Select Range("A525").Activate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A525").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro6() Dim WkSh As Worksheet For Each WkSh In ActiveWorkbook.Worksheets If WkSh.Name = Date Then MsgBox "Schon vorhanden" Exit Sub End If Next WkSh Sheets("Abrechnungsplan").Select Sheets("Abrechnungsplan").Copy Before:=ActiveSheet Sheets("Abrechnungsplan (2)").Select ActiveSheet.Name = Date ActiveSheet.Shapes("Button 2").Select Selection.Cut ActiveSheet.Shapes("Button 1").Select Selection.Cut Cells.Select Range("A525").Activate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A525").Select End Sub

Vielen herzlichen Dank Peter, funktioniert hervorragend!
Ich habe versucht zusätzliche Ideen im Code einzubauen, mir fehlen aber gewisse Bausteine.....
Es sieht jetzt so aus:


Sub Versionierung()
Dim WkSh  As Worksheet
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
For Each WkSh In ActiveWorkbook.Worksheets
If WkSh.Name = Date Then
Sheets("Abrechnungsplan").Select
Cells.Select
Range("A525").Activate
Selection.Copy
    Sheets("29.06.2007").Select
Cells.Select
Range("A525").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit Sub
End If
Next WkSh
Sheets("Abrechnungsplan").Select
Sheets("Abrechnungsplan").Copy Before:=ActiveSheet
Sheets("Abrechnungsplan (2)").Select
ActiveSheet.Name = Date
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Cells.Select
Range("A525").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect
Range("A525").Select
Sheets("Abrechnungsplan").Protect
ActiveWorkbook.Protect
End Sub

Das heisst, ich versuche hier folgendes zu machen:
Angenommen ich bin mit der Eingabe der Daten fertig:
Ich mache eine Version und der Tabellenblatt wird mit dem heutigen Datum bennant.
Falls ich noch zusätzliche Änderungen am selben Tag mache, möchte ich nicht eine Message Box wie von mir auch ursprünglich gedacht, die die Erstellung einer neuen Version unterbindet, sondern ich würde gerne die Werte im bereits erstellte Blatt (mit dem heutigen Datum als Name) ersetzten. Wie du im obigen Code erkennen kannst, weiss ich nicht wie ich auf diesen Blatt hinweise: habe die Zeile fett gemacht. Kannst du mir die veränderliche Bezeichnung sagen? vielen Dank.
Die nächste Frage wäre: ist dasüberhaupt möglich ein Makro so zu definierenm, dass man bei Auslösung eine Message Box hat, die heisst: Möchten Sie wirklich eine Version anlegen bzw. die bereits erstellte Version überschreiben: Falls Nein, Auslösung verhindern. Falls Ja, auslösen.
Vielen herzlichen Dank für die Unterstützung.
Gruss
Salim

Beliebteste Forumthreads (12 Monate)

Doppelte Versionierung verhindern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread