If Befehle, Verschachtelung

On Error GoTo AblaufenGo
If Not Worksheets("Balkenplan").Shapes("Zeit " & festNr) Is Nothing Then
Worksheets(2).Activate
Cells(findenNr.Row, findenstart.Column).Select
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top +  _
ActiveCell.Height / 2, ActiveCell.Height, ActiveCell.Height / 2)
sh.Select
With Selection
.Characters.Text = fte & " FTE"
.Placement = xlMoveAndSize
.name = "ZeitTeil " & festNr2
End With
Set rng = Worksheets("Balkenplan").Range(Cells(findenNr.Row, findenstart.Column).Address)
Set shp = Worksheets("Balkenplan").Shapes("ZeitTeil " & festNr2)
shp.Left = rng.Left
shp.Top = rng.Top
shp.Width = Range(findenstart.Address, findenende.Address).Width
Exit Sub
AblaufenGo:
MsgBox "Erstellen Sie eine Maßnahme bevor Sie eine Teilaufgabe hinzufügen!"
End If
Exit Sub
AblaufenGo2:
MsgBox "Diese Teilaufgabe existiert bereits!"
'End If
Exit Sub