Dim lngstartRow As Long
Dim varVgl As Variant
varVgl = Application.Match(ActiveSheet.Cells(1, 13), ActiveSheet.Columns(1), 0)
lngstartRow = CLng(varVgl)
Dim wks As Worksheet, Zelle As Range, i As Long, Werte(), fremd()
Set wks = Sheets("mitarbeiter_cl")
With wks
ReDim Werte(Application.WorksheetFunction.CountIf(.Range(.Cells(lngstartRow, "I"), _
.Cells(.Rows.Count, "I").End(xlUp)), ">=0") - 1, 1)
i = 0
For Each Zelle In .Range(.Cells(lngstartRow, "A"), .Cells(.Rows.Count, "A").End(xlUp))
If Zelle.Offset(0, 8).Value > 0 Then
Werte(i, 0) = Zelle.Value 'Spalte A
Werte(i, 1) = Zelle.Offset(0, 8).Value 'Spalte I
i = i + 1
End If
Next
'End With
With Me.ListBox1
.List = Werte()
.ColumnCount = lngstartRow
ReDim Werte(0)
End With
End With~f~
wie kann ich es schaffen das die zugehörige spalte n in der textbox noch angezeigt wird
habe es mit ~f~fremd(i, 2) = Zelle.Offset(0, 13).Value 'Spalte n
und dann
.List = Werte()& fremd()
versucht doch es klappt nicht
gruß
selo