UserForm, Sortieren,Ausblenden
19.01.2009 14:19:15
Fabio
Danke des Forums habe ich eine UserForm die mit "verschiedene Zeilen" ein-bzw. ausblenden (je nach Auswahl).
Funktioniert auch prima. Wenn ich die Datei "starte" sieht man im Hintergrund der "UserForm" natürlich die Excel-Tabelle. (Alle Zeilen). Nun würde ich gerne erreichen, das die Zeilen 8,9 und 10 generell ausgeblendet sind (d.h. auch beim Aufruf der Datei schon!). Wie erreiche ich das - kann mir jemand hier helfen?
(Nachdem die User-Form entsprechend angeklickt wurde, sind die Zeilen auch entsprechend ausgeblendet - aber ich hätte gerne, das die bereits beim Aufruf ausgeblendet werden. Das Script:
Private Sub cmdOK_Click()
Dim intSh As Integer
Select Case Me.ListBox1.ListIndex
'1. Fall ALle
Case Is = 0
For intSh = 1 To ActiveWorkbook.Worksheets.Count
Sheets(intSh).Rows("10:57").EntireRow.Hidden = False
Sheets(intSh).Rows("1:3").EntireRow.Hidden = False 'False=werden NICHT _
ausgeblendet
Sheets(intSh).Rows("4:7").EntireRow.Hidden = True 'True=werden ausgeblendet
Sheets(intSh).Rows("8:10").EntireRow.Hidden = True 'True=werden ausgeblendet
Sheets(intSh).Rows("12:14").EntireRow.Hidden = False
Sheets(intSh).Rows("15:25").EntireRow.Hidden = True
Sheets(intSh).Rows("41:50").EntireRow.Hidden = True
Sheets(intSh).Rows("67:77").EntireRow.Hidden = True
Sheets(intSh).Rows("89:250").EntireRow.Hidden = True
Next
'2. Fall Team KSB 1
Case Is = 1
Call Einblenden(Me.ListBox1.Text)
'3. Fall Team KSB 2
Case Is = 2
Call Einblenden(Me.ListBox1.Text)
'4. Fall Team KSB-Post
Case Is = 3
Call Einblenden(Me.ListBox1.Text)
'5. Fall Team KSB-Leitung
Case Is = 4
Call Cblenden(Me.ListBox1.Text)
'hier geht´s weiter
End Select
Unload Me
End Sub
Danke
Fabio
Anzeige