Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
204to208
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if than else

if than else
22.01.2003 17:49:46
mehmet
hallo forum
ganz easy
wie war das nochmal

bevor makro1 läuft soll gefragt
ja/nein
bei ja, soll makro1 laufen
nei nein, soll makro1 nicht laufen

dank und gruss

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: if than else
22.01.2003 18:01:04
Chris
Hallo Mehmet

Nachricht = "Soll Makro ausgeführt werden?"
Stil = vbYesNo
Titel = "Makro ausführen?"
Antwort = MsgBox(Nachricht, Stil, Titel)

If Antwort = vbYes Then
'hier Makro einfügen
MsgBox ("Makro wird ausgeführt")

Else
MsgBox ("Makro wird nicht ausgeführt")
Exit Sub
End If

Gruss
Chris

chris, schau mal bitte
22.01.2003 18:15:16
mehmet
chris schau mal kurz nach bitte
läuft nicht

Sub WennDannSonst()

If Antwort = vbYes Then
mak1
Else

MsgBox ("Makro wird nicht ausgeführt")
Exit Sub
End If
End Sub

Public Sub mak1()
MsgBox ("Makro wird ausgeführt")
End Sub

dank und gruss

Anzeige
Re: chris, schau mal bitte
22.01.2003 18:19:04
Chris
Private Sub CommandButton1_Click()
Nachricht = "Soll Makro ausgeführt werden?"
Stil = vbYesNo
Titel = "Makro ausführen?"
Antwort = MsgBox(Nachricht, Stil, Titel)

If Antwort = vbYes Then
Call mak1
Else
MsgBox ("Makro wird nicht ausgeführt")
Exit Sub
End If
End Sub

Makro im Modul:

Sub mak1()
MsgBox "Makro wird ausgeführt."
End Sub


Gruss
Chris

danke schön
22.01.2003 18:30:41
mehmet
dank dir chris
es läuft
gruss

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige