VBA aus FAQ
26.08.2007 11:03:47
Peter
ich habe zu folgendem Listing mal einige Anmerkungen und Fragen hinterlegt ...
Private Sub UserForm_Initialize()
Dim rng As Range
Application.ScreenUpdating = False
'sichtbare (gefilterte) Zellregion wird dem Range-Objekt zurückgegeben
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
neues Workbook hinzugefügt
Workbooks.Add
Range wird kopiert, aber wohin?
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
Falls die Inhalte in ein neues Workbook hinkopiert werden, stellt sich für mich die Frage warum? Kann man nicht einfach so den gefilterten Inhalt in einer ListBox anzeigen lassen? Der oben abgebildete Code bezieht sich auf https://www.herber.de/mailing/118300h.htm
Grüße Peter