Application.Dialogs() schließen
23.05.2002 11:51:17
WolfgangM
ich benutze das suchfenster
Application.Dialogs(xlDialogFormulaFind).Show als Makro.
wird kein Suchbegriff gefunden und ich breche ab,oder schließe das Fenster, soll das anschließende Makro nicht ausgeführt werden.
Sub ASchäden()
Sheets("Fahrzeugbestand").Select
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
ACTIVECELL.Select
Cells(ACTIVECELL.Row, 13).Formla = Date
Cells(ACTIVECELL.Row, 11).Select
End Sub
mit If Application ="" Then exit sub klappts nicht.
kann mir jemand helfen?
Danke im vorraus
Gruß WolfgangM