AW: gegebenen Falls neues Arbeitsblatt erstellen
jaoh
Option Explicit
Public
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
' gruess Dich Christian, schau es Dir mal an ob es das ist, was Du brauchst :-)