Danke im Vorraus
Christian
Sub entweder_oder()
Dim i As Integer, sc As Integer
i = ActiveSheet.Index
sc = Sheets.Count
If i < sc Then
Sheets(sc).Select
Else
Worksheets.Add after:=Sheets(sc)
End If
End Sub
Sub ActiveSheet_bewegen()
Dim nBlattIndex As Integer
Dim wshActivesheet As Worksheet
For nBlattIndex = 1 To ActiveWorkbook.Worksheets.Count
Set wshActivesheet = ActiveWorkbook.Worksheets(nBlattIndex)
wshActivesheet.Activate
Next nBlattIndex
If (MsgBox("Der letzte Sheet ist active, Wollen sie noch einen Sheet zugeben?", vbQuestion + vbYesNo, "Sheet zugeben") = vbYes) Then
ActiveWorkbook.Worksheets.Add after:=wshActivesheet
End If
End Sub