Excel aufmöbeln mit VBA

Netto3 = Brutto * 0.7
Case Else
Netto3 = Brutto * 0.8
End Select
End If
End Function
OhneP()
Replace()
Tannenbaum(Byval N As Long)
N
*
***
*****
*******
*********
N = 5 N
Function OhneP(ByRef s As String) As String
Dim i As Long
OhneP = s
For i = 1 To Len(s)
If Mid(OhneP, i, 1) = "P" Then Mid(OhneP, i, 1) = "B"
If Mid(OhneP, i, 1) = "p" Then Mid(OhneP, i, 1) = "b"
Next i
End Function
Function Tannenbaum(ByVal n As Integer) As String
Dim i As Long, k As Long
Tannenbaum = ""
For i = 1 To n
For k = 1 To n - i
Tannenbaum = Tannenbaum & " "
Next k
For k = 1 To 2 * i - 1
Tannenbaum = Tannenbaum & "*"
Next k
Tannenbaum = Tannenbaum & vbNewLine
Next i