Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzeige eines Datensatzes durch Klick mit der rechten Maustaste

Gruppe

BeforeRightClick

Problem

Beim Klicken mit der rechten Maustaste in den Spalten A:E soll der Datensatz der activen Zeile in einer MsgBox angezeigt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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