Forums Neueste Beiträge
 

Excel 2007 Vokabeltrainer

25/11/2009 - 15:51 von stefan schneider | Report spam
Hallo,

ich suche unter Excel 2007 eine Lösung für einen Vokabeltrainer.
In A2 bis A unendlich steht jeweils der englische Begriff. In B2 bis B
unendlich der dazugehörige deutsche Begriff. In C2 bis C unendlich gibt
es manchmal noch englische Erklàrungen

Ich möchte, dass nun zufàllig eine Zelle aus A ausgewàhlt wird und deren
Inhalt dann in der MSgbox angzeigt wird.

Nach klick auf irgendeine Taste (z.B. Enter) wird dann in einer neuen
MsgBox der dazu passende Inhalt aus Spalte B und darunter soweit
vorhanden noch die passende Erklàrung aus C angezeigt wird.

Nach erneutem Enter dann wieder eine zufàllige Zelle aus A usw. solange
bis man z.B. abbrechen drückt.

Kann mir jemand weiterhelfen?

danke

stefan
 

Lesen sie die antworten

#1 Andreas Killer
25/11/2009 - 16:23 | Warnen spam
stefan schneider schrieb:

In A2 bis A unendlich steht jeweils der englische Begriff. In B2 bis B
unendlich der dazugehörige deutsche Begriff. In C2 bis C unendlich gibt
es manchmal noch englische Erklàrungen

Ich möchte, dass nun zufàllig eine Zelle aus A ausgewàhlt wird und deren
Inhalt dann in der MSgbox angzeigt wird.

Nach klick auf irgendeine Taste (z.B. Enter) wird dann in einer neuen
MsgBox der dazu passende Inhalt aus Spalte B und darunter soweit
vorhanden noch die passende Erklàrung aus C angezeigt wird.

Nach erneutem Enter dann wieder eine zufàllige Zelle aus A usw. solange
bis man z.B. abbrechen drückt.


Der Code muss in ein normales Modul, wie's geht steht hier:
http://www.online-excel.de/excel/si....php?fD#s2

Andreas.

Sub Vokabeltrainer()
Dim Y As Long, I As Long, S As String
Dim Antwort As VbMsgBoxResult
'Letzte Zeile Spalte A
Y = Range("A" & Rows.Count).End(xlUp).Row
'Zufallszahlengenerator initialisieren
Randomize
Do
'Zufàllige Zeile auswàhlen
I = Int(Y * Rnd + 1)
'Vokabel abfragen
Antwort = MsgBox(Cells(I, 1), vbOKCancel)
'Abbruch?
If Antwort = vbCancel Then Exit Sub
'Überseztung holen
S = Cells(I, 2)
'Ggf. Erklàrung dazu
If Not IsEmpty(Cells(I, 3)) Then _
S = S & vbCrLf & vbCrLf & Cells(I, 3)
'Anzeigen
Antwort = MsgBox(S, vbOKCancel)
'Wiederhole bis Abbruch
Loop Until Antwort = vbCancel
End Sub

Ähnliche fragen