' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************
Option Explicit
Dim Proj_ID_new As Long
Private Sub UserForm_Initialize()
OptionButton1 = True
Call OptionButton4_Click
End Sub
Private Sub OptionButton1_Click()
Dim lngRow As Long
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case .Cells(lngRow, 1).Text
Case "TYP1_": ComboBox1.AddItem .Cells(lngRow, 2).Text
Case "KS1_": ComboBox2.AddItem .Cells(lngRow, 2).Text
Case "GRUPPE1_": ComboBox3.AddItem .Cells(lngRow, 2).Text
Case "BEREICH1_": ComboBox5.AddItem .Cells(lngRow, 2).Text
Case "LEITER1_": ComboBox4.AddItem .Cells(lngRow, 2).Text
End Select
Next
End With
End Sub
Private Sub OptionButton2_Click()
Dim lngRow As Long
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case .Cells(lngRow, 1).Text
Case "TYP2_": ComboBox1.AddItem .Cells(lngRow, 2).Text
Case "KS2_": ComboBox2.AddItem .Cells(lngRow, 2).Text
Case "GRUPPE2_": ComboBox3.AddItem .Cells(lngRow, 2).Text
Case "BEREICH2_": ComboBox5.AddItem .Cells(lngRow, 2).Text
Case "LEITER2_": ComboBox4.AddItem .Cells(lngRow, 2).Text
End Select
Next
End With
End Sub
Private Sub OptionButton3_Click()
Dim lngRow As Long
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case .Cells(lngRow, 1).Text
Case "TYP3_": ComboBox1.AddItem .Cells(lngRow, 2).Text
Case "KS3_": ComboBox2.AddItem .Cells(lngRow, 2).Text
Case "GRUPPE3_": ComboBox3.AddItem .Cells(lngRow, 2).Text
Case "BEREICH3_": ComboBox5.AddItem .Cells(lngRow, 2).Text
Case "LEITER3_": ComboBox4.AddItem .Cells(lngRow, 2).Text
End Select
Next
End With
End Sub
Private Sub OptionButton4_Click()
Dim lngRow As Long
clear_combos
With Workbooks(ThisWorkbook.Name).Worksheets("Set-up")
For lngRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case .Cells(lngRow, 1).Text
Case "TYP4_": ComboBox1.AddItem .Cells(lngRow, 2).Text
Case "KS4_": ComboBox2.AddItem .Cells(lngRow, 2).Text
Case "GRUPPE4_": ComboBox3.AddItem .Cells(lngRow, 2).Text
Case "BEREICH4_": ComboBox5.AddItem .Cells(lngRow, 2).Text
Case "LEITER4_": ComboBox4.AddItem .Cells(lngRow, 2).Text
End Select
Next
End With
End Sub
Sub clear_combos()
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
End Sub