Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitsabfrage

Sicherheitsabfrage
06.02.2008 20:44:00
mike49
Hallo,
habe ein kleines Makro aufgezeichnet, das auch funktioniert. Wie kann ich eine Sicherheitsabfrage einbauen, dass nachgefragt wird, ob die Aktion ausgeführt werden soll oder nicht?

Sub KaltwasserEG_OG()
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End Sub


Gruß
mike49

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitsabfrage
06.02.2008 20:48:45
Ulf
Hallo mike
ich denke so.

Sub KaltwasserEG_OG()
Dim var
var = MsgBox("möchtest du starten?", vbYesNo, "Nachfrage")
If var = 6 Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


mfg Ulf

AW: Sicherheitsabfrage
06.02.2008 20:49:35
Mister
Hallo,
z.B. so....

Sub Kaltwasser
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie den Dienstplanorganizer 2008 beenden?", vbYesNo + vbQuestion, " _
Dienstplanorganizer 2008")
If Antwort = vbYes Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


Gruß
Martin

Anzeige
AW: Sicherheitsabfrage
06.02.2008 20:50:14
Mister
Hallo,
z.B. so....

Sub Kaltwasser
Dim Antwort As Integer
Antwort = MsgBox("Möchten Sie fortfahren?", vbYesNo + vbQuestion, "Kaltwasser")
If Antwort = vbYes Then
ActiveSheet.Unprotect
Range("U11:V11").Select
Selection.Copy
Range("U12:V12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("U11:V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("V11").Select
ActiveCell.FormulaR1C1 = "0"
Range("U11").Select
ActiveSheet.Protect
End If
End Sub


Gruß
Martin

Danke Euch beiden . . .
06.02.2008 21:19:00
mike49
beide Versionen funktionieren.
Gruß
Mike49
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige