Office: (Office 2007) (VBA) UserForm codieren, brauche dringend Hilfe!

Hallo Liebe User!!!
Kann mir bitte jemand mit meiner Suchfunktion weiterhelfen,
ich mochte eine Art Lager Einrichten und dabei Stückzahl per Button und Textfeld in der Tabelle immer Aktuell halten

Die UserForm habe ich erstellt, Bloß das Programmieren fehlt mir noch



Die Funktion: (schaut euch bitte zuerst die Bilder an)

Nachdem ich in der UserForm die Artikelnummer eingegeben und mit ENTER bestätigt habe, müsste unter Artikel "der richtige Artikel erscheinen" damit ich auch weiß, dass es der richtige ist, danach die Menge (z.B. 20) eingeben und "Auslagern" oder "Einlagern" Button drücken, dabei wird die Zahl die in der Tabelle unter dem richtigen Artikel steht um z.B. 20 „Subtrahiert“ oder „Addiert“ es wäre echt super wenn mir dabei jemand helfen könnte.
Hoffe, dass ich mein Vorhaben mit genügend Info beschrieben habe, bitte fragt, wenn irgendetwas unverständlich ist

P.S. Ist es möglich den SUCHEN Button mit "ENTER" zu betätigen?

Hier die Excel Datei:

Den Anhang 2.xlsm betrachten

Ich danke im Voraus!!!!

 

Habe dir eine Combobox in deine Form eingefügt, in welcher die Artikelnummern angezeigt werden. Dort kannst du auch
per Hand eine Artikelnummer eingeben. Wird eine ungültige Nummer eingefügt gibt es eine Abfrage ob du einen neuen Artikel anlegen willst.

In den Textboxen kannst du Änderungen vornehmen. Mit dem zusätzlichen Button Speichern werden die Änderungen gespeichert..

Den Anhang 2.xlsm betrachten

 

Hallo sronny,
ist eine echt super Idee aber im Code stimmt wahrscheinlich etwas nicht,
es sagt mit schon mit der ersten Zahl die ich versuche einzugeben „Diese Artikelnummer ist nicht vorhanden“ Sorry!!!
MfG

 

Hi,

lösche den gesamten Code für das Change-Ereignis der ComboBox und verwende stattdessen das AfterUpdate-Ereignis:

Code:

Private Sub cmbArtikelnummer_[COLOR=#0000ff]AfterUpdate[/COLOR]()
If cmbArtikelnummer.Value = "" Then Exit Sub
    
If Not cmbArtikelnummer.MatchFound Then

    If MsgBox("Diese Artikelnummer ist nicht vorhanden." & vbCrLf & _
            "Möchten Sie diese als neuen Artikel hinzufügen?", vbYesNo) = vbYes Then
           

        txtArtikel.Value = ""
        txtBestand.Value = ""
        txtLagerplatz.Value = ""
        txtMenge.Value = ""
    End If
    
Else
    Set rngArtikelAdresse = Suche(cmbArtikelnummer.Value)
    Anzeige
End If
End Sub

Damit wird die Abfrage erst dann gestartet, wenn du mit der Eingabe in der ComboBox fertig bist.


Außerdem solltest du an allen Stellen mit der Zeile cmbArtikelnummer.RowSource = wsArtikel.Range("A4:A" & iLetzteZeile).Address den rot markierten Teil durch diesen ersetzen "Artikel!" & Range("A4:A" & iLetzteZeile).Address, denn andernfalls bleibt die ComboBox leer.

Bis später,
Karin

 

Ja, habe auch gerade das Problem entdeckt.

Bei ControlSource und RowSource verlangt er immer den Bezug in Form
von Tabelle!xx

Beim Test aus dem VBA-Editor heraus funktionierte es nämlich.
Außerdem habe ich den Hinweis auf den neuen Artikel auch herausgenommen und leere einfach die Felder und beim drücken auf Speichern wird dann ein neuer Artikel angelegt.

Desweiteren ist jetzt eine Prüfung auf ungültige Eingaben drin - sonst kann es passieren, dass du "Nougatstange" und Bestand addierst...



Hier die aktuelle Fassung:

Den Anhang 2.xlsm betrachten

 

Das Füllen der ComboBox kannst du wesentlich einfacher realisieren, da man direkt auf die formatierte Tabelle zugreifen kann:

Code:

Private Sub UserForm_Activate()
    Dim arrWerte
    arrWerte = wsArtikel.ListObjects(1).DataBodyRange.Columns(1)
    cmbArtikelnummer.List = arrWerte
End Sub

Bis später,
Karin

 

Gut, dass wusste ich so nicht - aber, der Nachteil ist dann aber auch, dass dann bspw. die Zeile Artikelnummer sowie die leere Zeile (A3) mit drin ist... So wählst du nur die Zeilen, welche du auch benötigst aus. Oder sehe ich das falsch?

 

Ich danke euch allen für die Hilfe!!!
Ihr habt mir sehr geholfen!
Grüße

 

Also bei mir ist die Überschrifftenzeile nicht mit enthalten - kann auch gar nicht, da sich mit DataBodyRange ausschließlich auf die formatierte Tabelle ohne Überschriftenzeile bezogen wird.

Was die Leerzelle betrifft:

1. fragt es sich, weshalb man eine Leerzeile zu Beginn einer formatierten Tabelle benötigt...

2. kann man auch dem Abhilfe schaffen, indem man die Leerzelle ausklammert:

Code:

Private Sub UserForm_Activate()
    Dim arrWerte
    Dim rngBereich As Range
    With wsArtikel.ListObjects(1)
        Set rngBereich = Range(.DataBodyRange.Columns(1).Cells(2), _
            .DataBodyRange.Columns(1).Cells(.DataBodyRange.Columns(1).Cells.Count))
        arrWerte = rngBereich
    End With
    cmbArtikelnummer.List = arrWerte
    Set rngBereich = Nothing
End Sub

Bis später,
Katin

 

Faszinierend. Wieder was gelernt...