Office: (Office 2016) Userform mit Filtern

Hallo zusammen,

ich arbeite gerade an einem Bestellformular. Die Ausgangsdatei ist angehangen.

Ich hänge gerade ein bisschen an einer Stelle, wo ich Eure Hilfe benötigen würde :-)

Ich möchte in der Userform später auswählen
Artikelgruppe - danach gefiltert Hersteller - danach gefiltert die Bezeichnung des Artikels - und danach die verschiedene Eigenschaften aus den Artikeldaten.

Bei den Eigenschaften hängt es momentan, da ich nicht weiß, wie ich eine Tabelle als dynamische Quelle hinterlegen kann. (oder, wenn das Feld frei ist, dieses Übersprungen werden kann). Es gibt also Artikel, die genauere Beschreibungen benötigen, und Andere, die es nur in einer Ausführung gibt.

Ich hoffe es wird ersichtlich, wenn man die Datei öffnet.

Danke für die Hilfe vorab :-)

:)

 

Hallo,

es gibt 100 Möglichkeiten, sowas aufzubauen und sicherlich auch viele Beispiele beim Suchdienst deiner Wahl.
Wenn ich es machen müsste, würde ich wegen der besseren Usability eher ListBoxen benutzen als ComboBoxen, man sieht mehr auf einmal, kann drin rumscrollen.
Die Datenanalyse ist quasi ein Klacks, auch da gibt es viele Möglichkeiten.
Du könntest bspw, alles in den Speicher schieben (Array) und mit Schleifen abackern = performant.
Oder du setzt direkt in der Tabelle entsprechend Filter und liest die Ergebnisse mit bspw. Tabelle.SpecialCells(xlCellTypeVisible) wieder aus = langsamer.
Kommt auf die Datenmenge = Anzahl Zeilen an.
Über welche Größenordnungen reden wir? 1.000e oder 100.000e Datensätze?

edit: warum überhaupt eine Userform? Was macht die besser als wenn du manuell filterst, du musst nicht mehr oder weniger Aktionen ausführen, ein kleines Makro könnte die Daten der selektierte Zeile in die Stückliste übernehmen. Manchmal ist weniger mehr. Du willst weder rechnen, noch Daten verändern, falls ich richtig verstanden habe.

 

Du hast Recht, es gibt unzählige Wege das ganze Thema aufzubauen. Da kann ich nochmal recherchieren.

Zur Frage Userform: Mir fällt kein anderer Weg ein, wobei ich gern auf VBA verzwichten würde, da ich das nicht wirklich kann. ^^

Ich kann dich ja kurz an das Thema heranführen, falls es dich interessiert.

Es werden letztendlich um die 1000 Artikel. Manche sind selbsterklärend. zBsp. eine 6x12 Maschinenschraube - da braucht es weder eine Ausführung, noch Merkmale. Es wird jedoch darunter auch Artikel geben, die benötigen alle Merkmale. Und dann kommt der letzte Fall, das sind ca 10 Artikel, die eine einfache Subtraktion für eine Maßberechnung benötigen.

In Summe sind es keine wilden Artikel, aber ich kann mit Formeln diese unterschiedlichen "Umfänge" nicht hinbekommen - zumindest fällt mir nichts ein.

 

bitte die Berechnung in einer Beispielmappe exakt erläutern.

P.S. ich sag mal wenig schmeichelhaft: falls ihr tatsächlich Baumarktware verbaut, was ich nicht hoffe, kommen vllt. nur 1000 raus. In meinem Gewerbe macht es sehrwohl einen großen Unterschied, ob wir DN 931, 933, ISO 4017, 8.8, 1.4401, verzinkt, Geomet, uvm. verwenden. Allein dadurch hast du 10-20 varianten einer Schraubengeometrie, die du vllt nicht alle verwendest. Aber die Genauigkeit in der Artikelwahl sollte angemessen sein.

 

Ich meinte damit eher, dass ich nur eine bestimmte Schraube (Festigkeit, Legierung, usw. ist bereits definiert) einer bestimmten Größe bestellen würde - das kam falsch rüber. *grins

