MSG - Box

Forumthread: MSG - Box
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: MSG - Box

MSG - Box

01.02.2004 15:03:08

helena

Hallo Exelfreunde
möchte für meinen Ablauf denn Start Makro mit Rückfrage gestalten
Sub last_check()
Dim Mldg$
Mldg = MsgBox("Kunden-Nummer korrekt?", _
vbYesNo + vbQuestion, "sind Sie sicher...")
*** Anzeige AKTIVESHEET ZELLEA1 in MSG-BOX
*** MsgBox "Ok, dann speichern"
call mein Makro
*** MSGBOX wenn NEIN
*** beenden
denke so müsste es in etwa sein YES/NO mit YES CALL
und mit NO BEENDEN
DANKE
gruss helena

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MSG - Box

01.02.2004 15:09:21

Bertram
AW: MSG - Box

01.02.2004 15:12:13

Knut
Danke beide Var. Tip-Top (oT)

01.02.2004 15:23:22

helena

AW: MSG - Box

01.02.2004 15:09:21

Bertram

Hallo Helena,
so etwa?

Sub last_check()
Dim Mldg$
Mldg = MsgBox("Kunden-Nummer " & Range("A1") & " korrekt?", _
vbYesNo + vbQuestion, "sind Sie sicher...")
If Mldg = vbYes Then Call meinMakro
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram

AW: MSG - Box

01.02.2004 15:12:13

Knut

Option Explicit


Sub last_check()
Dim Mldg As Integer
Mldg = MsgBox("Kunden-Nummer korrekt? " & Space(10) & Chr(10) & ActiveSheet.[a1], _
vbYesNo + vbQuestion, "sind Sie sicher...")
If Mldg = vbNo Then Exit Sub
''Dein Code
End Sub

Knut

Danke beide Var. Tip-Top (oT)

01.02.2004 15:23:22

helena

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!