Hallo Julia,
mit Find wird der gesamte genannte Bereich abgesucht, also die gesamte Tabelle1. Jedesmal, wenn ein solcher Begriff mit .FindNext gefunden wird, er auch ausgegeben. Wenn du ihn nur einmal ausgeben willst, also nach dem ersten Fund, musst du die Zeilen mit Do und Loop weglassen (ich empfehle zunächst, sie als Kommentar zu kennzeichnen (Apostroph am Anfang, wird dann grün)).
Wenn ich dich falsch verstanden haben sollte und du doch alle Funstellen kopieren willst, tritt ein Problem auf, da du in derselben Tabelle suchst, in die du auch kopierst. Deshalb findet .FindNext immer wieder etwas, nämlich die letzten Kopien. Das hört erst mit einem Fehler auf, wenn die letzte Zeile vollgeschieben wurde. Abhilfe wäre z.B., ins Sheet(2) zu kopieren.
Ich hoffe, dass ich dir helfen konnte
Holger
Julia schrieb am 19.01.2009 09:20:25:
Ich komme mit der unten kopierten formel nicht weiter.
Ich hab mir einen Vokabeltrainer erstellt und wollte, dass mir bereist vorhandene Vokabeln, wenn ich danach frage, nebenan (oder evtl auch in einer Messagebox -> wer lust, laune und hilfe hat, kann mir dabei helfen) ausgegeben werden.
Das problem hierbei liegt allerdings dabei, dass ich die vokabel nicht nur ein- sondern gleich mehrere Male ausgeworfen kriege bzw. sämtliche vokabeln mit dem wort als Inhalt
Wo genau der Fehler liegt weiß ich nicht, allerdings hab ich so 'ne ahnung, in welchem bereich das liegen könnte, vor diesen habe ich Pfeile gesetzt.
Danke im Vorraus schon mal für die Hilfe
Hier die Formel:
Sub Vokabel_erfassen()
Application.ScreenUpdating = False
Dim Begriff As String, gefunden As Variant, firstAddress As Variant 'variabelerfassung
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(1).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
-------
Also, wie schon erwähnt: Da, wo die pfeile vorstehen, da muss der Fehler sein. |