Hallo zusammen,

ich hoffe ihr könnt mir weiter helfen und bedank mich jetz schonmal:
Folgende Situation treibt mich in den wahnsinnin:
Ich hab einen Button eingefügt, der mir 2 Auswahlmöglichkeiten (OptionButton) bin: 
Feiertag oder Urlaub

Jetz kann ich noch ein Datum in eine TextBox eingeben wann ich Feiertag oder Urlaub hab.

Das Datum ist in der spalte C von 06.05.2014 bis 30.05.2014 schon voreingetragen und nun
wird über eine do until funiktion der platz gefunden wo ich URlaub od feiertag hab!

datum = CDate(TextBox1.Text)
Do Until Cells(d, 3) = datum ' 
    d = d + 1

anschließend wird Urlaub in die Zelle Cells(d,4) eingefügt:

    Cells(d, 4).Select
    ActiveCell.FormulaR1C1 = "Urlaub"

Bei Feiertag hätte ich noch gerne den Namen den Feiertag --> ich hab eine zweite userform erstellt wo ich den namen des feiertags eingeben
kann, jedoch kommt jetz mein problem: ich gib den namen des feiertags ein will diesen in die Cells (d,4)
eingeben und die Variable d ist nich gespeichert!
 

Wie schaffe ich es eine Variable von Userform1 in die Userform 2 zu übernehmen? Kann mir da jemand weiter helfen?
Wäre echt super wenn jemand eine lösung hat, da dies nur eine übung für ein großes Projekt seien sollte =)

Lg Andy
 

Hier der komplette code

Modul1:
Sub Button()
'UserForm öffnen
UserForm1.Show
End Sub
 

UserForm1:
 

Option Explicit

'####################################################################################
'######################## der heutige Tag wird verglichen ###########################
'####################################################################################

Private Sub OKButton_Click()

Dim frei, x, d As Integer
Dim aw As Worksheet
Dim heute As Date
Dim datum As Variant

If TextBox1 = "" Then
    MsgBox "Bitte Datum eingeben"
    Unload Me
    User_Auswahl_Uni_F_B_U.Show
End If

d = 3 'Anfang wo ab wann soll es das datum überprüfen

datum = CDate(TextBox1.Text)
Do Until Cells(d, 3) = datum
    d = d + 1
Loop

'##################################################
'####################### Urlaub ######################
'##################################################
If UrlaubThen
    Cells(d, 4).Select
    ActiveCell.FormulaR1C1 = "Urlaub"
 End If

'##################################################
'##################### Feiertag ###################
'##################################################
If Feiertag Then
    User_Feiertag.Show

End If

Unload Me

End Sub

'#################### AbbrechenButton #################
Private Sub AbbrechenButton_Click()
Unload Me
End Sub

UserForm2:
 

##################### Abbrechen #####################
Private Sub AbbrechenButton_Feiertag_Click()
    Unload Me
End Sub

Private Sub OKButton_Feiertag_Click()

Dim ftag As Variant
Dim x, d  As Integer
 
    MsgBox d
    ftag = TextBox2.Text
    Cells(d, 4).Select '<-- AB HIER KOMMT EIN FEHLER DA D =0 ist!!!!!! AAHHHHHH

    ActiveCell.FormulaR1C1 = ftag
    Call orange_schwarz
    x = 5
    For x = 5 To 7
        Cells(d, x).Select
        ActiveCell.FormulaR1C1 = ftag
        Call orange
      Next x
End Sub