mit SpinButton in Userform Datenliste rauf unter listen

[schauan]

Hallöchen,

nö, der muss weiter hoch. Kann z.B. vor die Zeile mit With ...

[MdeJong]

Hatte ich mir irgendwie gedacht und vorher dort hingesetzt  ;)

Geht....danke für den Tipp

[MdeJong]

hallo Crazy Tom,


habe es mit dem SpinButton hinbekommen....danke für die Hilfe bisher.

Jetzt hänge ich nur mit dem Button zum ändern der Daten fest.

Wie erwähnt bleibt er bei dem Code an dieser Stelle stehen:


Private Sub CommandButton4_Click()
With Sheets("BluRay-Liste")
    .Cells(CLng(TextBox20.Value) - 1, 2).Value = TextBox19.Value    genau hier
    .Cells(CLng(TextBox20.Value) - 1, 3).Value = TextBox18.Value
    .Cells(CLng(TextBox20.Value) - 1, 4).Value = TextBox16.Value
    .Cells(CLng(TextBox20.Value) - 1, 5).Value = TextBox14.Value
    .Cells(CLng(TextBox20.Value) - 1, 6).Value = TextBox17.Value
    .Cells(CLng(TextBox20.Value) - 1, 7).Value = TextBox13.Value
    .Cells(CLng(TextBox20.Value) - 1, 8).Value = TextBox15.Value
    .Cells(CLng(TextBox20.Value) - 1, 9).Value = TextBox12.Value
    .Cells(CLng(TextBox20.Value) - 1, 10).Value = TextBox10.Value
    .Cells(CLng(TextBox20.Value) - 1, 11).Value = TextBox11.Value
    .Cells(CLng(TextBox20.Value) - 1, 12).Value = ListBox1.Value
    .Cells(CLng(TextBox20.Value) - 1, 13).Value = TextBox21.Value
    End With
    MsgBox "Daten wurden erfolgreich übernommen"
End Sub

  Datebank_1.xlsm (Größe: 110,9 KB / Downloads: 6)
Wo liegt da mein Fehler?

[schauan]

Hallöchen,

kommt denn da keine Fehlermeldung wenn der Code stehen bleibt?
Falls keine kommt, sollte es mit F5 oder F8 erst mal weitergehen.

Falls eine kommt, könnte es daran liegen, dass die Zelladressierung z.B. einen Wert kleiner gleich 0 hat. Nimm mal diesen Ausdruck in die Überwachung:
CLng(TextBox20.Value) - 1

[Crazy Tom]

Hallo


.Cells(CLng(TextBox20.Value) - 1, 2).Value = TextBox19.Value    genau hier gehört ein + 1 anstatt ein minus 1

und in den anderen Codezeilen natürlich auch


MfG Tom

[MdeJong]

Hallo


.Cells(CLng(TextBox20.Value) - 1, 2).Value = TextBox19.Value    genau hier gehört ein + 1 anstatt ein minus 1

und in den anderen Codezeilen natürlich auch


MfG Tom

genau dran lag es Tom  ;)
vor allen ein + gesetzt und es geht ......besten Dank!
Mfg
Michael