Ich habe ein Blatt mit einer definierten Tabelle namens table123
Ich ziehe Daten aus der Datenbank und (mit Schleife) durch alle Datensätze.
Was ich machen will, ist (dank VBA) zu prüfen, ob in der Datenbank Werte aus der Datenbank existieren Tabelle123
Was ist die beste Lösung dafür?
Danke im Voraus,
Antworten:
0 für die Antwort № 1Sagen wir, wir wollen wissen, ob es da ist Schatz im Blatt3, Tabelle Tabelle 1
Sub TreasureHunt()
Dim r As Range, IsItThere As Range
Set r = Sheets("Sheet3").ListObjects("Table1").Range
Set IsItThere = r.Find(What:="treasure", After:=r(1))
If IsItThere Is Nothing Then
MsgBox "no treasure in the table"
Else
MsgBox "treasure is in the table"
End If
End Sub