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.
2500 = 1000 + 30 · 50 <br />
<br />
<br />
<br />
<br />
<br />
Option Explicit<br />
Muss am Anfang stehen!<br />
Public Grundgehalt As Double<br />
Private Zuwachs As Double<br />
Public Const Zulage = 50<br />
Function Lohn(ByVal Alter As Long) As Double<br />
Lohn = (Grundgehalt + Zulage * Alter) * (1 + Zuwachs)<br />
End Function<br />
Sub InitDaten()<br />
Grundgehalt = 1000 ’Darf jeder wissen!<br />
Zuwachs = 0,1 ’Chefsache!<br />
End Sub<br />
Private Sub LohnTest()<br />
’ Zwei Anweisungen in einer Zeile! Brrrr!<br />
Dim alt As Long : alt = 30<br />
MsgBox "Lohn(30): " & Lohn(30)<br />
InitDaten<br />
alt = InputBox("Wie alt sind Sie?", "Alter eingeben", alt)<br />
MsgBox "Sie sind " & alt & " Jahre alt und verdienen " _<br />
& Lohn(alt) & " Euros!"<br />
End Sub<br />
<br />
<br />
LohnTest