Combobox - 2 Spaltig....

[maninweb]

Hallo,

@snb: ich gehe mal davon aus, Du hast nicht nachvollzogen, was ich meinte. So soll's aussehen.

   

Gruß

[Kuwer]

Hallo Stefan,

so ginge es auch mit der ComboBox:

Füge folgenden Code zusätzlich ein:

Code:

Private Sub cbKonto_Change()
  With cbKonto
    If .ListIndex > -1 Then
      .Value = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
    End If
  End With
End Sub

und ändere bei der Variablenbelegung

lngkto = cbKonto.Value

zu

    With cbKonto
      If .ListIndex > -1 Then
        lngkto = .List(.ListIndex, 0) ' 0 entspricht der 1. Spalte
      End If
    End With

Gruß Uwe

[snb]

@Kuwer

Reicht schon:

Code:

Private Sub ComboBox1_Change()
    Caption = ComboBox1.Column(0) & Space(5) & ComboBox1.Column(1)
End Sub

[Kuwer]

@Kuwer

Reicht schon:

Code:

Private Sub ComboBox1_Change()
    Caption = ComboBox1.Column(0) & Space(5) & ComboBox1.Column(1)
End Sub

Nö. ComboBox1 gibt es nicht. Und welches Caption? 

Gruß Uwe