Suchfunktion läuft noch nicht richtig
20.07.2006 13:51:09
Helge
Wie kann ich das folgende Makro so verändern, dass es mir nicht nur den Treffer aus Zeile 37 zeigt, sondern alle Treffer auflistet. Irgendwie muss da noch eine Schleife rein, oder? Bin für jede Hilfe dankbar.
Private Sub cmdFehlersuche_Click()
Dim loZeile As Long
Dim inSpalte As Integer
Set objTar = Worksheets("Zieltabelle")
For Each objsh In Worksheets
If objsh.Name <> "Zieltabelle" Then
objsh.Select
With objTar
lngRow = IIf(IsEmpty(.Cells(Rows.Count, 85)), .Cells(Rows.Count, 85).End(xlUp).Row, Rows.Count)
For inSpalte = 1 To 84
For loZeile = 37 To 97
If IsError(Cells(loZeile, inSpalte)) = True Then
objTar.Select
objsh.Cells(loZeile, inSpalte).EntireRow.Copy .Rows(lngRow + 1)
.Hyperlinks.Add _
Anchor:=.Cells(lngRow + 1, .Cells(lngRow, Columns.Count).End(xlToLeft).Column), _
Address:="", SubAddress:="'" & objsh.Name & "'!" & Cells(loZeile, inSpalte).Address, _
TextToDisplay:=objsh.Name & ", " & Cells(loZeile, inSpalte).Address(0, 0)
End If
Next loZeile
Next inSpalte
End With
End If
Next objsh
End Sub