将时间值从组合框复制到具有时间格式的单元格

Question

我有一个组合框，其时间值从8 AM到9 PM。我希望客户可以选择一次，然后用一个按钮将时间复制到一个单元格中。我想用来做其他事情并用它计算的单元格中的时间值。

如果我将组合框中的值复制到单元格中，它将使用组合框中的格式（德语时间：“ 08:00 Uhr”，代码见下文），并将其作为文本复制到单元格“ 08:00 Uhr”中。现在我不能用它来计算cell（result）= cell（time）+2/24，但这就是我想要的。

在组合框中：

Private Sub UserForm_Initialize()
With UserForm3.ComboBox1
Dim dTime As Date
UserForm3.ComboBox1.AddItem Format("08:00 Uhr", "hh:mm")
    For dTime = TimeValue("9:00 AM") To TimeValue("9:00 PM") Step TimeValue("01:00")
        UserForm3.ComboBox1.AddItem Format(dTime, "hh:mm") & " Uhr"
    Next dTime
End With
End Sub

使用按钮：

Private Sub CommandButton1_Click()
Tabelle1.Range("K26").Value = UserForm3.ComboBox1.Value
End Sub

预期结果： 组合框：“ 09:00 Uhr” 范围（“ K26”）：0,375

真实结果： 组合框：“ 09:00 Uhr” 范围（“ K26”）：“ 09:00 Uhr”

如果我忘了告诉我，我很乐意提供帮助。