AW: Klassenmodul des Tabellenblattes !
22.06.2010 09:58:54
Joachim
Hallo,
das war etwas vorschnell von mir. Inzwischen habe ich es hinbekommen... Danke.
Ich habe auch kleine Modifizierungen vorgenommen, so dass ich es aus einer anderen Mappe laufen lassen kann.
Es funktioniert, ABER das Menü wird immer länger.
Irgendwie muss ich eine Kleinigkeit übersehen haben?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, _
Cancel As Boolean)
Dim objCnt As CommandBarControl
Dim Erg
On Error GoTo NotFound
' Prüfe auf Kostenstelle
Erg = Application.WorksheetFunction.VLookup(Target.Value2, _
ThisWorkbook.Sheets(KST_Worksheet).Range(KST_Tabelle), KST_PosLongString, False)
If objCnt Is Nothing Then
Set objCnt = Application.CommandBars("Cell").Controls.Add
End If
With objCnt
.Caption = Str(Target.Value2) & " -> " & Erg
.Tag = "KST"
.FaceId = 90
End With
Exit Sub
NotFound:
If Not objCnt Is Nothing Then objCnt.Delete
On Error GoTo 0
End Sub
Danke vorab