Intelligente Tabelle durchsuchen
13.12.2022 09:47:26
Dominik
ich würde gerne mit VBA eine intelligente Tabelle durchsuchen und mir gerne ausgeben lassen in welcher Zeil der intelligenten Tabelle der Wert steht.
Ich habe bereits eine Lösung gefunden. Hier mal der Code.
Die Variable Zeile ist global
Private Sub CommandButton1_Click()
Dim rng As Range
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
Set rng = tbl.ListColumns(5).DataBodyRange.Find(what:=2, LookIn:=xlValues, lookat:=True)
Zeile = rng.Row - 6
End Sub
Danke schon mal.
Gruß Dominik