Datum aus Combobox in Zelle im Datumsformat übergeben
19.12.2019 17:32:56
Andreas
Ich übergebe aus einer Combox in einem Userform mit dem Untenstehenden Code das Datum in Zelle A3 Leider habe ich in allen weiterführenden Berechnungen bei allen Formeln die mit VERWEIS oder SVERWEIS aufgebaut sind den Effekt, das diese nicht berechnet werden. Alle WENN oder WENNSUMME Formeln funktionieren Einwand frei und werden sofort Automatisch berechnet.
Erst wenn ich das Datum Händisch noch einmal einfüge und Enter drücke werden auch die Verweis-Formeln Berechnet. Meine Vermutung ist nun, dass das Datum aus der Combobox im Textformat nach A3 übergeben wird. Alle Datumszellen in der ganzen Arbeitsmappe sind auch als Datums Format formatiert. Wie kann ich sicherstellen dass das Datum im Datumsformat nach A3 übertragen wird? Ich bin leider kein VBA Experte und komme an dieser Stelle leider nicht Weiter
Private Sub UserForm_Initialize()
Dim Wiederholungen As Integer 'Variable deklarieren
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row ' Schleife zum Fü _
_
llen der ComboBox mit den Daten aus Blatt "Hilfstabelle"
ComboBox18.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 4) 'Datumsauswahl
Next
End Sub
Private Sub CommandButton1_Click()
Sheets("TageszettelDruckNTzGrad").Range("A3") = ComboBox18.Value 'Datum in Zelle A3 übernehmen
Sheets("TageszettelDruckNTzGrad").Range("A1:A16").Copy 'Bereich kopieren ###
Sheets("Nutzungsgrade Tag").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValues 'einfügen in erste freie Zeile in Ausgabe
End Sub