title image


Smiley Suchen in der Tabelle
Hallo

Die nachfolgende Sub funktioniert für den erst gefundenen Eintrag in der Tabelle perfekt. (Lösung aus dem Forum!) Nun hat aber die Tabelle meherer Zeilen mit dem gesuchten String...

Frage: wie erweitere ich diese Sub, dass ALLE gefundenen Datensätze in der Tabelle aufgelistet werden?

Vielen Dank, Paul







Sub Suchen_s()

Dim suchwert As String

Dim GesuchteAdresse As String

Dim wshShell

Set wshShell = CreateObject("WScript.Shell")



Worksheets(Tabelle1).Select

suchwert = InputBox(" Aus Spalte B,C,D" & Chr(10) &

_" ...suchenden Wert eingeben:", "")



If suchwert = "" Then Exit Sub

GesuchteAdresse = AdressevonSuchwert(suchwert)

wshShell.Popup GesuchteAdresse, 2

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: