VBA: Combobox behält Wert nicht
GTFuchs
ich versuche mit dem folgenden Code eine Combobox mit Werten zu füllen. Sie soll
1. beim Aufklappen sich eine Liste von Werten per SQL Abfrage holen
2. der User wählt einen Wert aus
3. die Zielzelle wird festgelegt
4. dort steht dann der ausgewählte Wert
1. bis 3. klappt gut, und 4. klappt im Moment des Klick, dann ist der ausgewählte Wert wieder aus der Combobox verschwunden und dadurch auch die Zielzelle leer.
Wie überrede ich die Combobox, den gewählten Wert zu behalten ?
Sub ComboBox1_DropButtonClick()
DropDownFuellen
Worksheets("Einrichtung").ComboBox1.LinkedCell = "L2"
End Sub
Sub DropDownFuellen()
Dim Server As String
Dim Datenbank As String
Dim User As String
Dim Passwort As String
Dim Trusted As Boolean
Server = Range("DWH_Server").Value
Datenbank = Range("DWH_DB").Value
User = Range("DWH_User").Value
Passwort = Range("DWH_Passwort").Value
Trusted = Range("DWH_Trusted").Value
Dim Security As String
Dim myConnectStr As String
Dim myADO As New ADODB.Connection
Dim myRS As New ADODB.Recordset
Worksheets("Einrichtung").ComboBox1.Clear
If Trusted = True Then
Security = ";Integrated Security=SSPI;"
Else
Security = ";Password=" & Passwort & ";User ID=" & User & ";"
End If
myConnectStr = "Provider=SQLOLEDB;Server=" & Server & ";Database=" & Datenbank & Security
myADO.Open (myConnectStr)
myRS.Open "SELECT Top 9 * FROM sx_dwh_dKonten", myADO, adOpenKeyset, adLockOptimistic
While Not myRS.EOF
Worksheets("Einrichtung").ComboBox1.AddItem myRS!KontenName
myRS.MoveNext
Wend
myRS.Close
myADO.Close
End Sub
Viele Grüße,
Gerd
Anzeige