title image


Smiley Re: Finde den Fehler nicht ?? denn Finden findet nicht
Hi,



dein Code möchte ja die gefundene Zelle aktivieren.

Nur wenn nix gefunden wird...

Dann kann auch nix aktiviert werden.



Daher einer Variablen das Suchergebnis übergeben, wenn

was zurückgegeben wurde, dann erst Aktivieren.



Sub alle2()



Dim wsh As Worksheet

Dim r As Range

For Each wsh In Worksheets

wsh.Select

With wsh

Set r = Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

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

False)

If Not r Is Nothing Then r.Activate

End With

Next

End Sub




Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: