Da Jahr hat gerade begonnen und sitze hier, wie ihr auch, am PC und bastle weiter an meinem Projekt, das eigentlich schon am 31.12.2019 fertig sein sollte.
Ich möchte gern eine ListBox in der UF frm_Tag füllen, und zwar in einer bestimmten Reihenfolge.
Als erstens wird über die Selektion der Zeile in einer Tabelle die bestimmte Zelle ausgelesen und in der UF in einer ComboBox dargestellt. In dieser ComboBox soll nun der ausgelesen Wert durch einen anderen Wert ersetzt werden, der wiederum die Daten aus einer anderen Tabelle "Parameter" Spalte W ab Zeile 2 bekommt.
mit...
Dim Repeatings As Integer
Dim N As Integer
Dim zeile As Long
zeile = ActiveCell.Row
'Sheet "Paramater" Spalte W "Reisezweck" auslesen
With Me.cbx_Reisezweck
.ColumnCount = 1
.BoundColumn = 1
.TextColumn = 1
For Repeatings = 2 To Sheets("Parameter").Range("W65536").End(xlUp).Row
.AddItem
N = .ListCount - 1
.List(N, 0) = Sheets("Parameter").Cells(Repeatings, 23)
Next
End With
...lese ich die Daten aus "Parameter" und mit...
cbx_Reisezweck = Cells(zeile, 26)
lese ich den eingetragenen Wert aus der Tabelle aus.Aber irgendwie will das nicht klappen.
Ich habe eine stark reduzierte Mappe hochgeladen, wo man die UF mit einem Rechtsklick auf die Datumsspalten der ersten beiden Sheets aufrufen kann.
https://www.herber.de/bbs/user/134082.xlsm
Vielleicht kann jemand helfen?
Vielen Dank im Voraus.
LG
Peer