Gruppe
Ereignis
Problem
Beim Klicken mit der rechten Maustaste in den Spalten A:E soll der Datensatz der activen Zeile in einer MsgBox angezeigt werden.
ClassModule: Tabelle1
Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Range, Cancel As Boolean)
Dim intCounter As Integer
Dim txt As String
If Target.Column > 5 Then Exit Sub
Cancel = True
For intCounter = 1 To 5
txt = txt & Cells(Target.Row, intCounter) & vbLf
Next intCounter
MsgBox txt
End Sub