'Video_014) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_014) start

Sub setze_nach_komma_stellen()
auswahl = ActiveWorkbook.Worksheets("page_D").Range("B4").Value

If auswahl = 0 Then
    Call keine_nachkomma_stelle
ElseIf auswahl = 1 Then
    Call eine_nachkomma_stelle
ElseIf auswahl = 2 Then
    Call zwei_nachkomma_stelle
End If
End Sub


Sub keine_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0"" cm"""
    Range("A1").Select
End Sub

Sub eine_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0.0"" cm"""
    Range("A1").Select
End Sub

Sub zwei_nachkomma_stelle()
    Range("D4:D7").Select
    Selection.NumberFormat = "0.00"" cm"""
    Range("A1").Select
End Sub

'Video_014) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_014) ende