Hallo Gast 87129, danke für die Inputs.
Die Variablen habe ich noch nichz deklariert, dass muss ich noch nachholen.
Der Rest ist umgesetzt. Jetzt erhalte ich einen Laufzeitfehler 9 "Index ausserhalb des gültigen Bereichs".... ?
Beim Debugen spring er auf die Zeilen:
Set objCell = Worksheets("DB").ListObjects("Projektleiter").Range.Find(What:=Suchbegriff, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
Hänge da... Kannst Du mir da helfen?
Gruss Rog
|