Public Sub Drittes()
Dim Eingabe As Variant
Dim Raum As Integer
Dim Abk As Integer
Dim Ausgabe_Abk As String
Dim Zeit1 As Integer
Dim Zeit2 As Integer
Dim Diff As Integer
With Kalender
Zeit1 = CbUhrzeitEnde.Value
Zeit2 = CbUhrzeitAnfang.Value
Diff = (Zeit1 - Zeit2) - 1
End With
Dim c As Range
Dim Inhalt As String
Dim intErsteLeereZeile As Long
Dim Zeile As Variant
Dim lastrow As Range
With Kalender
.CbVeranstaltung.SetFocus
Abk = .CbVeranstaltung.ListIndex
Ausgabe_Abk = .CbVeranstaltung.List(Abk, 1)
End With
Eingabe = CbSemesteranzahl + "" + CbFachbereich & vbCrLf + _
Ausgabe_Abk + "-" + CbVeranstaltungsart & vbCrLf + _
CbProfessor & vbCrLf + _
txtRaum + "-" + CbUhrzeitAnfang + "-" + CbUhrzeitEnde
With Kalender
[...]
End With
End Sub