VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzeige eines Datensatzes durch Klick mit der rechten Maustaste

Gruppe

Ereignis

Bereich

BeforeRightClick

Thema

Anzeige eines Datensatzes durch Klick mit der rechten Maustaste

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeRightClick