Herbers Excel-Forum - das Archiv

Combo-Box

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Combo-Box
von: Andreas

Geschrieben am: 11.04.2005 11:07:17
Servus zusammen,
habe in einer Tabelle eine Combobox die mir eine Kundenliste anzeigen soll.
Bei Click auf die Combobox sollen die Werte angezeigt werden, macht es in meiner Version leider nicht, nur wenn ich im VB-Editor das Privat-sub starte werden die Werte angezeigt.
Wo liegt mein Fehler?
In zweiter Folge will ich neue Werte in die Combobox eintragen und nach Click auf Commandbutton in die Kundenliste rückschreiben, da ist auch ein Fehler den ich nicht finde.
Bin für jeden Tipp dankbar
Gruss Andreas

Option Explicit
Private Sub ComboBox_Click()
Dim curRow As Integer
Dim lastRow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Kunden")
lastRow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ComboBox1.Clear
For curRow = 1 To lastRow
If Len(ws.Range("A" & curRow).Text & "") > 0 Then
ComboBox1.AddItem ws.Range("A" & curRow).Text
End If
Next
Set ws = Nothing
End Sub

Private Sub ComboBox1_Change()
'Bei jedem aendern der ComboBox veraendert sich der Wert in A6
Range("A6").Value = ComboBox1.Value
End Sub


Private Sub CommandButton1_Click()
Dim lastRow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Kunden")
lastRow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastRow + 1).Text = ComboBox1.Value
ws.Range.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
End Sub

Bild

Betrifft: AW: Combo-Box
von: Michel

Geschrieben am: 11.04.2005 12:46:09
Hi,
warum gehst du jedes Mal die Prozedur des Ladens bei Click durch? Lade einmal die Namen in der Workbook_Open Prozedur und sie sind in der Combobox enthalten.
Zum zweiten brauchst du eigentlich keine weitere Extra-Prozedur für einen weiteren hinzugefügt Namen - die Workbook_Open Prozedur langt, da err ja automatisch bis zur letzten Zeile durchgeht.
Damit gibt es dann auch keine Fehler :-)
cu
Michel
 Bild