ComboBox-Auswahlfeld um 1 reduzieren
20.05.2009 16:19:26
miss18
wieder einmal bereitet mir die ComboBox Kopfschmerzen :)
Ich hab eine ComboBox, die einen Namen hat (siehe Code 2). Dieser Name wird allerdings auch angezeigt wenn ich beim Auswahlfeld etwas auswählen will. Es passiert nichts, d.h. das Makro startet nicht (ist auch gut so) aber der Name ist trotzdem in der Liste.
Kann man das nicht ändern/löschen? Oder das Auswahlfeld um eins reduzieren, somit wäre der Name weg?
Code 1 im Tabellenblatt:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > 0 Then Application.Goto Sheets(NamenTab(ComboBox1.Text, False)).Range(" _
A1")
End Sub
Code 2 im Makro / Modul:
With Sheets("Übersicht")
.ComboBox1.Clear
.ComboBox1.AddItem "Name"
For Each objWs In ThisWorkbook.Worksheets
If Not objWs.Name = .Name Then
If IsNumeric(Application.Match(objWs.Name, var1, 0)) Then
.ComboBox1.AddItem NamenTab(objWs.Name, True)
End If
Vielen Dank im Voraus. Ich hoffe Ihr könnt mir weiterhelfen.
GLG, miss18