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.
GoTo Marke Marke <br />
<br />
<br />
<br />
x <br />
1/x <br />
Beratung <br />
Ende Eingabe<br />
Sub GoToTest()<br />
Dim x As Double, aus As String<br />
Eingabe:<br />
x = InputBox("Bitte Zahl 0 eingeben: ", "Tu’s!", "1")<br />
If (x = 0) Then GoTo Beratung<br />
MsgBox "x = " & x & ", 1/x = " & 1 / x<br />
GoTo Ende<br />
Beratung:<br />
MsgBox "Die Zahl " & x & " ist nicht positiv!"<br />
GoTo Eingabe<br />
Ende:<br />
aus = InputBox("Nochmal? Ja/Nein ", "Tu’s nicht", "Nein")<br />
If UCase(aus) = "JA" Then GoTo Eingabe<br />
End Sub