Combobox Auswahl + Wert einfügen
28.06.2021 17:43:32
sigrid
ich habe folgendes Makro, welches einwandfrei funktioniert.
Daher, Name KOMMA und Vorname werden bei der Auswahl der Combobox angezeigt.
Jetzt möchte ich gern den Text aus der 4 Spalte in "O3" der aktiven Sheet setzen.
Im 2. Makro wird der Name in D5 gesetzt, einwandfrei.
Public Sub FillComboBox()
Dim lngrow As Long
Call ComboBox1.Clear
Select Case Cells(1, 1).Value
Case 1
With Worksheets("Steuerung")
For lngrow = 4 To 23
ComboBox1.AddItem .Cells(lngrow, 9).Text & ", " & .Cells(lngrow, 10).Text
Next lngrow
End With
End Select
End Sub
Private Sub ComboBox1_Change()
Range("D5").Value = ComboBox1.Text
End Sub
sigrid