title image


Smiley Re: Suchfunktion für Suche über mehrere Arbeitsblätter gleichzeitig
Hi...versuchs mal mit:Sub such()Dim such As StringDim ersatz As Stringsuch = Application.InputBox("Bitte den zu suchenden Begriff eingeben")ersatz = Application.InputBox("Bitte den Ersatzbegriff eingeben")For Each ws In ActiveWorkbook.Worksheetsws.ActivateActiveSheet.UsedRange.SelectSelection.Replace what:=such, replacement:=ersatz, lookat:=xlPart, searchOrder:=xlByColumns, matchCase:=FalseNext wsEnd SubGrußSven
Gruß,
Sven

CnC Community News
Infos rund um alle RTS Games (und natürlich Renegade)
von Westwood.
Unsere Foren: CnC Foren




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: