Clever-Excel-Forum

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

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

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

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

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 Huh

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

Jupp Funzt, Danke

alti89

RPP63

alti89

RPP63

alti89

RPP63

alti89