Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.01.2008 12:06:22 |
Alex |
|
|
|
02.01.2008 16:13:23 |
Holger |
|
|
Aw:Aw:Mithilfe von vba einen TAnnenbaum erstellen |
02.01.2008 19:24:19 |
Alex |
|
|
Von:
Alex |
Datum:
02.01.2008 19:24:19 |
Views:
846 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Mithilfe von vba einen TAnnenbaum erstellen |
Danke für deine Antwort
Ja so in der art soll es sein.
Ich schau mal das ich es umgeschrieben bekomme das ich 4 gleich große äste habe.
Aber danke, das hilft mir sehr weiter
Holger schrieb am 02.01.2008 16:13:23:
Hallo Alex,
meinst du etwa so?
Sub Tanne()
AstMax = InputBox("Maximale Astlänge ohne Stamm")
If AstMax > 18 Then
MsgBox ("Maximaler Astlänge ist 18")
Exit Sub
End If
AstMax = AstMax + 1
Mitte = 19
Zeile = 6
For k = 2 To AstMax
For i = 0 To k - 1
For j = -i To i
Cells(Zeile, Mitte + j) = "*"
Next j
Zeile = Zeile + 1
Next i
Next k
End Sub
Viel Erfolg und alles Gute im Neuen Jahr
Holger
Alex schrieb am 02.01.2008 12:06:22:
Hi Leute,
ich soll einen Tannenbaum mithilfe von Schleifen erstellen.
Aber im Moment häng ich ein bisschen. Das habich jetzt schon gemacht:
Sub tanne_v1()
Const stern As String = "*"
Dim i As Integer, j As Integer, vorj As Integer, k As Integer, vori As Integer
Dim n_ast_klein As Integer, n_ast_groß As Integer, l As Integer, vorl As Integer
n_ast_klein = 4
n_ast_groß = 4
For k = 1 To n_ast_groß
vori = (k - 1) * n_ast_klein + 5
For i = 1 To n_ast_klein
vorj = n_ast_klein - i + 15
For j = 1 To (2 * i - 1)
Cells(i + vori, j + vorj) = stern
Next j
Next i
Next k
End Sub
Er ist in 4 Äste unterteile und jetzt sollen die äste 2,3,4 um jeweils 2 Sterne größer werden, aber ich weiß nicht wie das geht.
Kann mir jemand helfen?
Danke im Voraus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.01.2008 12:06:22 |
Alex |
|
|
|
02.01.2008 16:13:23 |
Holger |
|
|
Aw:Aw:Mithilfe von vba einen TAnnenbaum erstellen |
02.01.2008 19:24:19 |
Alex |
|
|