Suchergebnisse

@petaod Zitat von petaod: „Na dann kann's ja nicht viel sein. Muss ich nochmals darüber nachdenken, wie man die zwei Fliegen mit einer Klappe schlägt.“ Ich hoffe doch das es nur eine Kleinigkeit ist. die -1 in eine 0 zu ändern war ja nur eine Kleinigkeit.

Das Problem ist erst nach der Änderung von Visual Basic-Quellcode (1 Zeile) auf Visual Basic-Quellcode (1 Zeile) aufgetreten.

@petaod nun gibt es ein neues Problem beim anlegen eiens neuen Artikels. wenn ich jetzt einen neuen Artikel anlege sind die Größen wieder nicht sortiert und das Format wird nicht mehr übernommen. (Siehe Bild) bild25.png Hoffe du kannst mir da weiterhelfen. Gruß Patrick

@petaod das ging ja superschnell. was eine Zahl so ausmachen kann... Das mit dem Debuggen muss ich wirklich noch lernen. wenn du Interesse daran hast kann ich gerne noch die fertige Datei hochladen ( mit verknüpfungen in Arbeitskleidung Übersicht anlegen usw.) Gruß Patrick

@petaod Danke sehr, das ist wirklich nett von dir... Verknüpfungen anlegen: ich habe erst versucht den Code in den von dir geschriebenen zu integrieren, das hat nicht besonders gut funktioniert, also habe ich Macros angefertigt und lasse diese dann in deinem Code aufrufen wenn ein neuer Artikel angelegt wird. Das ist aber in der Hochgeladenen Datei noch nicht eingebaut. Bekomme ich sicher auch noch anders gelöst. Aber dazu später

Zitat von petaod: „Ich hab's mal umgebaut (siehe Anhang). Ist ein Schnellschuss und hoffentlich ohne Bugs. Getestet habe ich es nicht ausgiebig. Wenn du einen Fehler findest, gib Bescheid.“ Hallo @petaod eine Kleinigkeit ist mir aufgefallen, wenn bei der letzten aufgelisteten Größe zum ersten mal ein Artikel hinzugefügt wird, wird die Größe neu angelegt. Z.B. Bundhose grau Größe 60 ein hinzufügen wird Größe 60 unter der vorhandenen ein zweites mal hinzugefügt. Das mit dem Format kopieren und Ver…

Hallo @petaod und alle anderen hatte mal wieder etwas Zeit mich der Sache anzunehmen. Mit dem Code kopiere ich nun das Format für die Größenvariante US&Konf. Das funktioniert auch super. Nun muss das ganze natürlich noch in das bestehende Objekt eingebaut werden. VB.NET-Quellcode (12 Zeilen) Mit diesem Code Lege ich in Artikelübersicht eine Verknüpfung an so das bei Änderungen in Ein-Auslagerung die Werte auch entsprechend in Artikelübersicht geändert werden. VB.NET-Quellcode (14 Zeilen) Das fun…

Zitat von petaod: „Warum willst du da etwas ändern?“ Hallo @petaod ich möchte dort nichts ändern sonder wollte mir abgucken wie du vorgegangen bist. ich hatte vor, mit der gleichen Methode, die Verknüpfungen und das Format in der Übersicht anzulegen. Zitat von petaod: „Ich kann will nicht anders, sorry.“ Das finde ich völlig in Ordnung, nur ist es für einen Anfänger wie ich es einer bin schwerer nachzuvollziehen.

@petaod Vielen Dank für deine Geduld, Heute hatte ich mal etwas Zeit mich der Sache anzunehmen. Bei dieser Sache sehe ich nicht durch. VB.NET-Quellcode (15 Zeilen) Ich nehme an das, CreateArticle vorher irgendwo als Funktion angegeben wurde... Articles ist denke ich das Arbeitsblatt... AddArticle wird auch irgendwo als Funktion angegeben sein... tbxName.Text ist der Text der in der Textbox eingegeben wurde... SizeList_US_D ist die Constante die unter Option Explizit angelegt wurde... Soweit ist …

