Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Netto1 = Brutto * 0.6<br />
Else<br />
If (anz = 1) Then<br />
Netto1 = Brutto * 0.7<br />
Else<br />
Netto1 = Brutto * 0.8<br />
End If<br />
End If<br />
End If<br />
End Function<br />
Function Netto2(ByVal Brutto As Long, _<br />
ByVal k As Long, ByVal verh As Boolean) As Double<br />
If (Brutto < 0) Then<br />
Netto2 = 0<br />
Exit Function ’Exit mögen manche nicht<br />
End If<br />
Dim anz As Long<br />
anz = k<br />
If (verh) Then anz = anz + 1<br />
If (anz = 0) Then<br />
Netto2 = Brutto * 0.6<br />
ElseIf (anz = 1) Then<br />
Netto2 = Brutto * 0.7<br />
Else<br />
Netto2 = Brutto * 0.8<br />
End If<br />
End Function<br />
<br />
Function Netto3(ByVal Brutto As Double, _<br />
ByVal k As Long, ByVal verh As Long) As Double<br />
If (Brutto < 0) Then<br />
Netto3 = 0<br />
Else<br />
Dim anz As Long ’ anz: Anzahl der Familien<strong>mit</strong>glieder<br />
anz = k<br />
If (verh 0) Then anz = anz + 1<br />
Select Case anz<br />
Case 0<br />
Netto3 = Brutto * 0.6<br />
Case 1