Ich habe auch in der Userform mal dran geschrieben, wie ich mir das gedacht habe.

Die Label sollen in meiner Idee den Text der Zelle enthalten (Logik wie SVerweis) und die Listbox / Combobox dann den Inhalt der Zelle mit dem Tabellenbereich verknüpfen.
--> Das ist der wichtigste Part, wo ich keine Ahnung habe.


Sind alle Werte eingetragen, soll der ganze Inhalt auf das Tabellenblatt "Ausgabe übertragen werden. Dazu habe ich aber bereits einen Programmierungs-Dummy.

 

Ich habe schon mal ein bisschen weiter daran gearbeitet - ich hoffe jetzt ist es nicht mehr so unübersichtlich

 

lies dich hier mal ein: Visual Basic für Applikationen - Das VBA-Tutorial

Gibt es einen Grund, warum du
Code:

statt
DieseArbeitsmappe:
Code:

benutzt?

grausig:
Code:

besser:
Code:

.select und .activate braucht man nicht, nur in seltenen Fällen wie .freezepanes
Code:

warum setzt du das end with davor?
userform1. kannst du weglassen, nutze Intellisense.

 

PHP:

         Private Sub auto_Open()
Call start
End Sub
Private Sub Workbook_Open()
start
End Sub


 

nutze die Ereignisprozeduren der verschiedenen Objekte
wenn du etwas im ersten Dropdown auswählt, kannst du bspw. in label schrieben.
Du müsstest mir exakt sagen, was du machen möchtest.

 

Ich habe es dir mal versucht in einem Bild darzustellen. Wichtig ist nur, das sieht man jetzt nicht so deutlich, dass "RAL" eine Tabelle ist. So wie ich auch "Einheit" als Tabellenname vergeben habe und der Userform direkt einem Auswahlfeld zugeordnet habe.

Ob es dann ein Label ist, oder ich ein Textfeld gesperrt auf die Maske setze, ist eigentlich unwichtig.

Danke für die Unterstützung! *Smilie

 

Ich musste selbst googeln und probieren. Das würde ich von dir auch erwarten.
RowSource erwartet ein Range. Du kannst die definierten Namen direkt als Range benutzen.
Code:

Benutze die korrekten Deklarationen. Was willst du mit ByRef? Du willst es doch nicht bearbeiten in der Funktion!
Nutze doch mal die Hilfe und die Beispiele die MS dort gibt!
Code:

Code:

 

PHP:

         Private Sub UserForm_Initialize()
Call FillListBox1
ComboBox1.RowSource = "Einheit"
ComboBox2.RowSource = "AluFarbe"
End Sub


 

ich habe versucht, das Makro nachzuvollziehen (was du mir aber erklären solltest).
demnach scheint es so zu sein, dass initial
1 gefüllt wird
2 gefüllt wird
dann wählst du aus 2
in 3 wird gefüllt, was nach der wahl aus 2 übrig bleibt (filter setzen!)
dann in 4 wählen
in 5 wird angezeigt, was nach wahl 4 übrig bleibt
6 das gleiche
? weiß ich nich
7 die gewünschte anzhal eingeben
einheit ergibt sich automatisch durch die materialwahl
8 in die bestellung übernehmen
soweit richtig?
wenn ja, nutze den autofilter im arbeitsblatt und lies die übrig gebliebenen zeilen aus, schrieb ich am anfang schon mal
Oder du setzt direkt in der Tabelle entsprechend Filter und liest die Ergebnisse mit bspw. Tabelle.SpecialCells(xlCellTypeVisible) wieder aus

wenn du code nicht verstehst, gehe ihn mit F8 im einzelschritt durch und analysiere ihn, indem du das lokalfenster mit den variablen beobachtest, der rest über F1

 

Guten Morgen!

Danke für die Hilfe, aber ich werde es nun doch ohne eine Userform bauen. Ich komme mit den Hinweisen nicht weiter, auch wenn es nett gemeint ist.

Der Ablauf wäre aber einiger Maßen richtig gewesen.