Holger: Hut ab!!
Das war jetzt hammermässig!!
Ich verbeuge mich, du hast mir mein Weekend gerettet.. Vielen herzlichen Dank nochmals!
Liebe Grüsse
Malile
Apropos: Wenn du Lust auf eine Knacknuss in Sachen VBA hast, dann poste doch nochmals hier rein..
Meine zwei Informatiklehrer beschimpften meine Idee als unmöglich:
Der Sachverhalt ist folgendermassen: Ich habe in einem Ordner etliche Tabellen, die den selben Aufbau haben, nur andere Werte.
Nun will ich auf Knopfdruck folgendes können: Der Ordner, in dem all diese Tabellen sind, soll geöffnet werden, ich soll einzelne ExcelTabellen anwählen können, eine gewisse Zelle nebenan anschreiben können, und dann soll es mir von all den angewählten Tabellen die ausgewählte Zelle zusammen rechnen ( in der offenen Mappe! ). Und das alles möglichst rasch, nicht dass noch alle angewählten Tabellen sich öffnen und der Computer verglüht. Die Tabellen sollen sich einfach nur so kurz öffnen, damit man den Zellwert hat, dann aber sofort wieder schliessen.
Ich hoffe du verstehst mich.. aber wenn du keine Lust hast, auch kein Problem:).
Holger schrieb am 10.04.2008 12:25:07:
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;) |