title image


Smiley Re: Finde den Fehler nicht ??
hiho









Sub xyz()

Dim wsh As Worksheet

Dim obGef As Object

For Each wsh In Worksheets

    With wsh

        Set obGef = .Cells.Find(What:="test", After:=.[a1], LookIn:=xlFormulas, LookAt _

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

        False, SearchFormat:=False)

        If Not obGef Is Nothing Then

            wsh.Activate

            obGef.Activate

        End If

    End With

Next

End Sub








Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: