title image


Smiley Re: dialogfeld
Hallo ?



Sub Suchen()

Dim ObjG As Object

Application.FindFormat.Clear

Set ObjG = Cells.Find(What:="Test", After:=ActiveCell, LookIn:=xlValues, LookAt _

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

False, SearchFormat:=False)

If Not ObjG Is Nothing Then

ObjG.Activate

Application.Dialogs(64).Show

End If

End Sub



ich habe noch zusätzlich eine Fehlerbehandlung eingebaut, wenn das zu Suchende nicht gefunden wird erscheint nun keine Meldung mehr.



lg andi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: