Ich habe ein Makro,das mir Teile von Werten sucht,und anzeigt in welchen Zellen die Werte eingetragen sind.
Das funktioniert auch super.
Nur möchte ich die Fundzelle in Sheets "Ausgabe" aufgelistet wird.
ZB. Fund in C5 nun sollte A5:J5 in Sheets"Anzeige" in A2 kopiert werdem.
Bei mehreren Funden sollten alle kobiert werden.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß Heinz
Sub Suchen()
Dim rng As Range
Dim iCounter As Integer
Dim sSearch As String, sAddress As String, sFirst As String
Dim bln As Boolean
sSearch = InputBox("Bitte Suchbegriff eingeben:", , "")
If sSearch = "" Then Exit Sub
For iCounter = ActiveSheet.Index - 1 To 1 Step -1
Set rng = Worksheets(iCounter).Columns("A:K").Find _
(sSearch, lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
sFirst = rng.Address(False, False)
MsgBox Worksheets(iCounter).Name & "!" & sFirst
bln = True
Do Until sAddress = sFirst
Set rng = Worksheets(iCounter).Columns("A:K").FindNext(after:=rng)
sAddress = rng.Address(False, False)
If sFirst sAddress Then
MsgBox Worksheets(iCounter).Name & "!" & sAddress
End If
Loop
sAddress = ""
sFirst = ""
End If
Next iCounter
If bln = False Then
MsgBox "Der Suchbegriff wurde nicht gefunden!"
End If
End Sub