List-Box "Option Explicit" Manuell Starten
Fabio
beim Start meiner Excel-Datei startet zeitgleich eine "List-Box", die mir eine "Sortierung bzw. die Zeilen Aus-und Umblendet." (Danke ans Forum).
Die startet immer, wenn ich die Datei aufrufe. Kann ich die irgendwie auch manuell starten? Immer die Datei schließen und neu aufrufen ist naja- irgendwie nervig? Unter "Extras-Makros" finde ich die nicht?
Danke
Fabio:
Das ist der Beginn der List-Box-Prozedur:
Option Explicit
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("1:57").EntireRow.Hidden = False
Sheets(intSh).Rows("1:3").EntireRow.Hidden = False 'False=werden NICHT _
ausgeblendet
....diverse Andere Möglichkeiten
....diverse Andere Möglichkeiten
End Select
Unload Me
End Sub
Anzeige