Ich moechte einen Suchbegriff einer definierten Liste (z.B. in Tabelle 1 Reihe A-z) finden
Dieser gefundene Begriff muesste ich jetzt in eine tabelle 2 in die reihe 1 kopieren;
der naechste gefundene begriff soll eine zeile darunter kommen u.s.w.
Der Such code habe schon gefunden; nun braeuchte ich Hilfe um den Code zu ergaenzen.
Vielen dank im voraus
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub