Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba Excel

vba Excel
11.12.2014 13:57:25
Michi
Hallo Leute,
und zwar muss ich für den Informatik-Unterricht einen Quelltext zu 35 verschieden Sportfragen erstellen .
Es sollten drei Antwortmöglichkeiten gegeben sein ,wobei aber nur eine richtig ist.
Wenn man auf eine falsche Antwort klickt , dann sollte man das auch sofort erfahren .
Hier mal ein Bespiel :
Wer gewann die Fußball Weltmeisterschaft 2014 ?
a)Argentinien b)Deutschland c)Brasilien
Richtig ist ja Deutschland ..
Auch wär es gut , wenn ihr mir das mal aufstllen könnt ,wenn man nicht auf Deutschland klickt..
Es wär gut ,wenn ihr mir einen Quelltext hierzu aufstellen könntet
Vielen dank im Voraus :)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba Excel
11.12.2014 14:05:37
Hajo_Zi 

Private Sub OptionButton1_Click()
If UserForm1.Tag = OptionButton1.Tag Then
MsgBox "richtige Antwort"
Else
MsgBox "falsche Antwort"
End If
End Sub
Private Sub OptionButton2_Click()
If UserForm1.Tag = OptionButton1.Tag Then
MsgBox "richtige Antwort"
Else
MsgBox "falsche Antwort"
End If
End Sub
Private Sub OptionButton3_Click()
If UserForm1.Tag = OptionButton1.Tag Then
MsgBox "richtige Antwort"
Else
MsgBox "falsche Antwort"
End If
End Sub
In meiner Datei geht es Deine Sehe ich nicht.

Anzeige

Links zu Excel-Dialogen

OptionButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige