Wert suchen und anzeigen
27.06.2003 10:57:41
thomas
-problem: es sucht in der zeilennummer und nicht in der ersten spalte
-kann jemand helfen?
sub such()
dim rngSuch as range
strSuch = inputbox("Suchbegriff")
set rngSuch = worksheets("Tabelle1").range("A:A").find(strSuch)
if not rngSuch is nothing then
rngSuch.select
end if
end sub