mit SpinButton in Userform Datenliste rauf unter listen

[Crazy Tom]

Hallo

ob der Code korrekt ist siehst du doch an den Einträgen in der Tabelle!
wobei es schon seltsam ist, dass du in 2 Zellen den Eintrag aus Textbox12 einträgst

MfG Tom

[MdeJong]

  Datebank.xlsm (Größe: 113,79 KB / Downloads: 3) Nun habe ich bestimmt so einiges falsch gemacht?

Nun wird nicht alles eingelesen:

genre
FSK
usw.

und das aktualisieren klappt auch nicht?  

der Code war wohl falsch 

[MdeJong]

Hallo

ob der Code korrekt ist siehst du doch an den Einträgen in der Tabelle!
wobei es schon seltsam ist, dass du in 2 Zellen den Eintrag aus Textbox12 einträgst

MfG Tom

Da habe ich wohl vergessen, es heraus zu löschen. 

[MdeJong]

hallo Crazy Tom,

kannst du in der Mappe die Korrekturen machen und farbig markieren, was ich falsch gemacht habe???

Danke

MfG
Michael

[Crazy Tom]

Hallo

es wird nicht alles eingelesen weil du nicht allen TextBoxen die richtigen Spalten zuweist
in den Spinbutton-Codes wird z.B. nirgends die Textbox14 mit dem Genre befüllt
auch den Listboxen werden nirgends mit AddItem Werte zugewiesen

Änderungen in deiner Datei vorzunehmen und dir damit eine komplette Programmierung
zu machen, halte ich in einem Forum zur Selbsthilfe für ein bissel groß

MfG Tom

[MdeJong]

Dann versuche ich das noch einmal       ....als Anfänger

wenn ich die passenden Zeilen finde


Danke

[MdeJong]

  Datebank_1.xlsm (Größe: 114,58 KB / Downloads: 4) Hallo Crazy Tom,

also das erste habe ich hinbekommen......über Spinbutton wird alles angezeigt.
Nur eins ist komisch?  wenn ich weiter auf Spin klicke, fügt er immer 1. Eintrag mehr ein bei Inhalt.

Beispiel Inhalt:

Super    (mehr steht bei dem gewählten Film nicht)

klick auf nächsten Film, steht dann im Inhalt der passende Eintrag plus der vorherige...usw. je klick?

Den Code für das ändern der daten, habe ich überprüft, dort müsste ich alle Spalten aus der Datentabelle angesprochen haben, doch er bleibt dann in der ersten Zeile des Codes stehen:

.Cells(CLng(TextBox20.Value) - 1, 2).Value = TextBox19.Value

Woran liegt das?

Mfg

[schauan]

Hallöchen,

das liegt an dieser Zeile:

ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)

Du fügst hier jedes mal einen neuen Eintrag hinzu, tust aber den bisherigen Inhalt nicht löschen, z.B. mit ListBox1.Clear . Die frage ist natürlich auch, warum Du bei einem Eintrag eine Listbox benötigst und nicht auch eine TextBox nimmst.

[MdeJong]

Hallöchen,

das liegt an dieser Zeile:

ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)

Du fügst hier jedes mal einen neuen Eintrag hinzu, tust aber den bisherigen Inhalt nicht löschen, z.B. mit ListBox1.Clear . Die frage ist natürlich auch, warum Du bei einem Eintrag eine Listbox benötigst und nicht auch eine TextBox nimmst.

Ich könnte auch eine TextBox nehmen....dachte, das diese nicht so wie Einträge zulässt?
Im Inhalt soll später ja zum Film ein kurzer Inhalt angezeigt werden....man weiß ja nie, wie lang der sein könnte?

ist in diesem Fall eine TextBox besser?

ich hab in der List box schon einmal ausprobiert, wie ein ganzer Text dort dargestellt wird....alles nebeneinander, ohne Zeilenumbruch.

Die frage wäre für mich auch, wenn ich diesen Text dann in meiner Datenbank habe, wird die Zelle ziemlich groß.
Vielleicht kann man auch einen gespeicherten Text dort in der TextBox aufrufen?

Mfg

[MdeJong]

Ach noch etwas...Schauan,

an welcher Stell im Spinbutton Code muss der Eintrag:

ListBox1.Clear



ich hab Ihn dort hineingesetzt:

Private Sub SpinButton1_SpinDown()
   If TextBox20.Value = 0 Then Exit Sub
   TextBox20.Value = TextBox20.Value - 1
   With Sheets("BluRay-Liste")
       TextBox19.Value = .Cells(TextBox20.Value + 1, 2)
       TextBox18.Value = .Cells(TextBox20.Value + 1, 3)
       TextBox16.Value = .Cells(TextBox20.Value + 1, 4)
       TextBox15.Value = .Cells(TextBox20.Value + 1, 8)
       TextBox17.Value = .Cells(TextBox20.Value + 1, 6)
       TextBox12.Value = .Cells(TextBox20.Value + 1, 9)
       TextBox13.Value = .Cells(TextBox20.Value + 1, 7)
       TextBox14.Value = .Cells(TextBox20.Value + 1, 5)
       TextBox10.Value = .Cells(TextBox20.Value + 1, 10)
       TextBox11.Value = .Cells(TextBox20.Value + 1, 11)
       ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)
       TextBox21.Value = .Cells(TextBox20.Value + 1, 14)
   End With
   ListBox1.Clear
End Sub
Private Sub SpinButton1_SpinUp()
   If IsNumeric(TextBox20.Value) Then
       TextBox20.Value = TextBox20.Value + 1
   Else
       TextBox20.Value = 1
   End If
   With Sheets("BluRay-Liste")
       TextBox19.Value = .Cells(TextBox20.Value + 1, 2)
       TextBox18.Value = .Cells(TextBox20.Value + 1, 3)
       TextBox16.Value = .Cells(TextBox20.Value + 1, 4)
       TextBox15.Value = .Cells(TextBox20.Value + 1, 8)
       TextBox17.Value = .Cells(TextBox20.Value + 1, 6)
       TextBox12.Value = .Cells(TextBox20.Value + 1, 9)
       TextBox13.Value = .Cells(TextBox20.Value + 1, 7)
       TextBox14.Value = .Cells(TextBox20.Value + 1, 5)
       TextBox10.Value = .Cells(TextBox20.Value + 1, 10)
       TextBox11.Value = .Cells(TextBox20.Value + 1, 11)
       ListBox1.AddItem .Cells(TextBox20.Value + 1, 12)
       TextBox21.Value = .Cells(TextBox20.Value + 1, 14)
   End With
   ListBox1.Clear
End Sub


Idas ist auf jeden fall falsch, denn so, zeigt er nun Den Inhalt von der Listbox1 nicht mehr an

Mfg