Public Doubl As Double


Public Sub KonTextMenu()
Dim Ctrl As CommandBarButton
Dim Eintrag1, Eintrag2, Eintrag3, Eintrag31, Eintrag4, Eintrag5, Eintrag6 As Object
Dim Eintrag10, Eintrag11, Eintrag12, Eintrag13, Eintrag14, Eintrag15 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 = "Blank"
        End With
        Set Dev = .Controls.Add(msoControlButton)
        With Dev
            .Caption = " "
        End With
    End With
    
   ' Set Eintrag1 = CommandBars("Cell").Controls.Add
    'With Eintrag1
     '   .Caption = "Zahlungseingang Brutto (10% Mwst)"
      '  .OnAction = "EinBrutto10"
    'End With
    
   ' Set Eintrag2 = CommandBars("Cell").Controls.Add
    'With Eintrag2
     '   .Caption = "Zahlungseingang Netto (10% Mwst)"
      '  .OnAction = "EinNetto10"
    'End With
    
    Set Eintrag3 = CommandBars("Cell").Controls.Add
    With Eintrag3
        .Caption = "Zahlungseingang Brutto (20% Mwst)"
        .OnAction = "EinBrutto20"
    End With
    
    Set Eintrag31 = CommandBars("Cell").Controls.Add
    With Eintrag31
        .Caption = "Zahlungseingang Brutto (19% Mwst)"
        .OnAction = "EinBrutto16"
    End With
    
  '  Set Eintrag4 = CommandBars("Cell").Controls.Add
   ' With Eintrag4
    '    .Caption = "Zahlungseingang Netto (20% Mwst)"
     '   .OnAction = "EinNetto20"
    'End With
    
    Set Eintrag5 = CommandBars("Cell").Controls.Add
    With Eintrag5
        .Caption = "Innergemeinschaftlicher Eingang (0%)"
        .OnAction = "EinInner"
    End With
    
    Set Eintrag5 = CommandBars("Cell").Controls.Add
    With Eintrag5
        .Caption = " "
    End With
    
    'Set Eintrag6 = CommandBars("Cell").Controls.Add
    'With Eintrag6
        '.Caption = "Einnahme Netto (0%)"
        '.OnAction = "EinOhne"
    'End With
    
    Set Eintrag10 = CommandBars("Cell").Controls.Add
    With Eintrag10
        .Caption = "Zahlungsausgang Brutto (10% Mwst)"
        .OnAction = "AusBrutto10"
    End With
    
    Set Eintrag11 = CommandBars("Cell").Controls.Add
    With Eintrag11
        .Caption = "Zahlungsausgang Netto (10% Mwst)"
        .OnAction = "AusNetto10"
    End With
    
    Set Eintrag12 = CommandBars("Cell").Controls.Add
    With Eintrag12
        .Caption = "Zahlungsausgang Brutto (20% Mwst)"
        .OnAction = "AusBrutto20"
    End With
    
    Set Eintrag12 = CommandBars("Cell").Controls.Add
    With Eintrag12
        .Caption = "Zahlungsausgang Netto (20% Mwst)"
        .OnAction = "AusNetto20"
    End With
    
    Set Eintrag13 = CommandBars("Cell").Controls.Add
    With Eintrag13
        .Caption = "Innergemeinschaftlicher Ausgang (0%)"
        .OnAction = "AusInner"
    End With
    
    Set Eintrag14 = CommandBars("Cell").Controls.Add
    With Eintrag14
        .Caption = "Ausgabe Netto (0%)"
        .OnAction = "AusOhne"
    End With
    
    Set Eintrag15 = CommandBars("Cell").Controls.Add
    With Eintrag15
        .Caption = "Einfuhrumsatzsteuer (20%)"
        .OnAction = "AusEust"
    End With
End Sub
Sub ClearNumbers()
    For i = 6 To 22
        Cells(ActiveCell.Row, i).Value = ""
    Next i
    Call Zurueck
End Sub
Sub Zurueck()
    CommandBars("Cell").Reset
End Sub
Sub Blank()
    Cells(ActiveCell.Row, 4).Interior.ColorIndex = xlNone
    Call ClearNumbers
    Cells(ActiveCell.Row, 4).Value = ""
    Call Zurueck
