ich schaffe es nicht meine Arbeitsmappe nach
Tabelle1, Tabelle2,...Tabelle10,... zu sortieren
sie ist immer Tabelle1, Tabelle10, Tabelle11,...Tabellle2
kann mir "JEMAND" helfen??
Margit
sie ist immer Tabelle1, Tabelle10, Tabelle11,...Tabellle2
kann mir "JEMAND" helfen??
Margit
Gruss Udo
Gruß Ralph
Da müßte es doch noch eine elegantere Lösung geben.
Wenn man es nicht mit nur 5 sondern, mal angenommen
mit 500 bestehenden Arbeitsblätter zu tun hätte,
dann hätte man viel zu tun um Arbeitsblatt 500 nicht
nach Arbeitsblatt 50 folgen zu lassen.
Any suggestions?
Sub Blaetter_nach_Nummer_sortieren()
Application.ScreenUpdating = False
n = ActiveWorkbook.Sheets.Count
s = 1
next_t:
t = s + 1
next_t2:
nr1 = Val(Right(Sheets(s).Name, Len(Sheets(s).Name) - 7))
nr2 = Val(Right(Sheets(t).Name, Len(Sheets(t).Name) - 7))
If nr1 > nr2 Then
Sheets(t).Move before:=Sheets(s)
GoTo next_t
End If
If t < n Then
t = t + 1
GoTo next_t2
Else
If s = n - 1 Then GoTo exit_sub
s = s + 1
GoTo next_t
End If
exit_sub:
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
Vielleicht hilft dir das weiter.
Gruss Udo