03.06.2022, 20:52
Hallo Gemeinde, ich hab wiedermal eine Pfosten vor'm Kopf:
wie kann in RowSource das "F" ersetzt werden???
Danke - Stefan
Code:
Sub ListboxFuellen(objForm As Object, strWksName As String)
Dim lngLastRow As Long
Dim lngLastColumn As Long
Dim wksSource As Worksheet
Set wksSource = Worksheets(strWksName)
lngLastRow = wksSource.Cells(Rows.Count, 1).End(xlUp).Row
lngLastColumn = wksSource.Cells(1, Columns.Count).End(xlToLeft).Column
With Verein.ListBox2
.BoundColumn = lngLastColumn
.ColumnHeads = True
'falscher Syntax:
.RowSource = strWksName & "!A2:" & Cells(lngLastRow, lngLastColumn)
'läuft:
.RowSource = strWksName & "!A2:F" & lngLastColumn
End With
End Subwie kann in RowSource das "F" ersetzt werden???
Danke - Stefan