Falscher Rückgabewert bei MsgBox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jessica

"Zitat FAQ Herber: Stelle bitte keine Fragen im Rundumschlag. Es kommt vor, dass Fragen im Spotlight-Forum, in der
Excel-NewsGroup, an mich persönlich und gleichzeit hier ins Forum gepostet werden. Damit steigen zwar die
Chancen des Fragestellers, eine Antwort zu bekommen, andererseites beschäftigt er ganze Völkerschaften mit
seinem Problem, was die Chance anderer Fragestellern auf eine Antwort wiederum verringert. Dieses
Verhalten ist nicht fair und wird nicht toleriert"

Mit dem doppelten Posting in den Foren ist das so ein Problem, wird der Beitrag in mehreren Foren gleichzeitig gepostet arbeiten mehrere Helfer gleichzeitig an der Lösung. Sollten nun mehrer Helfer sich mit der Beantwortung und Lösungssuche befassen arbeitet nur einer an der endgültigen Lösung und die anderen für den Papierkorb. Bei Helfern kostet es Zeit und es machen alle diese Arbeit kostenlos. Und ich sehe es als nicht Achtung der Arbeit der Helfer an, wenn die Frage gleichzeitig in mehreren Foren gestellt wird. Sinn und Zweck des Forums ist es aber ein geben und nehmen. Wenn in einem gewissen Abstand nicht Minuten in anderen Foren gepostet wird hat keiner was dagegen.
Dies ist nur meine Meinung zu dem Problem und mit diesen Beiträgen befasse ich mich nicht. Da löse ich lieber andere Probleme.
Es braucht mir auch keiner schreiben er kauft sich auch mehrere Bücher oder läst sich mehrere Angebote machen. Da übersieht er nur einen Entscheidenden Punkt. Der Autor hat sein Geld schon bekommen und die Preise für die Angebote werden schon so geplant das bei einem Verhältnis von 1 zu 10 noch Gewinn rauskommt. Hier in dem Forum beantworten alle Antworten die Fragen ohne Bezahlung und bei dieser Arbeitsweise arbeitet keiner gerne für den Papierkorb, ich jedenfalls nicht.

Gruß Hajo

Also, das sieht folgendermaßen aus:

Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer, wert As String, wert2 As Integer

a = 230
b = 230
c = 50
Sheets("Eingabe").Select

For i = 1 To 9

wert = "Textbox" & i
If Controls(wert) <> "" Then
wert2 = Controls(wert)

Cells(5 + i, 2).Value = wert2

Else
Ausgabe = "Sie haben keine gültige Eingabe getätigt bitte wiederholen!"
Auswahl = MsgBox(Ausgabe, vbOKOnly + vbCritical, _
"Eintrag nicht gültig!")
Controls(wert).BackColor = RGB(a, b, c)
Controls(wert).SetFocus
Exit Sub

End If
Next
'von der Sorte kommen dann noch mehrere Blöcke ....

Dim Mldg As String, Stil As Integer, Titel As String, Antwort As Integer
Mldg = "Wollen Sie die eingegebenen Werte drucken?"
Stil = vbYesNo + vbQuestion

Titel = "Drucken?"

Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Eingangsdaten.Scroll 0, 5
Eingangsdaten.PrintForm
End If

Application.ScreenUpdating = False

MWorstCase.Makrosstarten

Application.ScreenUpdating = True

Unload Eingangsdaten
Load Ergebnisse
Ergebnisse.Show

End Sub

Irgendeine Idee?
Gruß,
Jessica

Beliebteste Forumthreads (12 Monate)

Falscher Rückgabewert bei MsgBox

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread