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

Beiträge aus den Excel-Beispielen zum Thema "nochmal was kniffliges ( Checkbox)"