Excel aufmöbeln mit VBA

z.Re & " + " & z.Im & "i"
If (z.Im < 0) Then KomplexToString = _
z.Re & " - " & (-z.Im) & "i"
If (z.Im = 1) Then KomplexToString = z.Re & " + i"
If (z.Im = -1) Then KomplexToString = z.Re & " - i"
If (z.Im = 0) Then KomplexToString = z.Re
End If
End Function
Function KMult(ByRef w As Komplex, ByRef z As Komplex) _
As Komplex
KMult.Re = w.Re * z.Re - w.Im * z.Im
KMult.Im = w.Re * z.Im + w.Im * z.Re
End Function
Function Invers(ByRef z As Komplex) As Komplex
If (z.Re = 0 And z.Im = 0) Then Exit Function
Dim betraghoch2 As Double
betraghoch2 = z.Re ^ 2 + z.Im ^ 2
Invers.Re = z.Re / betraghoch2
Invers.Im = -z.Im / betraghoch2
End Function
Function Netto1(ByVal Brutto As Long, _
ByVal k As Long, ByVal verh As Boolean) As Double
If (Brutto < 0) Then
Netto1 = 0
Else
Dim anz As Long
anz = k
If (verh = True) Then anz = anz + 1
If (anz = 0) Then