einfache Abfrage ??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm InputBox MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "einfache Abfrage ??"