Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmVisibleCells

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

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

StandardModule: basMain

Sub CallForm()
   frmVisibleCells.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox