Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MSG - Box

MSG - Box
01.02.2004 14: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
Anzeige
AW: MSG - Box
01.02.2004 14: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
Anzeige
AW: MSG - Box
01.02.2004 14: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 14:23:22
helena
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige