Sub Code_erstellen()
    Dim inZeile As Integer
    Dim inZaehler As Integer
    Application.DisplayAlerts = False
    Sheets.Add
    ActiveSheet.Move After:=Sheets(Sheets.Count)
    With ThisWorkbook.VBProject.vbComponents(ActiveSheet.Name).CodeModule
        If .CountOfLines = 0 Then
            .InsertLines 1, "Option Explicit"
            .InsertLines 3, "Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)"
            .InsertLines 4, "    ActiveSheet.ScrollArea = ""A1:K30"""
            .InsertLines 5, "End Sub"
        Else
            .InsertLines inZeile + 3, "Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)"
            .InsertLines inZeile + 4, "    ActiveSheet.ScrollArea = ""A1:K30"""
            .InsertLines inZeile + 5, "End Sub"
        End If
    End With
    Application.DisplayAlerts = True
End Sub