String suchen über alle Tabellenblätter
30.10.2019 09:56:40
kultnoob
brauche eure Hilfe.
Im Grunde ist es relativ einfach doch mein Hirn und dessen Windungen kommen nicht zu einem Ergebnis.
Eine Userform mit Textbox
Darin wird ein Wert angegeben und dieser Wert sollen in allen Zellen des gesamten Tabellenblattes gesucht werden.
Sub Suchen()
Dim ws as Worksheet
Dim Suchfeld as string
Suchfeld = Textbox1.value
for each ws in thisworkbook.worksheets
if Instr(1,?, Suchfeld) 0 then
exit sub
end if
next ws
End Sub
Wie definiere ich die Zelle, dass er alle Zellen aller Tabellenblätter durchsucht.
Sorry, ich blicks gerade nicht...
Danke für die Hilfe...
Grüße