ich habe ein UserForm mit Comboboxen, und möchte nun per Tabtaste von Combobox zur combobox springen.
Leider springe ich per tabtaste nicht ins nächste feld sondern quer beet.
kann mir da jemand helfen?
Vielen Dank im voraus
Ralf aus bonn
ich füge hier mal den code ein:
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