---

ExcelProg.jpg ExcelProg2.jpg

Hallo zusammen!

Vor langer Zeit habe ich betrieblich in VB6 herumprogrammiert. Dort konnte man ein Steuerelement (Textbox, Label, ...) durch Kopieren in ein Array überführen und dann programmgesteuert Label[0], Label[1],... ansprechen.

Geht das in Excel-VB nicht, oder wenn ja, wie?

Hintergrund:
Mit der beiliegend abgebildeten Tabelle generiere ich Code für bestimmte CAD-Modelle. Allerdings reichen für die komplexeren Modelle meine ursprünglich 40 Parametervariablen nicht mehr aus. Irgendwie habe ich keine rechte Lust, die ganzen Steuerelemente mit ihrem zugehörigen Programmcode manuell zu vervielfältigen.

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wyndorps,

in VBA kannst du das über eine Klasse der Controls machen. Was für ein Control ist z.B. "down10" ?  Und was macht "down(10)" ?

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Down_xx ist ein CommandButton, der bei Betätigung (Click) eine Funktion function down(xx) aufruft und die Nummer xx an diese übergibt. Dadurch werden Datensätze umsortiert.

Private Sub down11_Click()
    down (11)
End Sub
Private Sub down12_Click()
    down (12)
End Sub
...

Function down(p)
...
End Function

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beispiel.zip

Hallo Wyndorps,

ich hab dir mal ein Beispiel hochgeladen.

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

excelProg3.jpg excelprog4.jpg

Hallo Nepomuk!

Auf jeden Fall schon einmal ganz herzlichen Dank und 10Üs, weil ich allein aus diesem Quellcode wieder jede Menge gelernt habe (z. B. "Like" kannt ich noch nicht). Das mit den Klassenmodulen habe ich sogar auch schon für die ganzen Textboxen in der Maske verwirklicht (Zusammengeklaubt aus dem Forum, aber nicht wirklich verstanden).

Aber auch in Deinem Beispiel reicht es nicht aus, die CommandButtons zu kopieren. Der Name muss dann zur Erkennung noch umgeändert werden, aber das ist vielleicht noch machbar.

In VB6 (nach meiner Erinnerung) wurde man beim Kopieren und Einfügen eines Steuerelementes gefragt, ob man ein Array des Steuerelementes anlegen wolle. Dann war es möglich, dieses Array in der Größe dynamisch zu steuern. Im konkreten Beispiel war daher mein Gedanke, eine Konstante "MaxVar" einzuführen und automatisch entsprechend dieser alle Textboxen, Up- and Donwn-Buttons, also die ganze Maske dynamisch in der Größe zu verwalten.

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP