Hey :)

Vielleicht kann mir noch mal jemand helfen. Also ich habe recht viel Code und ich würde Teile davon gerne in Module auslagern, so dass der Code übersichtlich bleibt. Laut Google und anderen Foren ist das auch kein Problem. Das hab ich auch versucht, jedoch kann das neue Modul nicht auf die Variablen zugreifen bzw. es wird mir immer eine Fehlermeldung gezeigt. 

Also vielleicht zur genaueren Problematik:
Ich habe eine Userform mit verschiedenen Steuerelementen. Wenn ich auf "ausführen" klicke, sollen die Inhalte der Parameter in die dafür vorgesehene Zelle eingetragen werden. Das klappt auch wunderbar. Da ich habe sehr viele Zellen anspreche (die sind jedoch noch mal "thematisch" unterteilt), würde ich gerne den Code in ein weiteres Modul auslagern.
Dazu habe ich eine Public Prozedur angleget. Jetzt muss ich aber auf die Inhalte aus den Steuerelementen aus der UserForm zugreifen und das klappt nicht....

Hier ist der Code des Moduls, was ich bisher angelegt habe:

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 'Verweis auf UserForm "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 'Verweis auf UserForm "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
[...] '<- hier würde dann der gesamte Programmcode stehen; habe ihn aber jetzt weggelassen, da er zu viel Platz wegnimmt
End With
End Sub

Ich denke das Problem liegt an der Navigation...Also an dem zuweisen.

Danke schon mal, für eure tolle Hilfe :)