Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
UserForm1.TextBox1.Value = Format(Cells(ActiveCell.Row, 1), "general")
UserForm1.TextBox2.Value = Format(Cells(ActiveCell.Row, 2), "###,##€")
UserForm1.TextBox3.Value = Format(Cells(ActiveCell.Row, 3), "###,##€")
UserForm1.Show
Cancel = True
End Sub