Startmakro im laufenden Betrieb wiederholen
Fabio
Dank des Forums habe ich mir
- Eine Userform
- mit entsprechendem Auwahl-Code
basteln können. Die User-Form startet auch bei Aufruf der Datei (und veranlasst eine bestimmte Sortierung, Zeilenausblendung - je nach Auswahl halt)
Frage: Wie kann ich "Bei geöffnetem" Makro die "user-Form" nochmals starten?
So schaut das bisher aus:
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
Sheets(intSh).Rows("4:8").EntireRow.Hidden = True 'True=werden ausgeblendet
Sheets(intSh).Rows("8").EntireRow.Hidden = True
Sheets(intSh).Rows("9:11").EntireRow.Hidden = True
Sheets(intSh).Rows("12:13").EntireRow.Hidden = False
Sheets(intSh).Rows("14:17").EntireRow.Hidden = True
Sheets(intSh).Rows("18").EntireRow.Hidden = False
Sheets(intSh).Rows("19:25").EntireRow.Hidden = True
Sheets(intSh).Rows("92:156").EntireRow.Hidden = True
Sheets(intSh).Rows("158:250").EntireRow.Hidden = True
Next
Case Is = 1
Call Einblenden(Me.ListBox1.Text)
Case Is = 2
Call Einblenden(Me.ListBox1.Text)
Case Is = 3
Call Cblenden(Me.ListBox1.Text)
Case Is = 4
Call Dblenden(Me.ListBox1.Text)
'hier geht´s weiter
End Select
Vielen lieben Dank!
Fabio
Unload Me
End Sub
Anzeige