Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nach MsgBox Code beenden

Nach MsgBox Code beenden
18.01.2009 15:20:40
Heinz
Hallo Leute
Ich komme mit folgenden Code nicht weiter.
Der Code sollte nach jeder MsgBox gestoppt werden, bis alle Bedinungen erfüllt wurden.
Ich habe 3 MsgBox.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
'Werte Eintragen in Maschinen-Blatt
Dim wksMaschine As Worksheet, bolDrucken As Boolean
Set wksMaschine = Worksheets("W311")
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Or Me.CheckBox11 Then
MsgBox "Bitte Datum und Linie wählen!"
End If
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
End If
If Me.CheckBox11.Value = False Then
MsgBox "Bitte Linie wählen!"
Else
End If
Worksheets("W311").Unprotect Password:="test"
Worksheets("W311").Visible = True
With wksMaschine
.Range("E6") = Me.ComboBox1.Value 'Datum
.Range("E4") = Me.TextBox2 'Artikelbeschreibung
.Range("A4") = Me.TextBox3 'ArtikelNummer
.PrintOut
Worksheets("W311").Protect Password:="test"
Worksheets("W311").Visible = xlVeryHidden
End With
bolDrucken = False
Exit Sub
End Sub


Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach MsgBox Code beenden
18.01.2009 15:34:00
Uwe
Hi Heinz,
ich denke das könnte so klappen, mach für mich aber nur Sinn, wenn das OR durch ein AND ersetz wird, sonst würde die zweite Bedingung nie eintreten:

If Me.ComboBox1.ListIndex = -1 And Me.CheckBox11 Then
MsgBox "Bitte Datum und Linie wählen!"
ElseIf Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
ElseIf Me.CheckBox11.Value = False Then
MsgBox "Bitte Linie wählen!"
End If


Gruß
Uwe
(:o)

Anzeige
AW: Nach MsgBox Code beenden
18.01.2009 15:37:00
Heinz
Hallo Uwe

mach für mich aber nur Sinn, wenn das OR durch ein AND ersetz wird


Du hast natürlich schon wieder recht !!
Recht herzlichen Dank
Gruß
Heinz

AW: Nach MsgBox Code beenden
18.01.2009 15:47:05
Heinz
Hallo Uwe
Der Code läuft aber trozdem durch und druckt.
MasgBox kommt aber der Code wird nicht gestoppt.
Gruß
Heinz
Anzeige
AW: Nach MsgBox Code beenden
18.01.2009 15:50:25
Oberschlumpf
Hi Heinz
Schreib mal unter JEDE MsgBox-Zeile den Befehl
Exit Sub
Hilfts?
Ciao
Thorsten
AW: Nach MsgBox Code beenden
18.01.2009 15:53:32
Heinz
Hallo Thorsten
Ja so funktioniert es !!!
Danke & gruß
Heinz
AW: Nach MsgBox Code beenden
18.01.2009 15:56:26
Heinz
Hallo Uwe
Es funkt. aber nur mit "Or" nicht mit "And"
Warum ?
Abes es funktioniert.
If Me.ComboBox1.ListIndex = -1 Or Me.CheckBox11 Then
Nochmals Danke
Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige