Frage an Matthias G ...
12.01.2005 10:02:04
Marco1005
ich hoffe, dass ich dich nicht nerve. Kannst du mir bei dem Quellcode noch was ergänzen. Ich weiss nicht wie ich das hinkriege. Ich möchte, das bei allen markierten und somit ausgewählten Tabellenblättern ein Filter anspringt und zwar nur in Spalte "AC". Kannst du mir bitte nochmal helfen. Für mich als Anfänger ist das wirklich ein Problem. Hier nochmal die Codes:
Private Sub cmd_start2_Click()
Dim i As Integer
Dim f As Range
Application.ScreenUpdating = False
Worksheets("DatenauswertungProduktkey").Visible = True
Worksheets("DatenauswertungProduktkey").Activate
With Me.lst_Zeitrahmen2
For i = 0 To .ListCount - 1
Set f = Range("B1:BU11").Find(what:=.List(i), lookat:=xlWhole)
If Not f Is Nothing Then
Cells(1, f.Column).EntireColumn.Hidden = Not .Selected(i)
End If
Next
End With
Range("BV2:BV11").Dirty
Application.ScreenUpdating = True
Unload Me
End Sub
--------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim i As Integer
Dim f As Range
For i = 12 To Sheets.Count
lst_Zeitrahmen2.AddItem Sheets(i).Name
Next i
With Me.lst_Zeitrahmen2
For i = 0 To .ListCount - 1
Set f = Range("B1:BU11").Find(what:=.List(i), lookat:=xlWhole)
If Not f Is Nothing Then
.Selected(i) = Not Cells(1, f.Column).EntireColumn.Hidden
End If
Next
End With
End Sub
Vielen Dank!
Gruß
Marco