Sicherheitsfrage vor löschen einer Zeile

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Leute.

Ich hab da mal wieder ein Anliegen und weiß nicht so recht, wie ich es lösen kann. Und Zwar hab ich ein Makro, was mir die ganze Zeile löscht, wo die Zelle aktiviert ist. Also Bediener wählt Zelle aus, bestätigt mit Eingabe vom Passwort und die Zeile wird aus der Tabelle gelöscht. Jetzt hätte ich gerne noch eine Sicherheitsfrage integriert, die besagt: „Wollen sie wirklich den Eintrag: Wasserpumpe defekt“ löschen? Die Information für z.B. „Wasserpumpe defekt“ soll er mir aus der Spalte „C“ holen. Ist das möglich? Also das er mir egal wo der Cursor ist, die Information aus Spalte C für die Sicherheitsfrage holt geholt wird?

Hier mein jetziger Code:

Private Sub CommandButton1_Click()

If Passwortabfrage.Passwort.Text = Format(Now, „hhDDMM“) Then
ActiveCell.Select
Selection.Delete Shift:=xlUp
Unload Passwortabfrage
Else

MsgBox „Nur der Abteilungsleiter hat diese Berechtigung!“, vbCritical, „Fehler“
For Each ctl In Me.Controls
If TypeName(ctl) = „TextBox“ Or TypeName(ctl) = „ComboBox“ Then
ctl.Value = „“
ElseIf TypeName(ctl) = „CheckBox“ Then
ctl.Value = False
End If
Next ctl
End If
Unload Passwortabfrage
End Sub

Private Sub CommandButton2_Click()
Unload Passwortabfrage
End Sub

Vielen Dank für eure Hilfe.
Danny

#2

Hallo Feets,

Und Zwar hab ich ein Makro, was mir die
ganze Zeile löscht, wo die Zelle aktiviert ist. Also Bediener
wählt Zelle aus, bestätigt mit Eingabe vom Passwort und die
Zeile wird aus der Tabelle gelöscht.

Nein. Es wird nur die Zelle gelöscht.

Jetzt hätte ich gerne
noch eine Sicherheitsfrage integriert, die besagt: „Wollen sie
wirklich den Eintrag: Wasserpumpe defekt“ löschen? Die
Information für z.B. „Wasserpumpe defekt“ soll er mir aus der
Spalte „C“ holen.

probier mal nachstehenden Code.

Gruß
Reinhard

Option Explicit

Private Sub CommandButton1\_Click()
Dim Eing
If Passwortabfrage.Passwort.Text = Format(Now, "hhDDMM") Then
Eing = MsgBox("Wollen sie wirklich den Eintrag: " & Cells(ActiveCell.Row, 3).Value \_
 & " mit Drohnen zermetzeln?", 4, "Sicherheitsnachfrage")
 If Eing = vbYes Then
 ActiveCell.EntireRow.Delete
 Unload Passwortabfrage
 End If
Else
 MsgBox "Nur der Abteilungsleiter hat diese Berechtigung!", vbCritical, "Fehler"
 For Each ctl In Me.Controls
 If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
 ctl.Value = ""
 ElseIf TypeName(ctl) = "CheckBox" Then
 ctl.Value = False
 End If
 Next ctl
End If
Unload Passwortabfrage
End Sub

Private Sub CommandButton2\_Click()
Unload Passwortabfrage
End Sub
#3

Ahh, Prima.
Das hat Super geklappt.

Dankeschön!