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.
Else<br />
Jahreszeit = "Herbst"<br />
End If<br />
End Function<br />
<br />
<br />
<br />
<br />
<br />
Season()<br />
Function Season(ByVal tag As Long, _<br />
ByVal mon As Long) As String<br />
Select Case mon<br />
Case 1, 2, 3<br />
Season = "Winter"<br />
If (mon = 3 And tag > 20) Then Season = "Frühling"<br />
Case 4 To 6<br />
Season = "Frühling"<br />
If (mon = 6 And tag > 20) Then Season = "Sommer"<br />
Case Is 20) Then Season = "Herbst"<br />
Case Else<br />
Season = "Herbst"<br />
If (mon = 12 And tag > 20) Then Season = "Winter"<br />
End Select<br />
End Function<br />
<br />
<br />
Gehalt Bruttoi <br />
<br />
<br />
Sub AuswahlTest()<br />
Dim alt As Long, ki As Long<br />
Dim t As Long, m As Long