Suchergebnisse

Zitat von cry.baby: „Gerne aber wozu hast Du den On Error Goto Fehler eingebaut?“Die hat er eingebaut, weil in dieser Zeile FindeGröße.Offset (0, 1) = FindeGröße.Offset (0, 1) - Range("E4") + Range ("F4") 4 Fehlermöglichkeiten eingebaut sind, falls die Werte nicht numerisch sind. Sauber codiert wäre der ErrorHandler nicht nötig: Visual Basic-Quellcode (1 Zeile)

Zitat von cry.baby: „Val birgt aber auch die Gefahr, dass man nicht informiert wird, wenn versehentlich ein Buchstabe mit eingegeben wurde. Außerdem werden lt. Microsoft O & H erkannt:“Was imho im diesem Fall fachlich egal wäre. Falls je nicht, könnte man man das ja beim Füllen der Zellen schon durch entsprechende Schutzabfragen verhindern.

Zitat von Patrick: „Lässt sich so etwas denn umsetzen?“Visual Basic-Quellcode (14 Zeilen)Alternativ kannst du auch alle zu prüfenden Zellen mit einer anderen Schriftfarbe versehen, die um eine Farbnuance von der Normalfarbe abweicht und diese abprüfen. Möglichkeiten gibt es viele.

Ich hätte einfach die Abfrage im Change-Event auf Einzelzellen erweitert, um die Endlosschleife weg zu kriegen. Visual Basic-Quellcode (1 Zeile) Aber mal generell: Dein Design ist sehr statisch. Wenn morgen jemand auf die Idee kommt, eine blaue Latzhose ins Programm zu nehmen, greift dein Code nicht mehr. Das ist ein Faux-Pas. Aber ich fürchte, dass deine derzeitigen Kenntnisse nicht reichen, das Projekt so dynamisch zu gestalten, dass bei hinzufügen neuer Artikel sich die Combobox-Inhalte autom…

Oder mit Dynamic Named Ranges

Zitat von cry.baby: „wie das hier gemeint war“Das war ein Typo. Ich sollte mir angewöhnen, den Code nicht einfach aus dem Kopf ins Forum zu schreiben, sondern vorher zu testen. Eigentlich war es so gemeint: Visual Basic-Quellcode (3 Zeilen)Worksheets sind Klassenobjekte, weshalb man sie um Properties erweitern kann. In dem Fall ist es aber wirklich gleichbedeutend mit Visual Basic-Quellcode (2 Zeilen)Ich habe mir halt angewöhnt, innerhalb Worksheets mit Properties zu arbeiten, weil man hier halt…

Das ist schon ein kompletter Umbau der Logik. Aber durchaus machbar. Ich habe vermutlich diese Woche etwas Luft und schau's mir mal an. Ich würde aber eher eine Variante ohne zusätzliche Userform bevorzugen. Das macht es nur komplizierter.

Ich habe jetzt mal einen Schnellschuss angehängt. Ist noch nicht komplett, aber kannst ja was draus machen.

Hab noch ein paar Bugs gefixt.

Schon mal angeschaut?

Zitat von Patrick: „Natürlich könnte man die Zellen verknüpfen aber das bedeutet gleichzeitig wieder eine Menge Handarbeit nach jedem neu angelegten Artikel.“Das ist in der Tat eine Herausforderung in Excel, weil eine Tabellenkalkulation dafür originär nicht gemacht ist. Du musst dir halt einen Algorithmus der Aufteilung ausdenken. Die Zellverknüpfungen lassen sich dann schon automatisieren. Zitat von Patrick: „Ich habe eine Idee wie ich das lösen kann.“Ich habe mir auch überlegt, beim Einfügen …

Zitat von Patrick: „in der CB2 eine Größe einzutippen (die nicht vorhanden ist)“Die ComboBox ist so konfiguriert, dass du nichts eingeben kannst, da kannst du nur auswählen. Du kannst aber in der Artikeltabelle eine neue Größe eintragen, dann kannst du sie sofort auswählen. Wenn du dann Mengen dafür einträgst, wird sie angelegt.

