Office: Fehlerbehebung Vokabeltrainer

hallo Leute,
ich bin dabei mir einen Vokabeltrainer zu bauen und bin gerade dabei eine Formel zu finden mit der man eine Vokabel die sich in der Vokabelliste befindet herraussuchen zu lassen und in eine Msg.BOx schreiben zu lassen doch ich komme mit meiner Formel nicht weiter:

Sub Vokabel_erfassen()
Application.ScreenUpdating = False

Dim Begriff As String, gefunden As Variant, firstAddress As Variant
Begriff = InputBox("suche nach:", "Suchbegriff")

If Begriff = "" Then Exit Sub
With Worksheets(1).Cells
Set gefunden = .Find(Begriff, LookIn:=xlValues)
If Not gefunden Is Nothing Then
firstAddress = gefunden.Address
Do
gefunden.Copy
Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Set gefunden = .FindNext(gefunden)
Loop While Not gefunden Is Nothing And gefunden.Address <> firstAddress
End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


PS: Ich bitte um Hilfe
und danke schonmal im voraus

 

Hallo,

du hast diese Antwort auf deinen Beitrag gesehen?

http://www.office-loesung.de/fpost1142499.php#1142499