Makro mit Nachfrage + Rückgängig machen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sollstunden_April() ' Sollstunden_April Makro ' Makro am 02.05.2005 von TRitter aufgezeichnet ' Tastenkombination: Strg+r Range("B83") = Range("K16").Value Range("C83") = Range("M16").Value Range("E83") = Range("C16").Value Range("F83") = Range("E16").Value Range("G83") = Range("G16").Value Range("H83") = Range("I16").Value Range("I83") = Range("K16").Value Range("J83") = Range("M16").Value Range("L83") = Range("C16").Value End Sub

Hi,
versuch mal nach diesem Prinzip. Scheint für Deine Belange zu reichen. Du musst es natürlich noch anpassen.

Private Sub CommandButton1_Click()
  If MsgBox("Änderungen des vorherigen Makroaufrufes rückgängig machen?", vbQuestion + vbYesNo, "Frage") = vbYes Then
    Sollstunden_April (True) 'Rückgängig machen
  Else
    Sollstunden_April        'normal ausführen
  End If
End Sub
Sub Sollstunden_April(Optional Rückgängig As Boolean)
Static Merke(1 To 8) '8 ggf. anpassen! =Anzahl der Zellen, die Du Dir merken willst

If Not Rückgängig Then
  If Not MsgBox("Soll das Makro ausgeführt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then Exit Sub
  Merke(1) = Range("A1")
  Range("A1") = Range("A2").Value
  Merke(2) = Range("B1")
  Range("B1") = Range("B2").Value
  'usw.
  'diese Zeilen musst Du an Deine Ansprüche anpassen
  'wichtig ist, daß Du den Wert der sich ändernden Zelle
  'vorher im Feld Merke() ablegst.
Else
  If Not MsgBox("Sollen die Änderungen des Makros rückgängig gemacht werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then Exit Sub
  Range("A1") = Merke(1)
  Range("B1") = Merke(2)
  'usw.
  'wieder anpassen. Hier werden die Werte aus dem Merke()-Feld
  'wieder in die Zellen zurückgeschrieben.
End If
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.

https://www.herber.de/bbs/user/22055.xls
Hallo,
danke erstmal für deine Hilfe. Wenn ich das mit meinen Kenntnissen richtig verstehe, müsste ich für jeden Monat ja extrem lange Anpassungen vornehmen.
Zum besseren Verständnis habe ich mal ein Tabellenblatt hochgeladen. Dieses gibt es ca 400mal in einer Arbeitsmappe.
Im Bereich C16 bis M16, stehen nun Werte, welche per "Billig-Makro" in die entsprechenden Felder im jeweiligen Monat eingetragen werden. Nun kann es vorkommen das sich entweder die Zahlen aus dem Bereich C16 bis M16 ändern. Wenn ich nun ohne Absicht das Makro zB für Januar nochmal ausführen lasse, würde Excel ja die geänderten Werte eintragen, da die Werte aber zB erst ab einem bestimmten Zeitpunkt nach Januar gelten sollten, wäre ein Überschreiben "nicht wünschenswert".
Ich hatte auch schon mal gefragt ob es eine Möglichkeit gibt das wenn Werte in den Zellen stehen, das Excel dann einfach nichts einträgt. Hierbei gab es auch eine Antwort, eine monatliche Anpassung mit meinen Fähigkeiten im VBA/Makro Bereich reicht für sowas allerdings absolut nicht.
Die Zweite Frage bezieht sich auf das Überschreiben. Um eine Kontrolle zu haben was eventuell vorher in den Zellen stand, wollte ich über eine Art Rückgängig nachsehen ob eventuell Werte in den Zellen vor Ausführung des Makros standen. Diese Funktion würde halt entfallen wenn es eine Art Schreibschutz für die Zellen gäbe, in denen Werte bereits eingetragen werden...
Hoffe ich konnte mein blödes Problem verständlicher darstellen...
MfG aus Berlin

Beliebteste Forumthreads (12 Monate)

Makro mit Nachfrage + Rückgängig machen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro mit Nachfrage + Rückgängig machen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread