ich suche in meiner Arbeitsmappe mittels untenstehendem Code vorkommende Datensätze. Funktioniert auch.
Ich möchte -da jeder Datensatz nur einmal vorkommen darf- die Zeile in der er steht teilweise löschen. (Spalte A - E) weiter darf der Löschvorgang nicht gehen,
da sich an diesen Bereich anschließend Formeln befinden.
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
MsgBox "Lagerort " & wks.Name & " " & Rng.Address(0, 0)
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
Was mus ich an dem Code verändern, damit dies möglich wird ?
Kann mir jemand helfen?
Danke Gruß Volker