Zellwert aus Tab1 in Tab2 suchen und anzeigen
23.05.2015 23:59:40
Michael
ich möchte in die Teilenummer (z.B. 34H123456) aus Tabelle1 Zelle H23 in Tabelle2 suchen und anzeigen lassen.
Diese Teilenummer kann auch öfters in der Tabelle2 vorkommen, je nachdem wie oft diese bestellt wurde. Das Makro soll alle Zeilen anzeigen, in denen die Teilenummer vorkommt(ähnlich einem Filter).
Ich habe folgenden Code, bekomme bei diesem aber immer die Laufzeitfehler 9 oder 13.
Sub Schaltfläche54_KlickenSieAuf()
Dim rngfoundcell As Range
Dim lngsuchwert As Long
arrtables = Array("Tabelle2")
lngsuchwert = Sheets("Tabelle1").Range("H23")
For i = LBound(arrtables) To UBound(arrtables)
Set rngfoundcell = Sheets(arrtables(i)).Range(Sheets(arrtables(i)).UsedRange.adress).Find( _
lngsuchwert, , xlValues, xlWhole)
If Not rngfoundcell Is Nothing Then
Sheets(arrtables(i)).Activate
Sheets(arrtables(i)).Range(rngfoundcell.adress).Select
Exit For
End If
Next i
End Sub
Könnt Ihr mir bitte weiterhelfen?
Vielen Dank im Voraus
Gruß Michael