Zitat:

- Ich habe eine Excel-Tabelle mit VBA-Code geschrieben. - Im Code habe ich eine Textbox, in der ein Startdatum mit Uhrzeit steht (z.B. "24.12.2002 15:34").

Zitat:

- In der Excel-Tabelle habe ich eine Zelle, in der ein Wert steht (z.B. "2"). - jetzt möchte ich zwei Dinge tun, wobei ich schon am ersten scheitere: 1. Über eine Funktion, in der ich die beiden Werte mitgebe, die Summe errechnen (ich kenne Dateadd(), aber irgendwie bekomme ich die Werte da nicht im richtigen Format rein.

Private Sub Form_Load()
    Dim strDatum As String
    Dim vbDatum As Date
    Dim Intervall As Integer
    Dim Ergebnis As Date
 
    strDatum = "24.12.2002 15:34"
    vbDatum = CDate(strDatum)
 
    Intervall = 2
 
    Ergebnis = DateAdd("d", Intervall, vbDatum)
    MsgBox Ergebnis
 
    Irgendwas = Addition(vbDatum, Intervall)
 
End Sub
 
Private Function Addition(Startdatum, Intervall)
    ErgebnisFunktion = DateAdd("d", Intervall, Startdatum)
 
    MsgBox "Ergebnis Funktion." & ErgebnisFunktion
 
End Function

Zitat:

2. Die Funktion so anpassen, dass Zeiten, welche an Wochentagen zwischen 18:00 abends und 8:00 morgens und die beiden Wochenendtage nicht mitaddiert werden.