Userform mit Doppelklick öffnen

[Kate]

Hallo zusammen, 

ich könnte nochmal eure Hilfe gebrauchen.

Ich habe eine Userform entworfen und möchte, dass diese sich bei einem Doppelklick in irgendeine Zelle öffnet. 
Der Inhalt der einzelnen Zellen soll dann in die entsprechende Textbox übernommen werden. 
(Inhalt Spalte A in Textbox 1, Inhalt Spalte B in Textbox 2 usw.)

Geht das so einfach?

Vielen Dank im Voraus!

Liebe Grüße 

Kate

[Crazy Tom]

Hallo

dieses in das Tabellenblatt wo es stattfinden soll

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   UserForm1.Show
End Sub

und das gehört hinter die Userform

Code:

Private Sub UserForm_Initialize()
   TextBox1.Value = Cells(ActiveCell.Row, 1).Value
   TextBox2.Value = Cells(ActiveCell.Row, 2).Value
   TextBox3.Value = Cells(ActiveCell.Row, 3).Value
End Sub

MfG Tom

[Kate]

Das funktioniert super, danke dafür

wie ist das mit den Checkboxen? Wenn die Zelle ein "X" enthält sollen sie als ausgefüllt angezeigt werden ...

Liebe Grüße

Kate

[Crazy Tom]

wenn welche Zelle ein X enthält?

[Rabe]

Hi,

die Checkboxen können doch einer bestimmten Zelle zugewiesen werden. Dann ändert sich der Zustand der Checkbox bei Füllen der Zelle (WAHR / FALSCH = 1 / 0, mit/ohne Datum geht es auch)

[Kuwer]

Hallo Kate,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  With UserForm1
    .CheckBox1 = Cells(ActiveCell.Row, 1).Value = "X"
    .CheckBox2 = Cells(ActiveCell.Row, 2).Value = "X"
    .CheckBox3 = Cells(ActiveCell.Row, 3).Value = "X"
    .Show
  End With
End Sub

Gruß Uwe

[Kate]

Danke für eure Hilfe. 

Der Code von Uwe läuft super!

Liebe Grüße 

Kate