textbox nach zweitemal doppelklick erst werte geze
23.09.2014 19:11:36
Achim H.
Hallo User
leider macht dieses makro erst beim zweiten male doppelklick auf die aktive zelle was es soll. Siehe Code bzw. beispiel
https://www.herber.de/bbs/user/92779.xlsm
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
UserForm1.Show
With UserForm1
'Active Cell und weiter Inhalte zeigen
UserForm1.TextBox1.Value = ActiveCell.Offset(0, 0).Value 'Lfd Nummer
UserForm1.TextBox2.Value = ActiveCell.Offset(0, 1).Value 'Woche
UserForm1.TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Tag
UserForm1.TextBox4.Value = Format(ActiveCell.Offset(0, 3).Value, "DD.MM.YYYY") 'Datum
UserForm1.TextBox5.Value = Format(ActiveCell.Offset(0, 4).Value, "hh:mm") 'von Uhrzeit
UserForm1.TextBox6.Value = Format(ActiveCell.Offset(0, 5).Value, "hh:mm") 'von Uhrzeit
End With
End Sub