Finde Datepicker Value nicht
29.05.2018 17:00:15
Philipp
Ich möchte mit dem Code gerne ein Datum per Datepicker auswählen, es danach in der Exceltabelle, wo es bereits steht finden ( Es handelt sich um einen Nachtrag) und dann mit Offset einen Wert (textbox1) in die richtige Zelle schreiben. Abhängig von der Combobox (deswegen if) und dem Ausgewählten Datum.
Hier ist soweit mein Code, allerdings schreibt er die textbox1.Value immer in die vorher, per Hand ausgewählte Zelle. Völlig unabhängig vom ausgewähltem Datum.
Jemand eine Idee?
Private Sub CommandButton1_Click()
Dim rng As Range
If Me.ComboBox1.Value = "Paketannahme" Then
Set rng = ActiveWorkbook.ActiveSheet.Rows(1).Find(What:=CDate(DTPicker1.Value), LookIn:= _
_xlValues, LookAt:=xlWhole)
ActiveSheet.Cells(5, 5).Value = DTPicker1.Value
'Überprüfe ob value richtig ist. Sie ist richtig! Auch richtiges Format.
Set rng = Selection
Selection.Offset(0, 1).Value = Prozesswahlnachtrag.TextBox1.Value
End If
End Sub