Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
If ( k < 0) Then al = 0<br />
Select Case al<br />
Case Is < 15<br />
Brutto3 = -1<br />
k = 0<br />
Case 15 To 30<br />
Grundgehalt = 500<br />
Kindergeld = 300<br />
Case 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, _<br />
42, 43, 44, 45<br />
Grundgehalt = 1000<br />
Kindergeld = 250<br />
Case Else<br />
Grundgehalt = 1500<br />
Kindergeld = 200<br />
End Select<br />
Brutto3 = Grundgehalt + k * Kindergeld<br />
End Function<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Function Jahreszeit(ByVal tag As Long, _<br />
ByVal mon As Long) As String<br />
If (mon = 1 Or mon = 2 Or (mon = 3 And tag < 21) _<br />
Or (mon = 12 And tag > 20)) Then<br />
Jahreszeit = "Winter"<br />
ElseIf (mon = 4 Or mon = 5 Or (mon = 3 And tag > 20) _<br />
Or (mon = 6 And tag < 21)) Then<br />
Jahreszeit = "Lenz"<br />
ElseIf (mon = 7 Or mon = 8 Or (mon = 9 And tag < 21) _<br />
Or (mon = 6 And tag > 20)) Then<br />
Jahreszeit = "Sommer"