VBA Message Box Doppelklick

[DavidHans]

Hallo zusammen,

ich habe hier im Forum schon einmal großartige Hilfe mit der angehängten Datei gehabt, aber noch ein kleines Problem. In dieser Tabelle bekommt man mit Doppelklick auf eine Zeile eine Message Box angezeigt, in der die Projekte x bis z aus den Spalten AJ - AL angezeigt werden. Nun wäre es super, wenn es aber nur mit einem Doppelklick in die Spalte A klappen würde und nicht im Rest der Mappe, da dies etwas nervig. 

Der Code ist wie folgt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim lngC As Long
   Dim strText As String
   
   If WorksheetFunction.CountIf(Cells(Target.Row, 36).Resize(, 3), "x") > 0 Then
      For lngC = 36 To 38
         strText = strText & Cells(2, lngC) & ": " & Cells(Target.Row, lngC) & vbCr
      Next lngC
   End If
   MsgBox strText
   Cancel = True
End Sub

Würde mich sehr freuen, wenn mir hier jemand Helfen könnte!

Vielen Dank und schöne Grüße,
David

[Crazy Tom]

Hi

das könnte so gehen

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim lngC As Long
  Dim strText As String
  If Target.Column = 1 Then
   Cancel = True
   If WorksheetFunction.CountIf(Cells(Target.Row, 36).Resize(, 3), "x") > 0 Then
      For lngC = 36 To 38
         strText = strText & Cells(2, lngC) & ": " & Cells(Target.Row, lngC) & vbCr
      Next lngC
   End If
   MsgBox strText
  End If
End Sub

MfG Tom

[DavidHans]

Hallo Tom,

klasse! Vielen Danke! :)