CommandBars
14.07.2003 15:55:11
Willy
Ich habe für ein Offerten-Programm eine Kundenauswahlliste erstellt. Alles lief i.O. Auf einmal öffnet Excel das Dropdown-Fenster nicht mehr (oder nur sehr kurz), obwohl ich nichts verändert habe. Vielleicht kann mir jemand den Fehler erklären?
Sub Kundenauswahl()
Dim SB As CommandBar
Dim Symbol As Object
Dim i As Integer
On Error Resume Next
Set SB = CommandBars.Add("Kunden-Auswahl")
SB.Visible = True
SB.Width = 10000
With CommandBars("Kunden-Auswahl")
.Top = 240
.Left = 126
End With
Set Symbol = Application.CommandBars("Kunden-Auswahl").Controls _
.Add(Type:=msoControlComboBox)
With Symbol
Sheets("Kundenadressen").Activate
Range("E1").Select
i = 1
Do Until ActiveCell.Value = ""
.AddItem Text:=ActiveCell.Value, index:=i
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
.Left = (500)
.Top = (500)
.Width = 300
.DropDownLines = 17
.DropDownWidth = 300
.ListHeaderCount = 0
.OnAction = "Auswahl"
End With
Sheets("Berechnungen").Activate
End Sub
Vielen Dank im Voraus
Willy