VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Holger	Datum: 10.04.2008 12:25:07	Views: 955	Rating:	Antwort:
Thema: Aw:Aw:Aw:Hilfe in Case
Hallo Malile, ich dachte, du hättest Probleme mit der Select-Case-Anweisung, zumal auch dein Code zeigte, dass sie nicht sinnvoll eingesetzt war. Um eine Spirale zu zeichnen, würde ich nicht unbedingt diese Anweisung einsetzen. Es ginge z.B., denn es kommt ja mehr auf die Logik zur Bestimmung der Anfangs- und Endpunkte an: Sub Spirale() yA = Cells(2, 2) 'z.B. 200 xA = Cells(3, 2) 'z.B. 300 faktor = Cells(9, 2) 'z.B. 10 n = Cells(10, 2) 'z.B. 5 xE = xA + faktor yE = yE + faktor For n = 0 To 3 i = i + 1 xA = xE yE = yA + i * faktor ActiveSheet.Lines.Add xA, yA, xE, yE xE = xE + i * faktor yA = yE ActiveSheet.Lines.Add xA, yA, xE, yE i = i + 1 xA = xE yE = yA - i * faktor ActiveSheet.Lines.Add xA, yA, xE, yE xE = xE - i * faktor yA = yE ActiveSheet.Lines.Add xA, yA, xE, yE Next n End Sub Viel Erfolg Holger Malile schrieb am 09.04.2008 14:24:35: Ich versteh nicht ganz.. Wir müssen eben immer die neuen End. bzw. Anfangskoordinaten berechnen.. So eine eckige Spirale halt.. ich habe eine riesen Krise:D.. Hoffe auf "noob-Niveau" Antworten;)

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