Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveCell.Select
 30.05.2007 19:29:35 Schattendouble
NotSolved
31.05.2007 13:17:21 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Schattendouble		 Datum:
30.05.2007 19:29:35		 Views:
2055		 Rating:
     
Antwort:
  Ja
Thema:
ActiveCell.Select
Hallo, ihr da draußen...!

Ich muss im Bereich des Informatikunterrchts meiner Schule in Quiz erstellen ...
Da ich nicht weiß, wie man das Programmieren solol, dass bei jedem Klick die nachfolgende Frage im Tabellenblatt angezeigt wird, habe ich diese Funktion zusammen mit dem Prüfen der richtigen Antwort in einen Button gepackt.

Das Problem ist, dass ich eine ungewisse Anzahl an Fragen habe und dahe rnicht mit genauen Zellenangaben sondern mit ActiveCell.Offset arbeiten muss.... ich schaffe es nun immerhin dass der Computer die zweite Frage abruft, aber dann startet er wieder bei der ersten FrageZelle.... kann mir jemand helfen? Der Teil in der Programmierung,d er mir Probleme berietet, ist folgender:


Private Sub CommandButton3_Click()

Dim frm As UserForm

Set frm = UserForm2
Sheets("Tabelle2").Activate
Range("B18").Select ' erste Frage im Tabellenblatt

With frm

If TextBox6.Value = "" Then ... ' Die erste Frage wid eingelesen

Else
If TextBox6.Value <> "" Then ' Das Antwortfeld = TextBox6
If TextBox6.Value = ActiveCell.Offset(0, 5).Value Then
Select Case MsgBox("Diese Antwort ist korrekt! ^^" & Chr(13) & "Möchten Sie den Test fortsetzen?", vbYesNo, "Sie haben die Wahl")
Case vbYes
MsgBox ("Super! ^^ Die nächste Frage wird aufgerufen!")

ActiveCell.Offset(1, 0).Select

TextBox1.Value = ActiveCell.Value ' Das FrageFeld = TextBox1
TextBox2.Value = ActiveCell.Offset(0, 1).Value ' Antwortangabe A = TextBox2
TextBox3.Value = ActiveCell.Offset(0, 2).Value ' Antwortangabe B = TextBox3
TextBox4.Value = ActiveCell.Offset(0, 3).Value ' Antwortangabe C = TextBox4
TextBox5.Value = ActiveCell.Offset(0, 4).Value ' Antwortangabe D = TextBox5
TextBox6.Value = ""

Case vbNo ....

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveCell.Select
 30.05.2007 19:29:35 Schattendouble
NotSolved
31.05.2007 13:17:21 Rasta
NotSolved