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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen