AW: ausgeblendete Zeilen mittels Userform einblenden
02.04.2015 14:16:45
Rudi
Hallo,
du kannst doch nicht einfach Code irgendwelchen Steuerelementen zuordnen.
Die Userform würde ich auch nicht Listbox1 nennen, sondern UF_Einblenden oder so.
Außerdem heißt dein Commandbutton auf der UF Commandbutton2
Code der UF:
Private Sub CommandButton2_Click()
Dim i As Integer
With ListBox1
Do
If .Selected(i) Then
Rows(.List(i, 0)).Hidden = False
.RemoveItem (i)
i = i - 1
End If
i = i + 1
Loop While i
Private Sub ListBox1_Click()
Dim c As Range
ListBox1.Clear
For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
If c.EntireRow.Hidden Then
With ListBox1
.AddItem c.Row
.List(.ListCount - 1, 1) = c
End With
End If
Next
With ListBox1
.ColumnCount = 2
.ColumnWidths = "0;100"
.MultiSelect = 1
End With
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
ListBox1.Clear
For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
If c.EntireRow.Hidden Then
With ListBox1
.AddItem c.Row
.List(.ListCount - 1, 1) = c
End With
End If
Next
With ListBox1
.ColumnCount = 2
.ColumnWidths = "0;100"
.MultiSelect = 1
End With
End Sub
Code für CMD auf dem Tabellenblatt:
Private Sub CommandButton1_Click()
Load UF_einblenden
With UF_einblenden
If .ListBox1.ListCount Then
.Show
Else
MsgBox "Keine ausgeblendeten Zeilen vorhanden."
End If
End With
End Sub
Gruß
Rudi