ich möchte mit einem ActiveX Steuerelement(Command Button) das Suchfenster aufrufen.
Mit einem normalen button (Makro)funtioniert es mit der Funktion:
Sub Suchen()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
Allerdings brauche ich es als Command Button weil ich es mir mit folgendem Button:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo 0
With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
CommandButton1.Top = .Top + 10
CommandButton1.Left = .Left + 10
End With
End Sub
als fliegendes Element einfügen möchte.
Vielen Dank.