title image


Smiley Re: vorhandenes Makro modifizieren.
Hallo Udo,am Anfang des Makros könntest Du einfügen:Dim Suchbegriff As RangeDann kannst Du den BereichSelection.Find(What:="Mobiles", After:=ActiveCell, LookIn _:=xlFormulas, LookAt:=xlPart, SearchOrder:= _xlByRows, SearchDirection:=xlNext, MatchCase:=False). _Activateersetzen durch:Set Suchbegriff = Selection.Find(What:="Mobiles", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)If Suchbegriff Is Nothing = False Then Range(Suchbegriff.Address).ActivateDann wird die Zelle nur aktiviert, wenn der Suchtext gefunden wurde.Viele GrüßeJörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: