title image


Smiley Re: Suche auf gesamte Arbeitsmappe ausdehen ???
Hi,



macht so zwar keinen Sinn, aber bitte:



Option Explicit

Sub alle()

Dim wsh As Worksheet

For Each wsh In Worksheets

wsh.Select

With wsh

.Cells.Find(What:=D, After:=.ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

End With

Next

End Sub



mfg xla



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: