Nachfrage bevor löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zellelöschen() Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1 Mldg = "Zelle wirklich löschen ?" ' Meldung definieren. Stil = vbYesNo + vbCritical + vbDefaultButton1 ' Schaltflächen ' definieren. Titel = "Lösch-Dialogfeld" Hilfe = "DEMO.HLP" ' Hilfedatei ' definieren. Ktxt = 1000 ' Kontext für Thema ' definieren. Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen. ' Benutzer hat "Ja" ' gewählt. If Antwort = vbYes Then Range("J9:U29").Select Selection.ClearContents End If End Sub

Hallo Katja & Fritz,
dieses Makro setzt voraus, dass es immer aufgerufen wird, bevor eine Zelle gelöscht wird. Ich glaube, das kann man so wohl kaum voraussetzen. Automatisch kann das nur mit VBA-Ereignisprozeduren fkt. Aber, wenn man sowas installiert, sollte man VBA-Kenntnisse haben. Deshalb nur noch soviel: Da es kein Arbeitsblatt-Ereignis BeforeChange gibt, muss man sich mit den Ereignissen SelectionChange und Change begnügen. Bevor man manuell etwas ändern kann, muss man ja erst die Zelle auswählen, was das erstere Ereignis auslöst. In der zugehörigen Prozedur muss der Wert der Zelle in einer globalen Variablen "gemerkt" wdn. Wenn dann die Zelle geändert wird, wird das letztere Ereignis ausgelöst. In der zugehörigen Prozedur wird die MsgBox mit der Frage gestartet (Schalter Ja/Nein, es können außerdem alter und neuer Wert der Zelle angegeben wdn) und bei Nein der alte Wert wieder in die Zelle zurückgeschrieben und der neue somit verworfen. Bei Ja bleibt der neue Wert stehen.
Viel Erfolg, falls ihr es selbst ausprobieren wollt
Gruß Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then If Not MsgBox("Wollen Sie die Zelle wirklich löschen?", _ vbYesNoCancel + vbQuestion) = vbYes Then On Error Resume Next With Application .EnableEvents = False .Undo .EnableEvents = True End With On Error GoTo 0 End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Select Case MsgBox("Willst Du die Zelle wirklich ändern?", vbYesNo, "Hallo Katja") Case vbYes Exit Sub Case vbNo With Application .EnableEvents = False .Undo .EnableEvents = True End With End Select End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZ As Range For Each rngZ In Target If rngZ.Address = "$A$8" Then Select Case MsgBox("Willst Du die Zelle wirklich ändern?", vbYesNo, "Hallo Katja") Case vbYes Exit Sub Case vbNo With Application .EnableEvents = False .Undo .EnableEvents = True End With End Select End If Next End Sub

Hallo Hans,
dann geht's wirklich nur so wie ich es in meinem Beitrag geschildert habe. Das fkt aber auch nur, wenn das Makro die Zelle vor dem Löschen selektiert hat und die events in diesem Moment enabled sind. In allen anderen Fällen wüsste ich momentan keine Lösung.
Hallo Katja,
mir war schon klar, dass du das wohl nicht verstehen wirst. Deshalb habe ich ja deinen ersten Unterstützer mit angesprochen. Der sollte damit angeregt wdn, nach praktikableren Wegen zu suchen. Hier wollen ja alle was lernen! Es kommt des Öfteren vor, dass für ein Problem keine einfache Lösung (z.B. mit Formeln) existiert. Dafür gibt's dann VBA und das teilt sich natürlich auch in viele Komponenten. Kaum einer wird alles können. Das dauert nämlich durchaus Jahre, aber damit anfangen muss man, wenn man wirklich in dieser Richtung Fähigkeiten erwerben will.
Gruß an alle, die sich so wacker geschlagen haben, mit oder ohne meine Anmerkungen ein funktionables Programm zustande zu bringen. So hatte ich mir das gedacht.
Luc :-?

Sub Stammdaten_0() Select Case MsgBox("Willst Du die Zelle wirklich ändern?", vbYesNo, "Liebe Kollegin, lieber Kollege") Case vbYes Range("B3").Select Selection.ClearContents Exit Sub Case vbNo With Application .EnableEvents = False .EnableEvents = True End With End Select End Sub

Private Sub CommandButton1_Click() Dim rngZ As Range For Each rngZ In Selection If rngZ.Address = "$A$8" Then Select Case MsgBox("Willst Du die Zelle wirklich löschen?", vbYesNo, "Hallo Katja") Case vbYes Selection.Delete Case vbNo Exit Sub End Select End If Next End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nachfrage bevor löschen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread