ich habe folgendes Problem:
Ich habe in einem UserForm vier Werte eingetragen, diese sollen mittels commandbutton
entsprechend einer Artikelnummer die ebenfalls in der userform eingegeben wird, in eine Tabelle eingetragen werden.
Die Programmierung soll also in der Tabelle in der Spalte R den Eintrag =Arikelnummer suchen und dann in den 4 Zeilen dahinter die Werte aus der Userform. Leider klappt das mit meinem Code nicht und er fügt einfach nichts ein. Es gibt aber auch keine Fehlermeldung.
Hier der Code:
Private Sub CommandButton2_Click()
Dim find_artNr As String
Dim leerio As Long
Dim leernio As Long
Dim vollio As Long
Dim vollnio As Long
Dim i As Long
On Error Resume Next
find_artNr = Me.ListBox1.List(0)
leerio = Me.TextBox1.Value
leernio = Me.TextBox3.Value
vollio = Me.TextBox2.Value
vollnio = Me.TextBox4.Value
Columns("R:R").Select
For i = 1 To Cells(Rows.Count, 18).End(xlUp).Row
If Cells(i, 17) = find_artNr Then
Cells(i, 17).Select
If Err.Number = 91 Then MsgBox "Wert wurde nicht gefunden!"
ActiveCell.Offset(0, 10).Value = leerio
ActiveCell.Offset(0, 11).Value = leernio
ActiveCell.Offset(0, 12).Value = vollio
ActiveCell.Offset(0, 13).Value = vollnio
Range("AA2:AD160").Select
Selection.copy
Range("AA2:AD160").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
On Error GoTo 0
Exit Sub
Else: Cells(Cells(Rows.Count, 17).End(xlUp).Row + 1, 17).Select
End If
Next
End Sub
Ich hoffe ihr könnt mir dabei helfen.Danke und Gruß
Dennis Schmitz