ich habe ein kleine Makro und möchte nachdem das Makro beendet ist,
das in der ComboBox auf der Tabelle1 der 1. Name angezeigt wird.
mfg wolfgang
ComboBox1.ListIndex = 0
Private Sub ComboBox1_DropButtonClick()
If Range("A1") = 1 Then
ActiveSheet.ComboBox1.ListFillRange = "Auswahl!I4:I20"
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("D5") = ActiveSheet.ComboBox1
ActiveSheet.Protect (getStrPasswort)
ElseIf Range("A1") = 2 Then
ActiveSheet.ComboBox1.ListFillRange = "Auswahl!M4:M20"
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("D5") = ActiveSheet.ComboBox1
ActiveSheet.Protect (getStrPasswort)
Else
ActiveSheet.ComboBox1.ListFillRange = ""
End If
End Sub
mfg wolfgang