AW: VBA Code anpassen
26.10.2020 08:11:34
Regina
Hi Charly,
teste mal so:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim varTemp As Variant
Dim rng_fund As Range
If Not Intersect(Target, Range("B10:B16")) Is Nothing Then
Cancel = True
On Error Resume Next
Application.CommandBars("CBar_X").Delete
On Error GoTo 0
With Application.CommandBars.Add("CBar_X", msoBarPopup, , True)
With .Controls.Add(msoControlButton, , , , True)
varTemp = Target.Value
Set rng_fund = Columns(13).Find(varTemp)
If Not rng_fund Is Nothing Then
.Caption = "Population: " & Format(Cells(rng_fund.Row, 14), "#,##0")
End If
End With
.ShowPopup
.Delete
End With
End If
End Sub
Gruß Regina