Registriert seit: 08.05.2014
Version(en): Office 2010, Office 365, Office 365 Betakanal
Hallo,
@snb: ich gehe mal davon aus, Du hast nicht nachvollzogen, was ich meinte. So soll's aussehen.
Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 2011-2019 & 2020-2022 :: 10 Awards
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner
Folgende(r) 1 Nutzer sagt Danke an maninweb für diesen Beitrag:1 Nutzer sagt Danke an maninweb für diesen Beitrag 28
• Kuwer
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
24.12.2020, 15:20
(Dieser Beitrag wurde zuletzt bearbeitet: 24.12.2020, 15:34 von 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
Registriert seit: 29.09.2015
Version(en): 2030,5
@Kuwer
Reicht schon:
Code:
Private Sub ComboBox1_Change()
Caption = ComboBox1.Column(0) & Space(5) & ComboBox1.Column(1)
End Sub
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(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