Vokabeltrainer selbst erstellen

Hans · 2006-01-09T17:32:36+00:00

Hallo, ich habe eine Menge englisch Vokabeln zu lernen, dazu habe ich mir über zwei Spalten eine Excel Tabelle gemacht. In Spalte A ist die deutsche Bedeutung und in Spalte B die englische Übersetzung. ( Es kommen täglich neue Vokabeln dazu ! ) Nun spiele ich mit dem Gedanken mir über eine, zufallsgenerierte Messagebox, die Vokabeln abfragen zu lassen. Soll heißen, dass mal ein englisches Wort gefragt wird und ich das deutsche Wort eingeben muss, mal eben halt umgekehrt. Es wäre sehr nett wenn ich etwas Unterstützung bei diesem Projekt erhalten würde. Vielen Dank Hans-Georg

Hi,
hier mal ein Ansatz;
das ganze wird über nen CommandButton gestartet, neue Vokabeln können jederzeit hinzugefügt werden.


Private Sub CommandButton1_Click()
Dim spalte As Integer
Dim zeile As Long
Dim Antwort As String
spalte = Int(Rnd() * 2) + 1
zeile = Int(Rnd() * Range("A65536").End(xlUp).Row) + 1
Antwort = InputBox("Bitte die Übersetzung von" & Chr(10) & Cells(zeile, spalte) & Chr(10) & "eingeben:")
Select Case spalte
Case 1
If Antwort = Cells(zeile, 2).Value Then
MsgBox "richtig"
Else
MsgBox "Falsch" & Chr(10) & "Die richtige Antwort lautet:" & Chr(10) & Cells(zeile, 2).Value
End If
Case 2
If Antwort = Cells(zeile, 1).Value Then
MsgBox "richtig"
Else
MsgBox "Falsch" & Chr(10) & "Die richtige Antwort lautet:" & Chr(10) & Cells(zeile, 1).Value
End If
End Select
End Sub

Schönen Gruß,
Andi

Hi nochmal,
hatte grad Zeit und Lust und hab das ganze noch ein wenig aufgebohrt;
die Vokabeln haben jetzt eine Priorität zwischen 1 und 5 mit der die Häufigkeit festgelegt wird, wie oft sie durchschnittlich drankommen. Bei falscher Eingabe erhöht sich die Priorität um 1, bei richtiger Eingabe verringert sie sich um 1. Neu eingegebene Vokabeln haben die Priorität 3.
Das ganze sieht so aus:


Private Sub CommandButton1_Click()
Dim spalte As Integer
Dim a As Long
Dim b As Long
Dim zeile As Integer
Dim Antwort As String
b = 0
spalte = Int(Rnd() * 2) + 1
a = Int(Rnd() * Application.WorksheetFunction.Sum(Range("C:C"))) + 1
For zeile = 1 To Range("C65536").End(xlUp).Row
b = b + Cells(zeile, 3).Value
If b >= a Then Exit For
Next zeile
Antwort = InputBox("Bitte die Übersetzung von" & Chr(10) & Cells(zeile, spalte) & Chr(10) & "eingeben:")
Select Case spalte
Case 1
If Antwort = Cells(zeile, 2).Value Then
MsgBox "richtig"
If Cells(zeile, 3).Value > 1 Then Cells(zeile, 3).Value = Cells(zeile, 3).Value - 1
Else
MsgBox "Falsch" & Chr(10) & "Die richtige Antwort lautet:" & Chr(10) & Cells(zeile, 2).Value
If Cells(zeile, 3).Value < 5 Then Cells(zeile, 3).Value = Cells(zeile, 3).Value + 1
End If
Case 2
If Antwort = Cells(zeile, 1).Value Then
MsgBox "richtig"
If Cells(zeile, 3).Value > 1 Then Cells(zeile, 3).Value = Cells(zeile, 3).Value - 1
Else
MsgBox "Falsch" & Chr(10) & "Die richtige Antwort lautet:" & Chr(10) & Cells(zeile, 1).Value
If Cells(zeile, 3).Value < 5 Then Cells(zeile, 3).Value = Cells(zeile, 3).Value + 1
End If
End Select
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then Target.Offset(0, 2).Value = 3
Application.EnableEvents = True
End Sub

Schönen Gruß,
Andi

Deutsch	Englisch	Priorität
Abend	Evening	3
Strand	Beach	2
Hund	Dog	1

Forumthread: Vokabeltrainer selbst erstellen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Vokabeltrainer in Excel erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)