Combo-Box
11.04.2005 11:07:17
Andreas
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