Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CommandBars

CommandBars
14.07.2003 15:55:11
Willy
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandBars
14.07.2003 16:43:28
Knut
Option Explicit

Sub Kundenauswahl()
Dim SB As CommandBar, Symbol As Object, i As Integer
On Error Resume Next
CommandBars("Kunden-Auswahl").Delete
On Error GoTo 0
Set SB = CommandBars.Add("Kunden-Auswahl")
With SB
.Visible = True
.Width = 10000
.Top = 240
.Left = 126
Set Symbol = .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
End With
Sheets("Berechnungen").Activate
End Sub

Knut

Anzeige
AW: CommandBars
14.07.2003 16:15:24
Stephan
Beim zweiten Start ist die CommanBar Kundenauswahl bereits vorhanden und wird nicht mehr angezeigt.
Ein
Application.CommandBars("Kunden-Auswahl").Delete
das bei einem Fehler und beim Schließen ausgeführt wird
sollte es tun.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige