Habe einen Code der mir nur die gefilterten Werte in Spalte A anzeigt.
Ich möchte gerne das mir in der Listbox auch die Überschriften von A1 angezeigt wird.
Weiters wäre es super auch die Werte von Spalte A bis E angezeigt wird.
Könnte mir dazu bitte jemand weiterhelfen?
Danke
SG, Heinz
Private Sub UserForm_Initialize()
Dim rng As Range
Application.ScreenUpdating = False
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
Rows(1).Delete
If IsEmpty(Range("A1")) Then
Beep
MsgBox "Es entspricht kein Datensatz dem Suchkritierumg!"
ActiveWorkbook.Close savechanges:=False
End
ElseIf Range("A1").CurrentRegion.Rows.Count = 1 Then
lstVisibleCells.AddItem Range("A1").Value
Else
lstVisibleCells.List = Range("A1").CurrentRegion.Value
End If
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub