Herbers Excel-Forum - das Archiv

einfache Abfrage ??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: einfache Abfrage ??
von: Thomas

Geschrieben am: 12.04.2005 09:01:15
Hallo zusammen,
heute mal etwas einfaches.....vielleicht :-)
in meinem Userform kann der Benutzer auf einen "Knopf" drücken und damit die letzte "volle" Zelle in Tabelle2 B14-B99 löschen.
Das klappt auch gut.
Aber jetzt möchte ich vor dem "Löschen" eine Abfrage haben, die ungefähr so aussieht:
"Soll die Zelle mit dem Inhalt" & Inhaltder Zelle & "gelöscht werden?"
und dann ein Knopf für Ja und für Nein. Bei Ja löschen, bei nein Sub beenden.
Gibt es da vielleicht etwas "vorgefertigtes" ähnlich der Inputbox, nur eben mit Knöpfen und nicht zum reinschreiben?? Oder hat jemand eine andere Idee?
Bild

Betrifft: AW: einfache Abfrage ??
von: Tobias Marx
Geschrieben am: 12.04.2005 09:04:28
Servus!
Es gibt eine MsgBox die das leistet. Schau mal in der VBA-Hilfe nach MsgBox-Konstanten. Sie nennt sich vbYesNo.
Gruss

Tobias
Bild

Betrifft: AW: einfache Abfrage ??
von: EtoPHG

Geschrieben am: 12.04.2005 09:11:25
Hallo Thomas
Sub DeinMakro()
Dim vAnswer as variant
' Dein code
' vor dem Löschen
vAnswer = MsgBox("Soll die Zelle mit dem Inhalt:" & vbCrLf & _
InhaltderZelle & " gelöscht werden ?", vbYesNo, "Zelle löschen")
if vAnswer <> vbYes Then Exit Sub
' Dein Code zum löschen
End Sub

Gruss Hansueli
Bild

Betrifft: AW: einfache Abfrage ??
von: Thomas
Geschrieben am: 13.04.2005 10:04:38
Funktioniert bestens ! Vielen Dank
 Bild
Excel-Beispiele zum Thema "einfache Abfrage ??"
Dialog-Datumseingabe vereinfachen und kontrollieren Einfacher Zellbezug greift auf geschlossene Arbeitsmappe zu
Einfaches Quiz mit 2 vorgegebenen Antworten Unterdrückung von Sicherheitsabfragen
Arbeitsmappe-Schließen-Abfrage abfangen Name der aufrufenden Schaltfläche abfragen
Abfrage der markierten Spalten Anzahl der einzufügenden Zeilen abfragen
Programmabbruch bei Überspeichernabfrage verhindern Abfrage, ob ein Menü in einer Menüleiste vorhanden ist