habe mir mal wieder eine UserForm abändern wollen und bekomme nicht alles angepasst.
Den nachstehenden Code würde ich gerne so ändern, dass in der Listbox nur Spalte F und G ab Zeile 10 gelistet werden. Mit meinem bescheidenen VBA-Kenntnissen komme ich da leider nicht weiter.
Private Sub UserForm_Initialize()
Dim arr As Variant
Dim arrF() As Variant
Dim i As Long
Dim k As Long
Dim m As Long
arr = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))
ReDim arrF(1 To UBound(arr, 2), 1 To 1)
For i = 1 To UBound(arr)
If arr(i, 10) = "x" Then
m = m + 1
For k = 1 To UBound(arr, 2)
ReDim Preserve arrF(1 To UBound(arr, 2), 1 To m)
arrF(k, m) = arr(i, k)
Next
End If
Next
If Not IsEmpty(arrF) Then
Listbox1.ColumnCount = UBound(arrF)
Listbox1.Column = arrF
End If
End Sub
Die dann ausgewählten Themen sollten dann in Spalte K markiert werden.https://www.herber.de/bbs/user/69887.xls
Wollte mir den Drucken-Button ändern aber ...
Für Eure Hilfe vorab vielen Dank.
Gruß Rainer