Vokabeltrainer

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Vokabeltrainer
von: go too
Geschrieben am: 19.10.2015 21:22:33

Hallo Leute,
bin kurz vor dem Durchdrehen :-(
https://www.herber.de/bbs/user/100881.xlsm
Ich möchte einen Vokabeltrainer basteln. Meine große Herausferung ist, dass Worte die bereits 3 x richtig genannt wurden, nicht mehr abgefragt werden. Es sollen also nur Vokabeln kleiner 3 erscheinen. Sobald alle Vokabeln den Index 3 haben soll einfach nur eine Info erscheinen.
Könnt Ihr euch bitte mal meine Datei anschauen?

Bild

Betrifft: AW: Vokabeltrainer
von: ChrisL
Geschrieben am: 20.10.2015 08:57:54
Hi
Hier ein Beispiel:
Sub Beispiel()
Dim Zeile As Long
Zeile = bringZeile
If Zeile = 0 Then
MsgBox "fertig"
Else
MsgBox "weiter mit Zeile " & Zeile
End If
End Sub

Private Function bringZeile() As Long
Dim lngZ As Long
If WorksheetFunction.CountIf(Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row), "<3") = 0 _
Then Exit Function
lngZ = Int(Cells(Rows.Count, 1).End(xlUp).Row * Rnd + 1)
Do Until Cells(lngZ, 3) < 3
    lngZ = Int(Cells(Rows.Count, 1).End(xlUp).Row * Rnd + 1)
Loop
bringZeile = lngZ
End Function
cu
Chris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Worksheet in einzelne Dateien speichern"