MsgBox 2 Buttons :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

MsgBox 2 Buttons

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Christina
Newbie
Newbie

Anmeldedatum: 07.04.2006
Beiträge: 11

Verfasst am: 20.04.2006, 10:05

Hallöchen,
an was könnte das liegen? Ich habe eine MsgBox mit 2 Buttons (YesNo). Aber ich kann keine 2 unterschiedliche Enden programmieren. Einzeln funktionierts, zusammen nicht. (bei Yes soll er sub abbrechen, bei No soll er auf Tabellenblatt1 zurück)
Was mache ich falsch?
viele Grüße
Christina

john g.
Office-Spezialist

Anmeldedatum: 10.03.2006
Beiträge: 339

Verfasst am: 20.04.2006, 11:26

Hallo,

Du mußt das sinngemäß so programmieren: If Antwort = vbNo Then end else sheets("Tabelle1").select

Grß
J.

_________________
Gruß
J.

freaky
Moderator

Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

Verfasst am: 20.04.2006, 17:32

Hi,

der Code sieht dann z.B. so aus (nur als Ergänzung zu John):

Code:

Sub MsgBox_Arten()

If MsgBox("Willst du weitermachen?", vbYesNo, "MsgBox-Test") = vbYes Then
MsgBox "hier geht dann der code weiter!"
Else
MsgBox "hier endet es!"
Exit Sub
End If

End Sub

_________________
Gruß
freaky
----------------------------------------------------------------
Windows 2000, Windows XP
Office 97, Office 2000, Office 2003 und Office 2007
_____________________________________________
Feedback nicht vergessen....
---------------------------------------------------------------

Christina
Newbie
Newbie

Anmeldedatum: 07.04.2006
Beiträge: 11

Verfasst am: 21.04.2006, 09:40

Hi,
vielen Dank für die beiden Antworten. Ich habe das mit ca. 50 unterschiedlichen Varianten versucht, aber es funktioniert einfach nicht. Er führt immer für beide Buttons das gleiche aus. Hier mein Text:

MsgBox "Umsatzanteil geprüft?", vbYesNo
If Antwort = vbYes Then
End
Selection.Clear
Else
GoTo Fehler
End If

Fehler:
MsgBox "Möchten Sie die Umsätze jetzt überprüfen?", vbYesNo
If intA = vbNo Then
End
Selection.Clear
Else
Sheets("Tabelle1").Select
End If

Was mache ich falsch?
Bitte helft mir Crying or Very sad

Christina

john g.
Office-Spezialist

Anmeldedatum: 10.03.2006
Beiträge: 339

Verfasst am: 21.04.2006, 10:27

Hallo Christina,

Sub test()
Antwort = MsgBox("Umsatzanteil geprüft?", vbYesNo)
If Antwort = vbYes Then
End
Selection.Clear
Else
Fehler
End If
End Sub

Sub Fehler()
intA = MsgBox("Möchten Sie die Umsätze jetzt überprüfen?", vbYesNo)
If intA = vbNo Then
End
Selection.Clear
Else
Sheets("Tabelle1").Select
End If
End Sub

Gruß
J.

_________________
Gruß
J.

freaky
Moderator

Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

Verfasst am: 21.04.2006, 10:28

Hi schau Dir meine Code doch mal genau an. So müsste es bei Dir aussehen:

Code:

Antwort = MsgBox ("Umsatzanteil geprüft?", vbYesNo)
If Antwort = vbYes Then
End
Selection.Clear
Else
GoTo Fehler
End If

Fehler:
intA = MsgBox ("Möchten Sie die Umsätze jetzt überprüfen?", vbYesNo)
If intA = vbNo Then
End
Selection.Clear
Else
Sheets("Tabelle1").Select
End If

Bei dir wird in "intA" und "Antwort" nichts gestanden haben - das füllst Du mit dem Rückgabewert der MsgBox - und das ist das Klickereignis.

BTW: nicht di Deklaration der Variablen vergessen. Das sollte man immer machen - zur eigenen Sicherheit!

[EDIT] --- John war schneller.......

Christina
Newbie
Newbie

Anmeldedatum: 07.04.2006
Beiträge: 11

Verfasst am: 21.04.2006, 11:23

Jetzt klappt es! *Freu*
Vielen Dank an euch beide
Christina

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Neue Zeile unterhalb eines Buttons ei...	Paulus2408	Microsoft Excel Hilfe	2	03.09.2008, 15:04
	Radio Buttons GroupName	effect	Microsoft Excel Hilfe	0	26.06.2008, 08:57
	MsgBox: yesno - Wie verknüpft man die...	lincoln	Microsoft Word Hilfe	1	25.05.2008, 13:46
	MsgBox-ähnliches Gebilde mit Fortschr...	miriki	Microsoft Excel Hilfe	5	06.11.2007, 10:28
	Fehlermeldung erstellen (MsgBox?)	OMEN75	Microsoft Excel Hilfe	6	06.05.2007, 14:29

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de