Hallo @petaod ich habe mir das ganze mal angesehen und versucht deinen VBA Code nachzuvollziehen. Irgendwie steige ich dabei nicht durch. ich verstehe zwar was Resize, CopyRange usw. macht, aber bei dem Umfang der Propertys bin ich völlig raus. Ich kann auch nicht nachvollziehen wo die Bezüge zu den Tabellenblättern zu finden sind, komme nicht dabei mit, woher Excel jetzt weiß welcher Wert auf welches Tabellenblatt geschrieben werden soll. Bei CreateArticle = Articles.AddArticle(tbxName.Text, Si…

Zitat von petaod: „Das ist ja optimal. Dann kannst du ja mal versuchen, beim Anlegen der Artikel die Grundbefüllung durchzuführen, so dass alle Größen mit Anzahl 0 in der Einlagerungsliste angelegt werden.“ Ich glaube ich verstehe den Hintergrund. Wenn ich angebe das beim anlegen mit 0 gefüllt wird werden die Artikel komplett angelegt?

Du hast Recht. Das ganze ist von einer Firma. Aber dient in erster Linie dazu mir und meinen Kollegen die Arbeit etwas zu erleichtern. Unsere IT-Abteilung hat kein Interesse daran uns dabei zu unterstützen. Sicherlich gibt es auch fertige Lösungen. Nur wird leider jede Anfrage nach neuer Software kategorisch abgelehnt. Wenn ich die IT beauftragen würde mir solch eine Liste anzufertigen würde das den finanziellen Rahmen der KST sprengen. Leider wird in der Firma, in der ich tätig bin nur mit Geld…

Vielen Dank für deine Mühe. Den Anhang sehe ich mir später zu Hause an. Zitat von petaod: „Dein Verfahren bedeutet aber, dass du genau 4 statische Größengruppen hast.“ Das ist auch richtig so. Gesonderte Größen z.B. Konfektionsgröße 90 werden in der Liste nicht erfasst, da diese so bestellt werden wie sie gebraucht werden, wenn sie geliefert wurden, werden sie direkt an den Mitarbeiter weitergegeben. Bei den gesonderten 4 Gruppen handelt es sich ja nur um die Größen. Also kann ich Gummistiefel h…

Zitat von petaod: „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.“ @petaod Das dachte ich mir schon irgendwie. Nun habe ich es geschafft neue Artikel über eine UF einzufügen. Das klappt wunderbar (auch wenn der Code sicher wieder viel einfacher hätte gestaltet werden können). Leider gehen dabei einige deiner Funktionen verloren, weil meine UF die Artikel gleich mit den Größen sortiert in …

Zitat von petaod: „ Sie sucht einfach nach der Zelle für die momentan eingestellte Größe und gibt sie zurück. Aber wenn diese nicht existiert, wird eine neue angelegt.“ Wenn ich das richtig verstehe, ist es also möglich, in der CB2 eine Größe einzutippen (die nicht vorhanden ist) und diese wird dann angelegt? Vorausgesetzt es ist erlaubt in der CB2 zzu schreiben. Gruß Patrick

Hallo petaod, das sieht ja super aus. Vielen Dank für die Mühe. Dynamisch ist deine Lösung 100% auch habe ich mich sehr über die von dir angelegten letzten 3 Kleidungsstücke amüsiert. Ich frage mich allerdings ob es auch realisierbar ist das ganze etwas Übersichtlicher zu gestalten. man muss ja schon ordentlich scrollen um an das Ende zu gelangen. Natürlich könnte man die Zellen verknüpfen aber das bedeutet gleichzeitig wieder eine Menge Handarbeit nach jedem neu angelegten Artikel. Ich finde su…

Userform kommt auch in Frage. Komplettes Umbauen ist auch kein Problem. Habe die Angelegenheit mit dem "neuen Artikel anlegen" auch mit einer Userform gelöst. Funktioniert auch super. Klick auf Button "neuen Artikel anlegen" --> Userform öffnet sich --> name in Textfeld eintragen --> Größen per Optionbutton wählen ( US, Konfektion, Schuhe) ---> klick auf jetzt eintragen --> neuer Artikel wird in A:A angelegt und in CB1 gelistet. Gruß Patrick

Nun funktioniert alles. Bleibt die Frage der Dynamik, sehe ich es richtig, dass ich nur noch einen dynamischen Namen vergeben muss und dann die Berechnungen für neu hinzu gefügte Artikel, automatisch erfolgen kann? Ohne Änderungen an dem VB-Code vornehmen zu müssen? Ungefähr kann ich mir vorstellen wie das funktioniert. Namensbereich erweitert sich automatisch. Bedeutet das sich auch die CB1 automatisch mit den neuen Daten Füllt. Soweit so gut, funktioniert auch. „Klick auf Button“; neuer Artike…

Zitat von Patrick: „Aber jetzt möchte ich erstmal noch einbauen das die Zellen nach Eingabe bzw. Bestätigung der Eingabe geleert werden.“So wie oben schon beschrieben. Visual Basic-Quellcode (1 Zeile) verhindert, dass der Eintrag bei mehrzelligen Änderungen die Entnahme-Prozedur ausführt. Diese Abfrage scheint in deinem jetzigen Code ganz zu fehlen. Es ist aber wichtig, das Worksheet_Change Event einzuschränken auf die absolut notwendigen Bereiche, sonst läuft das bei jeder Zelländerung durch. U…

So nun für alle, die es gebrauchen können der fertige VBA-Code. Nächstes Ziel ist es wie von petaod richtig angemerkt, die ganze Sache Dynamisch zu gestalten. Visual Basic-Quellcode (56 Zeilen)

Mit DynamicNameranges könnte man die CB1 füllen das leuchtet ein. Aber Mal angenommen, ich habe eine UserForm "Kleidungsstücke anlegen" mit einem Textfeld "Art der Kleidung" und einer CB "Konfektionsgröße oder Us-Größe wählen. Dann müsste ja automatisch eine neuer Namensbereich hinzugefügt werden? Kommt man da nicht langsam in den Bereich Datenbanken? Aber jetzt möchte ich erstmal noch einbauen das die Zellen nach Eingabe bzw. Bestätigung der Eingabe geleert werden.

Da hast du wohl Recht. Ich habe die Datei von jemand anderem übernommen, mir ist auch vollkommen klar das grau, blau usw. nicht groß geschrieben wird. In erster Linie geht es hier darum das alles funktioniert. Mir ist auch bewusst, das es sehr aufwändig sein wird alles zu berichtigen. Aber wie gesagt an erster Stelle steht die Funktion. Das lustige ist das diese Tabelle schon gefühlte 100 Jahre benutzt wird und noch keinem aufgefallen ist, das die Rechtschreibung "etwas" missachtet wurde. Was ab…

Ahhh jetzt dämmert mir langsam wie der Hase läuft... Aus Private Property NumericCells As Range wird Dim NumericCells As Range. Das Privat Property ist also eine extra Funktion und das Dim baut die Funktion in eine Funktion ein? Super das es jetzt alles funktioniert. Ich sollte mir ein Lehrbuch kaufen um das alles wirklich zu verstehen. Wenn jetzt das mit dem leeren der Zellen noch klappt wäre sehr gut. Habe da schon einiges ausprobiert, aber alles mit dem gleichen Ergebnis sobald die Zellen gel…

Zitat von cry.baby: „Kann ich mir nicht erklären. Lad mal bitte die Datei hoch.“ So dein Code funktioniert nun... es gab ein Problem mit der Schreibweise von T-Shirt. Jetzt ist aber wieder das Problem das die Felder E4 und F4 nicht geleert werden, nach dem die Eingabe mit Enter bestätigt wurde. Range("E4:F4").ClearContents bringt ja sofort die MsgBox zum Vorschein Gruß Patrick

Danke für die Mühe cry.baby. wenn ich deinen Code verwende bekomme ich die MsgBox auch dann angezeigt wenn ich eine ziffer in E4, F4 eintrage. Danach kann ich keine Zellen mehr auswählen und muss die Datei schließen und wieder öffnen. Zitat von cry.baby: „Ich würde auf jeden Fall die Funktion reinpacken, sonst wird Dein Code zu lang. Die IsNumeric-Abfrage von Petaod müsstest dann auch noch dort reinpacken oder Du machst das über On Error GoTo. Weniger elegant aber es tut's. Visual Basic-Quellcod…

Zitat von petaod: „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.“ Oh man was ich begeistert von Eurem Wissen bin An welcher Stelle muss das eingefügt werden? st es eine neue Sub oder muss das in die vorhandenen Codeschnipsel mit rein? Mein code sieht zur Zeit so a…

Zitat von cry.baby: „ Wüsste nicht wozu das gut sein soll? Wie kommst Du darauf? “ Das bewirkt das in der Combobox2, nach Auswahl in der Combobox1, immer der erste Eintrag angezeigt wird. Es macht in den Augen vieler keinen Sinn, aber viele wissen auch nicht wie unbegabt viele andere sind. Aus diesem Grund ist es gewünscht, das in der Combobox2 noch einmal die Art der Bekleidung erscheint die in der Combobox1 ausgewählt wurde. Ohne ComboBox2.ListIndex = 0 wird der erste Größeneintrag (ListIndex=…

Zitat von petaod: „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.“ Das wäre ja noch eine gute Idee. Lässt sich so etwas denn umsetzen? Muss man denn dieses ComboBox2.ListIndex = 0 wirklich unter jede Case…

Zitat von petaod: „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)“ Du hast es auf den Punkt getroffen. Dafür das ich mit VBA sonst nichts am Hut habe, funktioniert die Sache jetzt sup…

Hallo cray.baby Vielen Dank für den Code. Funktioniert tadellos. Ich habe ihn noch um ein paar Zeilen ergänzt. Und zwar wie folgt. Unter If not intersect (Target, Ränge("E4:F4")) Is Nothing Then EDIT: In meinem Code steht Range wer weiß was mit Ränge passiert #Selbstzerstörung??? On Error GoTo Fehler Application.EnableEvents = False Und dann unter FindeGröße.Offset (0, 1) = FindeGröße.Offset (0, 1) - Range("E4") + Range ("F4") Range (E4:F4").ClearContents Dann unter Endlich Select EDIT: Es heißt…