---

Hab da ein kleines Problem. Es geht um eine Konstruktion die oft eingesetzt wird in verschiedenen Größen. Wie kann ich diesen Prozess automatisieren. Die konstruktion gibt es zudem noch in verschiedenen Ausführungen. Hab mir das so vorgestellt dass ich das in einer Datenbank ablege und dann über eine Maske (Makro) auswählen kann. Wie kann ich die verschiedenen Größen die wahrscheinlich mit einer Konstruktionstabelle realisiert werden mit einem Makro verknüpfen?
Ziel ist die Eingabe der Ausführung und der Größe um das Gewünschte resultat zu erhalten.
Bin für jede Antwort dankbar...
Gruß Miguel

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

---

Wieso brauchst du denn Konstruktionstabellen UND Makros?
Wenn alles in deinen Tabellen steht, kannst du dir die Makros sparen!

Fette Grüße
    Stoffel

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

---

Es sollte halt idiotensicher sein. Am liebsten wär es mir man würde mit einer Maske den Typ auswählen und würde dann automatisch auf eine Exeltabelle kommen in der man sich die richtigen Maße raussucht.
Noch besser wäre man könnte auch die Masse in einer Maske eingeben und würde dann das Teil erhalten.
Ist aber wohl Wunschdenken und lässt sich nicht realisieren...
Wenn doch wäre genial...
Gruß Miguel

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

---

listview_auswahl.jpg auswahl_mit_auflistung_UND_eingabefeldern.jpg

Hallo!

Ich habe ein paar "UserForm"'s mit "Listview"'s in VBA programmiert, um ein ähnliches Problem zu lösen:

In "listview_auswahl.jpg" kann man durch Doppelklick oder durch Markieren & "OK" EINEN Eintrag auswählen.

In "auswahl_mit_auflistung_UND_eingabefeldern.jpg" biete ich dem Anwender einige Möglichkeiten an, die er auswählen kann. Man kann aber auch selber Werte in die Eingabefelder eintragen.

Die Listviews werden autom. mit Hilfe einer Matrix erstellt. Das müßte man aber auch für Konstruktionstabellen lösen können.

Hier ein Beispiel, wie ich die Listviews fülle:

For mm = 0 To UBound(Str_File, 2)
    UserForm_Auswahl_Ergebnis_File.ListView1.ListItems.Add , , Str_File(0, mm)
    UserForm_Auswahl_Ergebnis_File.ListView1.ListItems.Item(mm + 1).ListSubItems.Add , , Str_File(3, mm)
    UserForm_Auswahl_Ergebnis_File.ListView1.ListItems.Item(mm + 1).ListSubItems.Add , , Str_File(5, mm)
    UserForm_Auswahl_Ergebnis_File.ListView1.ListItems.Item(mm + 1).ListSubItems.Add , , Str_File(11, mm)
Next mm

wobei "Str_File" eine Matrix mit den entsprechenden Werten ist.
Durch ein paar zusätzliche Sub's aus dem Internet kann man die Listviews auch fein sortieren.

Da die Programme alle etwas länger sind, schreib mir eine E-Mail, wenn du genauere Infos benötigst:
mh26@stud.mw.tum.de

PS: Um die Listviews benutzen zu können sind "ActiveX Data Objects" und "Microsoft Windows Common Controlls"-Verweise unter "Tools->Refeneces" in VBA nötig. Die muß man u.U. erst installieren.

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