End Sub
Sub EinBrutto10()
    Cells(ActiveCell.Row, 4).Value = "ZE BRUTTO 10"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 7).Value = (Cells(ActiveCell.Row, 3).Value) / 1.1
    Cells(ActiveCell.Row, 9).Value = ((Cells(ActiveCell.Row, 3).Value) / 1.1) * 0.1
    Call Zurueck
End Sub
Sub EinNetto10()
    Cells(ActiveCell.Row, 4).Value = "ZE NETTO 10"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 7).Value = (Cells(ActiveCell.Row, 3).Value)
    Cells(ActiveCell.Row, 9).Value = (Cells(ActiveCell.Row, 3).Value) / 10
    Call Zurueck
End Sub
Sub EinBrutto16()
    Cells(ActiveCell.Row, 4).Value = "ZE BRUTTO 19"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 20).Value = (Cells(ActiveCell.Row, 3).Value) / 1.19
    Cells(ActiveCell.Row, 21).Value = ((Cells(ActiveCell.Row, 3).Value) / 1.19) * 0.19
    Call Zurueck
End Sub
Sub EinBrutto20()
    Cells(ActiveCell.Row, 4).Value = "ZE BRUTTO 20"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 8).Value = (Cells(ActiveCell.Row, 3).Value) / 1.2
    Cells(ActiveCell.Row, 10).Value = (Cells(ActiveCell.Row, 3).Value) / 6
    Call Zurueck
End Sub
Sub EinNetto20()
    Cells(ActiveCell.Row, 4).Value = "ZE NETTO 20"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 8).Value = (Cells(ActiveCell.Row, 3).Value)
    Cells(ActiveCell.Row, 10).Value = (Cells(ActiveCell.Row, 3).Value) / 5
    Call Zurueck
End Sub
Sub EinInner()
    Cells(ActiveCell.Row, 4).Value = "ZE INNER 0"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 11).Value = (Cells(ActiveCell.Row, 3).Value)
    Call Zurueck
End Sub
Sub EinOhne()
    Cells(ActiveCell.Row, 4).Value = "ZE OHNE 0"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 12).Value = (Cells(ActiveCell.Row, 3).Value)
    Call Zurueck
End Sub
Sub AusBrutto10()
    Cells(ActiveCell.Row, 4).Value = "ZA BRUTTO 10"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 13).Value = (Cells(ActiveCell.Row, 3).Value) / 1.1
    Cells(ActiveCell.Row, 15).Value = ((Cells(ActiveCell.Row, 3).Value) / 1.1) * 0.1
    Call Zurueck
End Sub
Sub AusNetto10()
    Cells(ActiveCell.Row, 4).Value = "ZA NETTO 10"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 13).Value = (Cells(ActiveCell.Row, 3).Value)
    Cells(ActiveCell.Row, 15).Value = (Cells(ActiveCell.Row, 3).Value) / 10
    Call Zurueck
End Sub
Sub AusBrutto20()
    Cells(ActiveCell.Row, 4).Value = "ZA BRUTTO 20"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 14).Value = (Cells(ActiveCell.Row, 3).Value) / 1.2
    Cells(ActiveCell.Row, 16).Value = (Cells(ActiveCell.Row, 3).Value) / 6
    Call Zurueck
End Sub
Sub AusNetto20()
    Cells(ActiveCell.Row, 4).Value = "ZA NETTO 20"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 14).Value = (Cells(ActiveCell.Row, 3).Value)
    Cells(ActiveCell.Row, 16).Value = (Cells(ActiveCell.Row, 3).Value) / 5
    Call Zurueck
End Sub
Sub AusInner()
    Cells(ActiveCell.Row, 4).Value = "ZA INNER 0"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 17).Value = (Cells(ActiveCell.Row, 3).Value)
    Call Zurueck
End Sub
Sub AusOhne()
    Cells(ActiveCell.Row, 4).Value = "ZA OHNE 0"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 18).Value = (Cells(ActiveCell.Row, 3).Value)
    Call Zurueck
End Sub
Sub AusEust()
    Cells(ActiveCell.Row, 4).Value = "ZA EUST"
    Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Call ClearNumbers
    Cells(ActiveCell.Row, 19).Value = (Cells(ActiveCell.Row, 3).Value)
    Call Zurueck
End Sub