Supportnet / Forum / Tabellenkalkulation

Hallo Leute! :) Ich habe hier eine Exceltabelle (sowas aber auch). In dieser Excel-Tabelle habe ich ein Makro - verknüpft mit einem Button - welches bestimmte Inhalte löscht. Da diese Inhalte sehr brisant sind, möchte ich diese vor einem unbeabsichtigten Löschen schützen. Dazu würde ich gerne eine Input-Box erstellen, wo man z.b. LOESCHEN hineinschreiben muss. Nach Eingabe des Wortes und der Bestätigung werden die Inhalte gelöscht. Leider weiß ich nicht, wie ich das hinbekomme. Kann mir von Euch wer vielleicht mit so einem Makro für so eine Box mit Einhabe helfen? Danke schon im Voraus! Marty

Hi Marty,

versuch mal folgendes:

Sub löschen()
Dim Antwort As String, Meldung As String
Dim Titel As String, Vorschlag As String
Meldung = "Geben Sie das Password ein"
Titel = "Daten löschen"
Vorschlag = ""
Antwort = InputBox(Meldung, Titel, Vorschlag)
If Antwort = "" Then
Exit Sub
End If
If Antwort <> "TEST" Then GoTo weiter
If Antwort = "TEST" Then
Range("A1:A25").Select
Selection.ClearContents
Exit Sub
weiter:
MsgBox "Das Password ist falsch!"
End If
End Sub


Den normal formatierten Teil durch dein jetzigen Code ersetzen.
Es wird eine InputBox erstellt in der ein Password abgefragt wird. Im Beispiel TEXT. Wenn nichts oder "Abbrechen" eingegeben wird passiert nichts. Wird ein falsches Password eingegeben, wird dies in einer MsgBox angezeigt. Bei richtiger Eingabe wird das Makro ausgeführt.

Ich hoffe du kommst zurecht.

MfG Jöke

supercool! genau das habe ich gebraucht, funktioniert einwandfrei!

vielen dank! :)

marty

Hi marty,

freut mich, das ich dir helfen konnte. Und vielen Dank für die Rückinfo.

Schönen Tag noch

JöKe

• Kein button für internetverbindung, er fehlt!! ??
• Find Button
• Cookie-Button
• Excel: Zugriff auf Button
• Problem mit Button