erstellen einer Lagerverwaltung

Hallo Gerold,

wenn du mehrere Zahlen für eine Kategorie eintragen willst, kannst du diese semikolongetrennt in die Textbox schreiben. Du musst nicht jede Zahl einzeln übertragen.

Claus

Hallo Gerold,

dann ändere das Makro für den Übertrag so ab:

Private Sub cmdÜbertrag_Click()

Dim c As Range, rngStart As Range

Dim varOut As Variant

With Sheets("Tabelle1")

   Set c = .Range("A:A").Find(Me.ComboBox1.Value)

   Set rngStart = .Cells(c.Row, Columns.Count).End(xlToLeft).Offset(, 1)

   varOut = Split(Me.TextBox1, ";")

   rngStart.Resize(1, UBound(varOut) + 1) = varOut

End With

Me.TextBox1.Value = ""

End Sub

Claus

Danke Claus, das ist das was ich wollte zu 80% ich bin begeistert. Gib mir bitte noch einen Tipp wo ich das Einfügen verändern kann und zwar in der Form, die Zahlen bei Test 1 Test 2 usw. sollen fortlaufend erfolgen also wenn Test 1 in B1 bereits eine Zahl
hat dann soll der Eintrag in C1 und so weiter erfolgen.

Gruß Gerold

Hallo Gerold,

warum solltest du die Userform kopieren? Rufe sie einfach modeless auf, dann bleibt sie bestehen und du kannst sowohl im Blatt als auch in der UserForm arbeiten.

Lade dir mal hier die Mappe herunter, da Makros in OneDrive deaktiviert sind:

https://1drv.ms/x/s!AqMiGBK2qniTgcdf3XNq9cpqn1kFbg

Rufe das Makro "Start" auf, um die Userform zu starten. Gebe dann deine Werte semikolongetrennt in die TextBox ein und klicke zum Übertragen auf den Button.

Claus

Hallo Gerold,

gibst du die Bezeichnungen in Spalte A erst ein? Dann kopiere mal folgenden Code in das Codemodul des entsprechenden Blattes:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is Nothing _

   Or Target.Count > 1 Then Exit Sub

   

Dim ans As String

Dim varOut As Variantans = Application.InputBox("Gebe deine Werte semikolongetrennt ein", "Eingabe", Type:=2)

If ans = "" Or ans = "Falsch" Then Exit Sub

varOut = Split(ans, ";")

Target.Offset(, 1).Resize(, UBound(varOut) + 1) = varOut

End Sub

Sind die Einträge schon vorhanden, wähle den gewünschten an, drücke F2 und Enter.

Claus