Verschiedene Doppelklick Events

[alti89]

Hi Zusammen,

habe folgendenden Code

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 'Select Case Target.Column
 
' Case ("B")
  If Target.Column = 2 Then
  Call Historie
 ' End If
 
 ' Case ("i")
 ' Cancel = True
'If Not Intersect(Target, Range("I4:I1000")) Is Nothing Then
' Select Case Target.Column
  ' Case 1
     '  Set wsTabelle = Worksheets("Demogeräte (Pool)")
          ' End Select
 
      ' Userform1.TextBox1.Value = ActiveCell.Value ' wert in userform anzeigen lassen
      ' Userform1.Show
       End If
      ' End Select
End Sub

Der Code Soll folgendes machen:
Bei Doppelklick in eine Zelle der Spalte B - Makro aufrufen
Bei Doppelklick in eine Zeile der Spalte I - UserForm aufrufen

[RPP63]

Hi!
z.B. so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
  Case 2: Call Historie
  Case 9: UserForm1.Show
End Select
End Sub

Gruß Ralf

[alti89]

wie definiere ich eig die Parameter am case ?

weil so :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 'Select Case Target.Column
 
'Case 2
  If Target.Column = 2 Then
  Call Historie
  End If
 'End Select
 
 ' Case 9
 ' Cancel = True
'If Not Intersect(Target, Range("I4:I1000")) Is Nothing Then
' Select Case Target.Column
  ' Case 1
     '  Set wsTabelle = Worksheets("Demogeräte (Pool)")
       '  End Select
 
      ' Userform1.TextBox1.Value = ActiveCell.Value ' wert in userform anzeigen lassen
      ' Userform1.Show

     
   'End If
   
End Sub

kommt immer End Select fehlt Error

[RPP63]

Was genau hast Du denn gegen meinen simplen Code, der die lfd. Nummer der Spalte abfragt?
(und im Übrigen exakt das macht, was Du im Eröffnungspost wolltest)

Gruß Ralf

[alti89]

Der Code hier:

Code:

'If Not Intersect(Target, Range("I4:I1000")) Is Nothing Then
' Select Case Target.Column
 ' Case 1
    '  Set wsTabelle = Worksheets("Demogeräte (Pool)")
      '  End Select

     ' Userform1.TextBox1.Value = ActiveCell.Value ' wert in userform anzeigen lassen
     ' Userform1.Show

Liest mir den Wert aus einer Beliegen Zelle in Bereich ("I") aus und gibt den in einer MsgBox wieder
ich weis leider nicht genau wie ich den umbauen soll das er mit den einfachen lösung Funktioniert

[RPP63]

z.B. so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
 Case 2: Call Historie
 Case 9
   With UserForm1
     .TextBox1 = Target
     .Show
   End With
End Select
End Sub

Gruß Ralf

[alti89]

Jupp Funzt, Danke