kontextmenu - bearbeiten suchen arbeitsmappe alle
05.09.2005 11:29:02
mehmet
leider bin ich nicht ganz fündig geworden
könntet ihr mir bitte diesen code anpassen:
Const t = "suche in allen Tabellen"
Sub Kontextmenü_Erweitern()
Call Kontext_Löschen
Dim Kontext As Object
Set Kontext = CommandBars("Cell").Controls.Add
Kontext.BeginGroup = True
With Kontext
.Caption = t
.OnAction = "SucheInAllenTabelle"
.FaceId = 25 '25 46 109 141 172 183 202
End With
End Sub
Sub Kontext_Löschen()
On Error Resume Next
CommandBars("Cell").Controls(t).Delete
End Sub
Sub SucheInAllenTabelle()
MsgBox "Hallo, ich will in allen Tabellen suchen !", vbExclamation
End Sub
der makro "sucheinallentabellen" sollte die die maske vom menu:
bearbeiten, suchen, optionen, suchen arbeitsmappe und in feld "suche nach"
focosiert werden.
ist es machbar?
herzlichen dank im voraus
gruss
mehmet
Anzeige