Hallo,
@snb: ich gehe mal davon aus, Du hast nicht nachvollzogen, was ich meinte. So soll's aussehen.
[
attachment=36065]
Gruß
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
(24.12.2020, 15:58)snb schrieb: [ -> ]@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