Makro anpassen

Hallo an Alle,
nachfolgenden Code aus dem Archiv habe ich einem CommandButton zugewiesen.
Doch folgende Änderungen kriege ich allerdings nicht realisiert:
1. Das Makro soll nur bei einem DOPPELCLICK auf den Button ausgeführt werden.
2. Vor dem Ausführen des Makros soll eine Sicherheitsabfrage erfolgen ("Formeln in den markierten Zellen unwiderruflich durch ihren Wert ersetzen?) - wobei bei Click auf "NEIN", das Makro abgebrochen werden soll.
Hat jemand eine zündende Idee? Nett wäre es auch, wenn die Änderungen kommentiert würden.
MfG Dirk N.


Private Sub CommandButton1_Click()
'Sub FormelZuWert()
' Ersetzt Formeln durch ihre Werte
' Voraussetzung: Formelzellen markiert
' Auswahl kopieren
Selection.Copy
' Kopierte Zellen einfügen, jedoch nur die Werte (xlValues)
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' Kopieren-Modus ausschalten
Application.CutCopyMode = False
' Abschluss-Meldung (optional)
MsgBox "Formeln in " & Selection.Cells.Count & " Zellen durch ihren Wert ersetzt!"
'End Sub

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Loeschabfrage() If MsgBox("Wollen Sie den Auftrag wirklich löschen.", _ vbYesNo + vbQuestion, " Löschabfrage, nur zur Sicherheit.") = vbYes Then MsgBox "Ja wurde angeklickt." & Chr(10) & Chr(10) & _ "Nun geht der Auftrag verloren...", _ 64, " Hinweis für " & Application.UserName Else MsgBox "Nein wurde angeklickt." & Chr(10) & Chr(10) & _ "Gerade noch einmal Glück gehabt...", _ 64, " Hinweis für " & Application.UserName End If End Sub

Hallo Orakel!
Wir Kämpfen doch hier nicht, darum gibt es auch keine Niederlage oder Sieger und Verlierer.
Ich, und die meisten anderen Antworter in diesem Forum helfen, weil es uns Freude macht und weil wir uns nur zu gut daran erinnern, daß wir selber auch mal absolute DAU's in Bezug auf Excel-VBA waren.
Und damit alle zufrieden sind, hier mit Prüfung auf Formelzellen.

Private Sub CommandButton1_Click()
Dim rng As Range

On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeFormulas)
Err.Clear
On Error GoTo 0

If Not rng Is Nothing Then
  If MsgBox("Formeln umwandeln?", 292, "Frage") = 6 Then
    rng = rng.Value
    MsgBox "Formeln in " & rng.Count & " Zellen durch ihren Wert ersetzt!"
  End If
Else
  MsgBox "Nix Formel!"
End If

End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread