Public Sub ArtenMenuee()
Dim Eintrag1, Eintrag2, Eintrag3, Eintrag4, Eintrag5, Eintrag6 As Object
    Dim Eintrag10, Eintrag11 As Object
    
    With CommandBars("Cell")
        While .Controls.Count > 0
            On Error Resume Next
            .Controls(1).Delete
        Wend
        Set Dev = .Controls.Add(msoControlButton)
        With Dev
            .Caption = "Vorhandenen Eintrag löschen"
            .OnAction = "BlankArt"
        End With
        Set Dev = .Controls.Add(msoControlButton)
        With Dev
            .Caption = " "
        End With
    End With
     
     
     Set Eintrag1 = CommandBars("Cell").Controls.Add
    With Eintrag1
        .Caption = "Telefon, Handy, Internet"
        .OnAction = "Tele"
    End With
    
    Set Eintrag2 = CommandBars("Cell").Controls.Add
    With Eintrag2
        .Caption = "Geringfügige Wirtschaftsgüter (GWG)"
        .OnAction = "GWG"
    End With
    
    Set Eintrag3 = CommandBars("Cell").Controls.Add
    With Eintrag3
        .Caption = "Wareneinsatz/Material"
        .OnAction = "Material"
    End With
    
    Set Eintrag4 = CommandBars("Cell").Controls.Add
    With Eintrag4
        .Caption = "Büromaterial"
        .OnAction = "Buero"
    End With

   Set Eintrag5 = CommandBars("Cell").Controls.Add
    With Eintrag5
        .Caption = "Repräsentationsaufwand"
        .OnAction = "Werbung"
    End With
    
    Set Eintrag6 = CommandBars("Cell").Controls.Add
    With Eintrag6
        .Caption = "Grundumlage"
        .OnAction = "Grundumlage"
    End With

    Set Eintrag7 = CommandBars("Cell").Controls.Add
    With Eintrag7
        .Caption = "Spesen des Geldverkehrs"
        .OnAction = "Geldverkehr"
    End With
    
    Set Eintrag8 = CommandBars("Cell").Controls.Add
    With Eintrag8
        .Caption = "Post"
        .OnAction = "Post"
    End With
    
    Set Eintrag9 = CommandBars("Cell").Controls.Add
    With Eintrag9
        .Caption = "Sozialversicherung SVS"
        .OnAction = "SVS"
    End With
    
    Set Eintrag10 = CommandBars("Cell").Controls.Add
    With Eintrag10
        .Caption = "Lizenzgebühren"
        .OnAction = "Lizenz"
    End With
    
    Set Eintrag11 = CommandBars("Cell").Controls.Add
    With Eintrag11
        .Caption = "Sonstige"
        .OnAction = "Sonstige"
    End With

End Sub

Sub BlankArt()
    Cells(ActiveCell.Row, 5).Interior.ColorIndex = xlNone
    Call ClearNumbers
    Cells(ActiveCell.Row, 5).Value = ""
    Call Zurueck
End Sub

Sub Tele()
    Cells(ActiveCell.Row, 5).Value = "Telefon, Handy, Internet"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub GWG()
    Cells(ActiveCell.Row, 5).Value = "Geringfügige Wirtschaftsgüter (GWG)"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Material()
    Cells(ActiveCell.Row, 5).Value = "Wareneinsatz/Material"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Buero()
    Cells(ActiveCell.Row, 5).Value = "Büromaterial"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Werbung()
    Cells(ActiveCell.Row, 5).Value = "Repräsentationsaufwand"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Grundumlage()
    Cells(ActiveCell.Row, 5).Value = "Grundumlage"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Geldverkehr()
    Cells(ActiveCell.Row, 5).Value = "Spesen des Geldverkehrs"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Post()
    Cells(ActiveCell.Row, 5).Value = "Post"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub SVS()
    Cells(ActiveCell.Row, 5).Value = "Sozialversicherung SVS"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Lizenz()
    Cells(ActiveCell.Row, 5).Value = "Lizenzgebühren"
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub

Sub Sonstige()
    Cells(ActiveCell.Row, 5).Value = "Sonstige: "
    Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
End Sub