Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1316to1320
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
Inhaltsverzeichnis

MsgBox Problem

MsgBox Problem
14.06.2013 13:01:14
Heiko
Hi Leute
ich hab da eine Problem und komm nicht drauf. Ich hab da ein Button wo die ausgewählte Zeile gelöscht wird. Das klappt auch alles super aber wenn ich jetzt auf nein klicke wird der Blattschutz nicht mehr gesetzt. Ich komm nicht dahinter. Bitte um Hilfe !!!
Sub Schaltfläche4_BeiKlick()
ActiveSheet.Unprotect ("")
Dim iClick As Integer
iClick = MsgBox(prompt:="Willst du die ausgewählte Zeile wirklich Löschen?", Buttons:= _
vbYesNo)
If iClick = vbYes Then
ActiveCell.EntireRow.Delete
If iClick = vbNo Then
ActiveSheet.Protect ("")
End If
End If
End Sub

mfg Heiko

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ActiveSheet.Protect ("") vor End Sub owT
14.06.2013 13:19:28
robert

AW: ActiveSheet.Protect ("") vor End Sub owT
14.06.2013 13:31:23
Heiko
JuHU
Danke für die schnelle hilfe.
mfg Heiko

AW: ActiveSheet.Protect ("") vor End Sub owT
14.06.2013 13:32:54
Rudi
Hallo,
Sub Schaltfläche4_BeiKlick()
If MsgBox("Willst du die ausgewählte Zeile wirklich Löschen?", vbYesNo) = vbYes Then
ActiveSheet.Unprotect ("")
ActiveCell.EntireRow.Delete
ActiveSheet.Protect ("")
End If
End Sub
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige