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.
1 n <br />
n<br />
i = n(n + 1)/2, <br />
i=1<br />
100<br />
<br />
i=1<br />
i = 100 · 101/2 = 5050.<br />
Function MeineSumme(ByVal n As Long) As Long<br />
Dim i As Long<br />
MeineSumme = 0<br />
For i = 1 To n<br />
MeineSumme = MeineSumme + i<br />
Next i<br />
End Function<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Function KillSz(ByRef s As String) As String<br />
Dim i As Long<br />
KillSz = ""<br />
For i = 1 To Len(s)<br />
If Mid(s, i, 1) = "ß" Then<br />
KillSz = KillSz & "ss"<br />
Else<br />
KillSz = KillSz & Mid(s, i, 1)<br />
End If<br />
Next i<br />
End Function<br />
<br />
i <br />
<br />
<br />
<br />
Function WegMitUmlauten(ByRef S As String) As String<br />
Dim i As Long