Thema Datum  Von Nutzer Rating
Antwort
02.01.2008 12:06:22 Alex
NotSolved
Blau Aw:Mithilfe von vba einen TAnnenbaum erstellen
 02.01.2008 16:13:23 Holger
NotSolved
02.01.2008 19:24:19 Alex
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
02.01.2008 16:13:23		 Views:
825		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Mithilfe von vba einen TAnnenbaum erstellen
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
Blau Aw:Mithilfe von vba einen TAnnenbaum erstellen
 02.01.2008 16:13:23 Holger
NotSolved
02.01.2008 19:24:19 Alex
NotSolved