UserForm

Private Sub cmb2_Change()
End Sub

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("Anlagen!B1") = "Abiturzeugnis"
Else
Range("Anlagen!B1") = ""
End If
End Sub

Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then
Range("Anlagen!B5") = "Anlagen"
Else
Range("Anlagen!B5") = ""
End If
End Sub

Private Sub cmb1_Change()
End Sub

Private Sub CommandButton9_Click()
Unload UserForm13
UserForm4.Show
End Sub

Private Sub UserForm_Initialize()
If CheckBox1.Value = True Then Range("Anlagen!B1") = "Abiturzeugnis"
If CheckBox1.Value = False Then Range("Anlagen!B1") = ""
If CheckBox2.Value = True Then Range("Anlagen!B2") = "EV"
If CheckBox2.Value = False Then Range("Anlagen!B2") = ""
If CheckBox3.Value = True Then Range("Anlagen!B3") = "Vollmacht"
If CheckBox3.Value = False Then Range("Anlagen!B3") = ""
If CheckBox4.Value = True Then Range("Anlagen!B4") = "Anrechnungsbescheid"
If CheckBox4.Value = False Then Range("Anlagen!B4") = ""
Me.Top = 0
Me.Left = 0
Me.Width = Application.Width
Me.Height = Application.Height
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Range("Anlagen!B2") = "EV"
Else
Range("Anlagen!B2") = ""
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Range("Anlagen!B3") = "Vollmacht"
Else
Range("Anlagen!B3") = ""
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Range("Anlagen!B4") = "Anrechnungsbescheid"
Else
Range("AnlagenB4") = ""
End If
End Sub

Private Sub cmdOK_Click()
If pboSaveOK2 = True Then
CommandButton6.Enabled = True
End If
With Sheets("Eingabe")
.Range("J2").Value = cmb1.Text
.Range("L2").Value = ComboBox1.Text
.Range("J5").Value = ComboBox3.Text
.Range("J10").Value = ComboBox9.Text
.Range("J7").Value = ComboBox7.Text
.Range("J14").Value = ComboBox6.Text
.Range("I10").Value = TextBox1.Text
End With
Dim lLetzte  As Long
If cmb1.Value = "" Then
MsgBox "Die Anrede bitte einfügen!", _
48, "   Hinweis für " & Application.UserName
cmb1.SetFocus
Exit Sub
End If
If ComboBox3.Value = "" Then
MsgBox "Den Mandanten bitte einfügen!", _
48, "   Hinweis für " & Application.UserName
ComboBox3.SetFocus
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Das Feld Studienjahr muß eine Eingabe enthalten!", _
48, "   Hinweis für " & Application.UserName
ComboBox1.SetFocus
Exit Sub
End If
If ComboBox9.Value = "" Then
MsgBox "Das Feld Semesterauswahl muß eine Eingabe enthalten!", _
48, "   Hinweis für " & Application.UserName
ComboBox9.SetFocus
Exit Sub
End If
If ComboBox7.Value = "" Then
MsgBox "Das Feld Universitätsstandort muß eine Eingabe enthalten!", _
48, "   Hinweis für " & Application.UserName
ComboBox7.SetFocus
Exit Sub
End If
If ComboBox6.Value = "" Then
MsgBox "Das Feld Semesterfach muß eine Eingabe enthalten!", _
48, "   Hinweis für " & Application.UserName
ComboBox6.SetFocus
Exit Sub
End If
If TextBox1.Value = "" Then
MsgBox "Das Feld Datum Unibrief muß eine Eingabe enthalten!", _
48, "   Hinweis für " & Application.UserName
TextBox1.SetFocus
Exit Sub
End If
End Sub

Private Sub ComboBox9_Change()
End Sub

Private Sub CommandButton1_Click()
Unload UserForm13
UserForm4.Show
End Sub

Private Sub CommandButton2_Click()
pboSaveOK2 = True
Call Eingabe_anzeigen
End Sub

Private Sub CommandButton3_Click()
pboSaveOK2 = True
Call Unibrief_Studienjahr
End Sub

'
' schließen
'

Private Sub CommandButton4_Click()
Unload UserForm13
UserForm7.Show
End Sub

Private Sub CommandButton6_Click()
speichern4
pboSaveOK = False
CommandButton6.Enabled = False
End Sub

Private Sub CommandButton7_Click()
Drucken5
End Sub

Private Sub CommandButton8_Click()
Unload UserForm13
Ausgeben2.Show
End Sub

Private Sub Label3_Click()
End Sub

Private Sub Label4_Click()
End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub UserForm_Click()
End Sub

Sub Gericht_anzeigen()
If Sheets("EingabeGericht").Range("F10") = "Nein" Then
Sheets("Gericht ohne studienjahr").Select
Else
MsgBox "In Zelle Studienjahr steht nicht " & Chr(34) & "Nein" & Chr(34) & "!", vbInformation
End If
End Sub