Zitat: „auch wenn der Code sicher wieder viel einfacher hätte gestaltet werden können“ So ist es (siehe Anhang) Zitat: „Der Ausgedachte Algorithmus lautet wie folgt...“ Dein Verfahren bedeutet aber, dass du genau 4 statische Größengruppen hast.

Zitat von Patrick: „Besteht die Möglichkeit das in diesem Moment gleich alle Größen aufgelistet werden? Das macht es doch sicher später auch leichter, die Verlinkung in "Arbeitskleidung Übersicht" zu realisieren und die Größen wären dann auch in der "richtigen" Reihenfolge?“Es ist sogar notwendig, um die Übersicht sauber realisieren zu können. Ich bin mir nur nicht sicher, ob ich in naher Zukunft Zeit und Lust finde, mich daran zu verkünsteln. Du machst das Projekt doch sicher für eine Firma. Gi…

Zitat von Patrick: „Leider wird in der Firma, in der ich tätig bin nur mit Geld gerechnet.“Das ist nun mal die Grundlage der Betriebswirtschaft. Auch Zeitersparnis lässt sich in Geld ausdrücken. Wenn es sich rechnet, lässt sich auch ein Budget begründen. Dann musst du deinen Abteilungsleiter überzeugen und der muss es in die Budgetplanung aufnehmen. Dass eure IT-Abteilung kein Interesse daran hat, das nebenbei und kostenlos zu machen ist auch logisch. Auch die müssen rechnen. Gute Programmierer …

Ja. So ähnlich. Du musst einfach mal debuggen, was jeweils passiert. Das Problem wird sein, dass momentan beim Einlagern grundsätzlich der Wert aus den Comboboxen verwendet werden (ArticleSelection.Text und SizeSelection.Text). Diese musst du anstatt fix zu nehmen, als Parameter übergeben. So in etwa: Erzeuge eine Property ArticleRange mit dem Parameter ArticleName und packe dort die modifizierte Funktionalität von CurrentArticleRange rein. Die Property CurrentArticleRange ruft dann nur noch die…

Zitat von Patrick: „das alle Werte und Verknüpfungen in allen Tabellenblättern geschrieben werden wenn ein neuer Artikel angelegt wird. Das sich werte verändern sobald etwas ein oder ausgelagert werden soll. Könntest du mir sagen aus welchem Grund das nicht so gemacht werden sollte?“ Zitat von Patrick: „wo die Bezüge zu den Tabellenblättern zu finden sind“Da wo nichts angegeben ist, wird immer Bezug auf das Objekt genommen, in dem der Code steht. Nenne mal einen konkreten Codeausschnitt, den du …

Vielleicht finde ich morgen mal kurz Zeit, reinzuschauen.

Zitat von Patrick: „Woher weiß Excel an welche Stelle (letzte freie Zeile in "Artikel") die Werte geschrieben werden sollen?“Das passiert doch automatisch in Articles.AddArticle. Warum willst du da etwas ändern? Zitat von Patrick: „Ich habe keinen Plan wo ich ansetzten soll, um die neuen Artikel in Ein-Auslagerung gleich beim erstellen aufzulisten.“In AddArticle hast du Artikelname und Größenliste. Hier einfach für jede Größe die Menge 0 setzen und alles ist gut. Dann werden die Einträge schon a…

Zitat von Patrick: „wird Größe 60 unter der vorhandenen ein zweites mal hinzugefügt“Sollte eigentlich nicht sein. Da habe ich wohl bei meinem Schnellschuss nicht ausreichend getestet. Kannst es ja nochmals hochladen, dann schau ich gelegentlich mal rein.

Ist ein Bug in Property Get ArticleRange. Die letzte Zeile muss lauten: Set ArticleRange = Range(c, e.Offset(0, 2))

Zitat von Patrick: „nun gibt es ein neues Problem beim anlegen eiens neuen Artikels.“Gibt es das Problem erst seit der heutigen Änderung oder war das vorher auch schon so?

Na dann kann's ja nicht viel sein. Muss ich nochmals darüber nachdenken, wie man die zwei Fliegen mit einer Klappe schlägt.