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.
Sub exitStatementDemo()<br />
Dim demoNum As Single, i As Long, j As Long<br />
Randomize<br />
Do<br />
j = j + 1<br />
For i = 1 To 10<br />
demoNum = Int(Rnd() * 100)<br />
Select Case demoNum<br />
Case 7: Exit For<br />
Case 29: Exit Do<br />
Case 54<br />
MsgBox "Exit Sub bei j: " & j & ", i = " & i<br />
Exit Sub<br />
End Select<br />
Next i<br />
Loop<br />
MsgBox "Exit Do bei j: " & j & ",i = " & i<br />
End Sub<br />
<br />
<br />
<br />
<br />
<br />
<br />
On Error Resume Next<br />
On Error GoTo Marke<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Sub OnErrorTest()<br />
Dim x As Double, aus As String<br />
On Error GoTo Ende<br />
x = InputBox("Bitte Zahl 0 eingeben: ", "Tu’s!", "1")<br />
MsgBox "x = " & x & ", 1/x = " & 1 / x