Private Sub cb_prüfintervall_Change()
Dim date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim intervall As Integer
 
date1 = txt_inbetriebname.Text
date2 = lbl_letztePruefung.Visible
date3 = txt_nächstePrüfung.Text
intervall = cb_prüfintervall.Text
 
If date2 = "" Then
    date3 = date1 + intervall
    Else
        date3 = date2 + intervall
End If
 
End Sub

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...

Private Sub Command1_Click()
Dim Beginn As Date
Dim NaechsterTermin As Date
 
Beginn = Text1.Text
 
If IsDate(Beginn) = False Then
MsgBox ("Bitte geben Sie in die Textbox ein relevantes Datum ein!")
Exit Sub
End If
 
NaechsterTermin = DateAdd("m", Intervall, Beginn)
 
MsgBox ("Altes Datum: " & Beginn & "/Neuer Termin: " & NaechsterTermin)
 
End Sub
 
Private Sub Form_Load()
Combo1.AddItem ("3 Monatige")
Combo1.AddItem ("Halbjährlich")
Combo1.AddItem ("Jährlich")
Combo1.AddItem ("2 Jährlich")
End Sub
 
Private Function Intervall() As Integer
 
Dim Text As String
Text = Combo1.Text
 
Select Case Text
Case "3 Monatige"
Intervall = 3
Case "Halbjährlich"
Intervall = 6
Case "Jährlich"
Intervall = 12
Case "2 Jährlich"
Intervall = 24
Case Else
Intervall = 0
End Select
 
End Function

EALA FREYA FRESENA