mit SpinButton in Userform Datenliste rauf unter listen

[MdeJong]

  Meine Datebank Neu.xlsm (Größe: 49,5 KB / Downloads: 8) Hallo,

hier ist wieder der Anfänger in Sachen Vba........obwohl ich hier schon durch einige Hilfe etwas lernen konnte, fehlt mir aber noch eine Menge Verständnis und Wissen übers programmieren.

Durch Crazy Tom hier bin ich wieder ein kleines Stück weiter gekommen um das ein wenig besser zu verstehen.

Ich versuche meine eigene Filmsammlung komfortabel mit Excel übersichtlich zu gestalten.
Wie ihr in der angehängten Datei sehen könnt.

In Meiner Userform, kann ich nach Filme suchen und sie mir in der Userform anzeigenlassen.
Nun möchte ich zum ersten, das die userform es mir zulässt mit dem SpinButton in meinen Filmdatentabelle rauf und herunter scrollt und mir die Filme mit allen Angaben anzeigt. Gleichzeitig aber auch der SuchButton der mir nach der Suche den Film anzeigt, das rauf und runter scrollen in der Datentabelle auch zulässt.

Ich habe das mal als kleines Beispiel für eine Adressverwaltung...mit 3 Namen gesehen, dachte mir, das wäre echt optimal, wenn das bei mir auch so geht.

Was meint Ihr???

Grüße

MdeJong

[Crazy Tom]

Moinmoin

das kann man so machen

Code:

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)
       'und so weiter, das kennst du ja schon
   End With
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)
       'und so weiter, das kennst du ja schon
   End With
End Sub

MfG Tom

[schauan]

Hallo mdejong,

habe mir die Datei jetzt nicht angeschaut. Wenn Du den Spinbutton bewegst, kannst Du im entsprechenden Ereignismakro über den Value das Spinbuttons die entsprechende Zeile abrufen und damit z.B. TextBoxen füllen.

Wenn Du in der Suchfunktion bist, setzt Du den Value des Spinbuttons auf die gefundene Zeile.
Da damit das Ereignismakro vom Spinbutton ausgelöst wird, werden Dir darüber die Inhalte der TextBoxen neu gefüllt.

Eventuell wäre es noch angebracht, dass man sich was einfallen lässt, was passiert, wenn Du den Dialog startest. Eventuell könnte da schon mal der Spinbutton auf die aktive Zelle / Zeile gesetzt werden.

[MdeJong]

Moin Crazy Tom,


du hast bar auch immer eine perfekte Lösung ,die ich nur noch zu Ende bringen muss ;)

Das geht schon mal.  :)

jetzt muss ich nur noch wissen, was "Schauan" meint,, wie das in dem Code eingearbeitet wird?

Grüße

Mdejong

[MdeJong]

Wenn ich mit dem SpinButton einen Film suche, kann ich dann auch in der Maske Daten verändern, werden die übernommen?

[Crazy Tom]

Hallo

dann erstelle dir auf der Userform einen neuen Button zum updaten
in deiner Textbox20 steht ja die fortlaufende Nummer
der Eintrag des Films steht dann in der Zeile: laufende Nummer minus 1
und dann trägst du bei klick auf den Button z.B.

with Sheets("Blu.....
    .Cells(CLng(textbox20.Value) -1, 2).Value = Textbox19.Value
    'und so weiter....
End With


MfG Tom

[MdeJong]

  Datebank.xlsm (Größe: 115,81 KB / Downloads: 2) Hallo Crazy Tom,

hab mit deinem letzten Code für den SpinButton doch ein Problem.

Wollte wie beim letzten Mal diese Zeile einfügen:



ListBox1.AddItem .Cells(c.Row, 12).Value

Damit der Inhalt auch gefüllt wird.  leider geht das nicht.

und irgendwie bin ich mir nicht sicher, ob der Code für den Spinbutton an die Comboboxen auch angepasst werden muss.
Hab das Gefühl. das nicht alles angezeigt wird, wenn ich auf dem Spin drücke, oder über Suche?

Gruß
Michael

[Crazy Tom]

Hallo

da ist C.Row die falsche Variable

nimm Textbox20.... wie bei den anderen TextBoxen auch

MfG Tom

[MdeJong]

Hi Tom,

Neue daten aktualisieren.
Ist dieser Code korrekt?

Private Sub CommandButton4_Click()
With Sheets("BluRay-Liste")
    .Cells(CLng(TextBox20.Value) - 1, 2).Value = TextBox19.Value
    .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 = TextBox12.Value
    End With
    MsgBox "Daten wurden erfolgreich übernommen"
End Sub

Grüße

[MdeJong]

Hallo

da ist C.Row die falsche Variable

nimm Textbox20.... wie bei den anderen TextBoxen auch

MfG Tom

Ok...werde es abändern.