Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
i n <br />
2i − 1 <br />
*<br />
***<br />
*****<br />
*******<br />
’usw<br />
<br />
n 2i − 1 i <br />
vbNewLine <br />
Halbtanne() <br />
<br />
<br />
Function HalbTanne(ByVal n As Long) As String<br />
Dim i, j As Long<br />
HalbTanne = ""<br />
For i = 1 To n<br />
For j = 1 To 2 * i - 1<br />
HalbTanne = HalbTanne & "*"<br />
Next j<br />
HalbTanne = HalbTanne & vbNewLine<br />
Next i<br />
End Function