Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vbyesno

vbyesno
02.11.2004 20:02:06
Danku
Jo. Bitte beantwortet mir meine Frage:
Sobald ein Button angeklickt wird soll eine Meldung kommen,
das schaffe ich ja noch
Private Sub cbneu_Click()
Dim s As Integer
s = MsgBox(prompt:="" & Chr(13) & " Alle Felder wirklich löschen?" & Chr(13), Title:="Wichtiger Hinweis!", Buttons:=vbYesNo)
'If s = 7 Then Cancel = True
Mein Problem ist nur,
wenn man ja drückt soll der Inhalt der Zelle (7,1) gelöscht werden,
bei nein soll Meldung geschlossn werden.
Bitte helft mir.
mfg danku

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

Betreff
Datum
Anwender
Anzeige
auf ja abfragen
ransi
hallo
versuch mal so:
(ungetestet)

Private Sub cbneu_Click()
Dim s As Integer
s = MsgBox(prompt:="" & Chr(13) & " Alle Felder wirklich löschen?" & Chr(13), Title:="Wichtiger Hinweis!", Buttons:=vbYesNo)
If s = 6 Then Cells(7, 1).ClearContents
End Sub

ransi
AW: auf ja abfragen
02.11.2004 20:51:40
henrik
Oder so:

Private Sub cbneu_Click()
Dim s As Integer
s = MsgBox(prompt:="" & Chr(13) & " Alle Felder wirklich löschen?" & Chr(13), Title:="Wichtiger Hinweis!", Buttons:=vbYesNo)
If s = vbyes Then Cells(7, 1).ClearContents
End Sub

Anzeige
AW: auf ja abfragen
thx
ich danke euch. es geht

136 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige