Tabellen in Textbox nicht anzeigen lassen
22.05.2006 21:51:34
Wolfgang
da hat mir der Christoph in den vergangenen Tagen sehr gut mit nachfolgendem Code weitergeholfen. Vergessen habe ich dabei aber, direkt auch zu fragen, was ich machen muß damit bestimmte Seiten in der Listboxanzeige ausgeklammert werden und nicht angezeigt werden. Ich habe das schon versucht mit very hidden (hatte da einen Code unter Recherche entdeckt), das scheint aber wohl nur zu bewirken, dass die Seiten in der Arbeitsmappe versteckt werden. Sorry Christoph, dass ich mich nochmals an's Forum wende. Hat jemand eine Idee, wie der nachstehende Code umgestellt bzw. ergänzt werden kann, damit z.B. die Tabellenblätter "Start" und "Hinweise" nicht in der Listbox erscheinen? - Danke schon jetzt wieder allen für die Unterstützung.
Herzliche Grüße - Wolfgang
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Dim i As Long, k As Long
Dim vgl, arrMatch()
ReDim arrMatch(0)
arrMatch(0) = 0
If Me.ListBox1.ListIndex > -1 Then
With ThisWorkbook.Sheets(Me.ListBox1.List(Me.ListBox1.ListIndex))
For i = 3 To .Cells(.Rows.Count, 10).End(xlUp).Row
vgl = Application.Match(.Cells(i, 10), arrMatch, 0)
If IsError(vgl) Then
ReDim Preserve arrMatch(k)
arrMatch(k) = .Cells(i, 10)
Me.ListBox2.AddItem
Me.ListBox2.List(k, 0) = arrMatch(k)
Me.ListBox2.List(k, 1) = Application.CountIf(.Columns(10), .Cells(i, 10))
k = k + 1
End If
Next
End With
End If
End Sub
Private Sub ListBox1_Change()
Me.ListBox2.Clear
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
With ThisWorkbook
For i = 1 To .Worksheets.Count
Me.ListBox1.AddItem .Worksheets(i).Name
Next
End With
End Sub
Anzeige