Private Sub UserForm_Initialize()
ComboBox_Unternehmen = "Unternehmen wählen"
With Me.ComboBox_Unternehmen
.List = Intersect(Worksheets("Daten").UsedRange, Worksheets("Daten").Range("B:B")).Value
End With
TextBox_Standort = "Standort"
ComboBox_Auditart = "Auditart wählen"
With ComboBox_Auditart
.AddItem "Internes Systemaudit"
End With
ComboBox_Auditsprache = "Auditsprache wählen"
With ComboBox_Auditsprache
.AddItem "Deutsch"
.AddItem "Englisch"
.AddItem "Spanisch"
.AddItem "Tschechisch"
End With
TextBox_Datum = "Datum von - bis eintragen"
End Sub
Private Sub ComboBox_Unternehmen_Change()
With Me
.TextBox_Standort.Value = Worksheets("Daten").Cells(1 + .ComboBox_Unternehmen.ListIndex, "B")
End With
End Sub