ich kann die Ursache des Laufzeitfehlers nicht extrahieren... Könnt ihr mir helfen?
Code aus der UserForm_Initialize():
With ComboBox1
.AddItem Format("09:00", "hh:mm")
.AddItem Format("10:00", "hh:mm")
.AddItem Format("11:00", "hh:mm")
.AddItem Format("12:00", "hh:mm")
.AddItem Format("13:00", "hh:mm")
.AddItem Format("14:00", "hh:mm")
End With
For i = 0 To ComboBox1.ListCount
If CDate(ComboBox1.List(i)) = CDate(Sheets(1).Range("D16").Value) Then
ComboBox1.Value = CDate(Sheets(1).Range("D16").Value) ', "hh:mm")
Exit For
End If
Next
Formel in Zelle "D16":
=WENN(D15>0,625;0;WENN(D15 Bezug Zelle "D15": Uhrzeit (z.b. "15:00", Format "hh:mm", direkte Eingabe)
Problem: Für alle Zeiten mittels "D15+2/24" funktioniert alles, also auch 12 Uhr und 13 Uhr. Wenn allerdings "D15-1/24" eintritt, funktioniert nur bis 11 Uhr und ab 14 Uhr, nicht aber 12 oder 13 Uhr ... Warum? Hier versagen meine Excel- und VBA-Kenntnisse.
Vielen Dank für jede Hilfe :)
PS: Mit welchem Zeichen aktiviere ich die Code-Anzeige?
Excel-Version: 1908 Build 11929.20562 (365 ProPlus)