UserForm auf Grundlage von Bestandsdaten

[PhilippB.]

Hallo,

ich habe im Unternehmen eine Bestandsliste mit Daten. Diese sind sollen von verschiedenen Mitarbeitern gefüllt werden.
Ich möchte vorab eine Userform erstellen. Der Bearbeiter wählt am Anfang in der EingabeMaske  über eine dropdown auswahlliste einen bestimmten wert aus. In den Feldern, wo bereits Bestandsdaten zu dem bestimmten wert sind, sollen diese automatisch in die jeweiligen Maskenfelder eingetragen werden. Dann füllt der Bearbeiter die weiteren Masken und speichert diese und die gespeicherten Daten gehen wieder in die Excel-Liste der Betandsdaten. wäre sowas möglich??

Sprich Daten einlesen, bearbeiten u. zurück schreiben!

Gruß

[GMG-CC]

Ja das ist durchaus möglich. Mr. Goo wird dir gewiss mit zig tausenden von Beiträgen hilfreich beiseite stehen.

[PhilippB.]

ich habe eine liste aus dem Internet gefunden und angepasst. könnt ihr mir bei einer Sache helfen? Ich möchte im userform eine Checkbox einbauen ´. bei setzen eines hakens möchte ich, dass in der spalte ja/nein auch das "ja" reingeschrieben wird.

Gruß,
Philipp

[GMG-CC]

Moin Philipp,

was hindert dich daran, eine CheckBox in die UFo einzufügen?
Und ich kann in der Tabelle auch keine Ja/Nein - Spalte finden, wo das Ergebnis dann eingetragen werden soll.

[PhilippB.]

die Checkbox "VSP" habe ich eingefügt, wenn ich jetzt z.B. den Artikel "10001_01" auswähle und mir die Bestandsdaten aufrufe und dann beim VSP ein haken setze, möchte ich, dass dies in die Bestandsdaten in die Spalte VSP mit Ja übernommen wird. Kannst du mir dafür einmal den code geben bzw. einfügen?

[GMG-CC]

Moin,
ich bin jetzt erst einmal für einige Stunden bei einem Kunden ...
Danach schaue ich mir das einmal an.

[PhilippB.]

Hallo Günter,

ich habe noch etwas an der Excel-Liste verändert: Zwei Dinge fehlen mir!

1.) die Checkbox "VSP" habe ich eingefügt, wenn ich jetzt z.B. den Artikel "10001_01" auswähle und mir die Bestandsdaten aufrufe und dann beim VSP ein haken setze, möchte ich, dass dies in die Bestandsdaten in die Spalte VSP mit Ja übernommen wird. Kannst du mir dafür einmal den code geben bzw. einfügen?

2.) Möchte ich gerne das Attribut "Katalogwert 1" aus dem Excel-Sheet "Katalog" Spalte A auswählen. In der Spalte A kommen bis 150Werte rein. Wäre das auch codierbar?

Danke im Voraus!!!!

[Rabe]

Hi Philipp,

ich habe noch etwas an der Excel-Liste verändert: Zwei Dinge fehlen mir!

so vielleicht?
zu 1.)

Private Sub cdm_New_Click()

  Dim i As Long

  

  With Worksheets("Stammdaten")

     With .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) '.Range("A50000").End(xlUp).Offset(1, 0) 

        For i = 1 To 5

           .Cells(1, i).Value = Me.Controls("textbox" & i).Value

        Next i

        If CheckBox1.Value = True Then

           .Cells(1, 6).Value = "ja"

        Else

           .Cells(1, 6).Value = "nein"

        End If

        .Cells(1, 7).Value = ComboBox1.Value

     End With

  End With

  Call Controls_Urzustand

End Sub

zu 2.)

Sub Controls_Urzustand()

  Dim i As Long

  Dim lngZeile As Long

  Dim objDic As Object

  

  For i = 1 To 4

     frm_Stammdaten.Controls("textbox" & i).Value = ""

  Next i

  frm_Stammdaten.cmd_Update.Enabled = False

  frm_Stammdaten.cmd_loeschen.Enabled = False

  With Sheets("Katalog")

     Set objDic = CreateObject("Scripting.Dictionary")

     For lngZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row

        objDic(.Cells(lngZeile, 1).Value) = 0

     Next

     frm_Stammdaten.ComboBox1.List = objDic.keys

  End With

  

  frm_Stammdaten.TextBox1.SetFocus

  

End Sub

[PhilippB.]

Hallo Rabe,

vielen Dank! Ich komme werde die Excel-Liste mal weiter bearbeiten und komme bestimmt nochmal auf euch zurück!!!

Vielen Dank!

[PhilippB.]

ich noch zwei "Fehler" in der Tabelle:

1.) Artikel-Nummern dürfen nicht doppelt eintragbar sein!
2.) wenn ich die Daten eines Artikels aufrufe und "update" übernimmt er die Daten, wenn ich Sie dann wieder aufrufe, fehlt z.B. die Anzeige des klick in der Checkbox!

Besten Dank im Voraus