Ich habe zwei Tabellenblätter mit Userformen versehen, die sich automatisch öffnen wenn man das Tabellenblatt aktiviert.
Vom Code her passiert das so:
Private Sub Worksheet_Activate()
BEMMenu.Show
End Sub
Zusätzliche gibt es eine Sortier-Funktion, die die Tabellenblätter in die richtige Reihenfolge bringt. Sobald ich jetzt aber diese Sortierfunktion laufen lasse werden alle Tabbelnblätter durch .move aktiviert und die beiden Userformen gehen auf, obwohl ich das gar nicht möchte. Beim Sortieren sollten eben nur die Tabellenblätter sortiert werden.
Gibt es eine Möglichkeit, die Tabellenblätter zu sortieren ohne dass die Userformen aufgehen. Bzw. kann man in die Worksheet_Activate etwas umschreiben ?
Meine Sortierfunktion lautet so:
Function TabellenBlaetterSortieren()
Dim i As Integer, j As Integer, k As Integer
Worksheets("Mitarbeiter").Move Before:=Worksheets(1)
Worksheets("Abschluss").Move After:=Worksheets(1)
Worksheets("Überstunden").Move After:=Worksheets(2)
Worksheets("Jahresübersicht").Move After:=Worksheets(3)
Worksheets("Krankheitsquote").Move After:=Worksheets(4)
Worksheets("BEM").Move After:=Worksheets(5)
Worksheets("Urlaubsplanung").Move After:=Worksheets(6)
k = ActiveWorkbook.Worksheets.Count
For i = 8 To k
For j = i To k
If Worksheets(j).Name Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
Worksheets("Mitarbeiter").Select
End Function
Viele Grüße,
Jens