Einen wunderschönen guten Morgen ans Forum!
Ich muss mein Gedächtnis wieder in Schwung bringen und habe mich für einen Vokabeltrainer entschieden.
Meine Mappe besteht aus ca. 20 Arbeitsblättern mit Namen wie Verben, Nomen, Obst, Gemüse, Restaurant,...
Mit dem folgenden Code (er stammt vom Forumsmitglied M.O.) generiere ich jeweils 5 Zufallswörter aus der 1. Gruppe in Spalte A:
Private Sub CommandButton1_Click()
Sheets("sheet1").Range("A:A").ClearContents
For i = 1 To 5
generate:
RowNum = Application.RoundUp(Rnd() * 15, 0)
If Application.CountIf(Sheets("Vokabel").[A:A], Sheets("Verben").Cells(RowNum, "A")) = 0 Then
Sheets("Vokabel").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("Verben").Cells(RowNum, "A").Value
Else
GoTo generate
End If
Next i
Dim obj As Object
End Sub
Die Daten aus Spalte B stammen aus der 2. Gruppe usw.
Mithilfe eines SVerweises möchte ich nun die entsprechenden Bedeutungen rechts daneben einfügen. Mein Denkfehler bei der Planung war, dass ich mit dem SVerweis ja nicht arbeiten kann, da die Daten ja aus unterschiedlichen Arbeitsblättern stammen.
So war der Aufwand bis jetzt für die "Katz".
Ich habe versucht, in die 4 violetten Felder die Suchbegriffe einzugeben und irgendwie eine Verbindung zum S-Verweis und auch zum Code herzustellen. Aber leider ohne Erfolg.
Daher richte ich die Frage ans Forum, wie man mein Problem lösen könnte. Vielleicht denke ich zu kompliziert oder habe schon im Vorhinein einen falschen Weg eingeschlagen.
Ich bedanke mich schon im Voraus für eure Beiträge.
LG Robert