Warnmeldung erzeugen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Warnmeldung erzeugen

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

Autor

Nachricht

alex_S
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 7

Verfasst am: 23.07.2008, 08:43

Ich habe ein Excel erstellt in dem der Nutzer unterschiedliche Fragen beantworten muss. Die Fragen sind auf mehrere Sheets verteilt und mit einem „Weiter“-Button gelangt man automatisch zur nächsten Seite. Ich würde nun gerne eine Abfrage einbauen, die überprüft ob alle Fragen eines Sheets beantwortet wurden (entsprechende Felder <> leer) bevor auf das nächste Sheet gewechselt wird. Sofern nicht alle Felder ausgefüllt sind, soll eine Warnmeldung erzeugt werden. Dabei soll der Nutzer aufgefordert werden alle Fragen zu beantworten. Als Option der Fehlermeldung soll ignorieren möglich sein (dann geht es weiter) oder zurück (dann bleibt man bei den Fragen).

Ich hoffe, dass ich mein Problem genau beschrieben habe. Falls nicht, beschreibe ich das gerne genauer.

Vielen Dank im Voraus für die Hilfe.

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 439
Wohnort: Kiel

Verfasst am: 23.07.2008, 09:04

alex_S hat Folgendes geschrieben:

Ich hoffe, dass ich mein Problem genau beschrieben habe. Falls nicht, beschreibe ich das gerne genauer.

Du weißt bereits, wie Du die Abfrage "alles komplett" erledigst? Wenn nein: Wie werden die Daten "erfaßt"? Mit Eingabefeldern (Formular), oder direkt in den Zellen des Arbeitsblatts?

Wie auch immer, Du mußt Dir dann eben einen Boolean- oder Integer-Wert zusammenbasteln, der Dir in letzter Konsequenz sagt, ob alles komplett ist oder ob noch etwas (ggf. sogar: was genau) fehlt.

Dann hast du Deinen Button "Weiter", der zum einen diese Überprüfung durchführt und dann ggf. eine Messagebox auswirft, wenn irgendwas fehlt. Das Ergebnis der Messagebox ist der gedrückte Button. In Abhängigkeit davon kannst Du dann auf dem Blatt bleiben oder trotzdem auf das nächste Blatt wechseln.

Ganz grob könnte es so aussehen:

Code:

ueberpruefe_eingaben as boolean
r = true
'felder ueberprüfen
' --> wenn eingabe fehlt, dann r auf "false"
ueberpruefe_eingaben = r

weiter_onclick
komplett = ueberpruefe_eingaben
if (not komplett) then
weiter = msgbox "nicht vollständig, trotzdem weiter?", vbquestion+vbyesno
else
weiter = vbyes
endif
if (weiter=vbyes) then
'zum nächsten blatt wechseln
else
'aktuelles blatt bleibt
endif

alex_S
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 7

Verfasst am: 23.07.2008, 10:04

Danke auf jeden Fall für die Erkenntnis, dass sich mein Problem lösen lässt. Ich habe nun versucht das ganze in ein Makro einzubinden. Da ich aber bisher nur die Play-Version und nur bedingt mit MVB gearbeitet habe komme ich hier schon wieder an meine Grenzen. Ich hatte nun folgendes versucht:

Code:

Sub test2()
weiter_onclick
komplett = False
If (Not komplett) Then
weiter = msgbox "nicht vollständig, trotzdem weiter?", vbquestion+vbyesno
Else
weiter = vbYes
End If
If (weiter = vbYes) Then
Range("L11").Select
ActiveCell.FormulaR1C1 = "JA"
Else
Range("L11").Select
ActiveCell.FormulaR1C1 = "NEIN"
End If
End Sub

dabei kam jedoch eine Fehlermeldung. Die Sub Test 2 () Zeile bringt bereits einen Fehler. Kannst du mir sagen, wie ich auch dieses Hindernis lösen kann?

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 439
Wohnort: Kiel

Verfasst am: 23.07.2008, 10:45

alex_S hat Folgendes geschrieben:

Code:

Sub test2()
weiter_onclick
komplett = False

dabei kam jedoch eine Fehlermeldung. Die Sub Test 2 () Zeile bringt bereits einen Fehler. Kannst du mir sagen, wie ich auch dieses Hindernis lösen kann?

Die 2. Zeile ist das Problem. Die war Pseudo-Code und sollte nur bedeuten, daß dort sowas wie "Private Sub Weiter_Click()" stehen sollte, je nachdem, wie Dein Button heißt.

Nimm die raus und es sollte gehen. Dir ist aber klar, daß Dein Code (bislang) immer durch die Messagebox läuft, weil "komplett" statisch auf "false" gesetzt wird, ja?

Und Folgendes:

Code:

Range("L11").Select
ActiveCell.FormulaR1C1 = "JA"

läßt sich bedeutend kürzer und übersichtlicher schreiben mit

Code:

Range("L11").Value="JA"

Gruß, Michael

alex_S
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 7

Verfasst am: 23.07.2008, 11:22

danke für die Erläuterungen. Das umgehen der Message-Box habe ich hinbekommen und daher nicht noch extra eingefügt. Den Tipp mit dem Code habe ich umgesetzt.
Aber nun bekomme ich immer noch einen Syntaxfehler. Bei dem folgenden Code ist es die vierte Zeile die entsprechend markiert wird. Ich nehme mal an, das liegt immer noch an der falschen Verwendung von "weiter". Aber wie ich dieses Problem löse weiß ich nicht.

Code:

Sub test2()
komplett = False
If (Not komplett) Then
weiter = msgbox "nicht vollständig, trotzdem weiter?", vbquestion+vbyesno
Else
weiter = vbYes
End If
If (weiter = vbYes) Then
Sheets("1. Sesibilität").Range("L11").Value = "weiter"
Else
Sheets("1. Sensibilität").Range("l11").Value = "fertig ausfüllen"
End If
End Sub

alex_S
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 7

Verfasst am: 23.07.2008, 17:42

Vielen Dank noch mal für die Tipps. Ich habe jetzt noch ein bisschen herumexperimentiert und die Lösung gefunden.
Alleine hätte ich das aber nicht geschafft. Smile

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
	Button mit Makto neu erzeugen	jtajo	Microsoft Excel Hilfe	1	11.11.2008, 17:36
	CommandButton in Zeile erzeugen	Paulus2408	Microsoft Excel Hilfe	2	04.09.2008, 15:41
	Warnmeldung beim Anklicken der Kontro...	Ag.man	Microsoft Excel Hilfe	2	05.08.2008, 07:05
	PDF erzeugen - Makro mit Speicherpfad...	matn	Microsoft Excel Hilfe	0	16.10.2007, 08:34
	Kann man so eine art von popup erzeugen?	blockbaster	Microsoft Excel Hilfe	3	20.07.2007, 19:50

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