Daten in Userform aus anderem Tabellenblatt einlesen

[MdeJong]

Ich schaffe es doch....bin noch dabei und zeige später mein Ergebnis  :21:

[MdeJong]

  Filmliste - Kopie.xlsm (Größe: 50,89 KB / Downloads: 3) Hi Crazy Tom,


bin doch noch selber drauf gekommen, wie ich deinen Code erweitern kann um die anderen Comboboxen zu füllen.

leider klappt das speichern eines neuen Filmes natürlich jetzt nicht  :s


Keine Ahnung, wie ich das jetzt wieder ausbügeln soll???  

Grüße

[Crazy Tom]

Hallo

du trägst den neuen Film mit einer Schleife (sp) in die Spalten
du hast aber z.B. die Textbox5 durch eine Combobox ersetzt
und in der Schleife wird dann latürnich keine Textbox5 mehr gefunden
genau so wird es sich auch mit den anderen ersetzten TextBoxen verhalten
also entweder die Spalten einzeln eintragen
oder innerhalb der Schleife von sp = 4 auf sp = 6 springen

MfG Tom

Edit sagt: auch bei der Schleife IntAnz wirst du in den gleichen Fehler laufen

[MdeJong]

das schnall ich jetzt nicht.....sorry

soll das bedeuten ich müsste im Code das so angeben:


Private Sub CommandButton1_Click()
   Dim sp As Integer
   Dim z As Long
   With Worksheets("BluRay-Liste")
       z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       For sp = 1 To 4
           .Cells(z, sp) = Controls("TextBox" & sp).Text
       Next sp
       For sp = 6 To 14
           .Cells(z, sp) = Controls("TextBox" & sp).Text
   End With
   For intAnz = 1To 14
       Controls("Textbox" & intAnz) = ""
   Next intAnz
   MsgBox "Daten wurden erfolgreich übernommen"
   Call UserForm_Initialize
End Sub


Bestimmt falsch?!!

[Crazy Tom]

Hallo

das wäre ein Weg

Code:

Private Sub CommandButton1_Click()
   Dim sp As Integer
   Dim z As Long
   With Worksheets("BluRay-Liste")
       z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       For sp = 1 To 13
           If sp = 5 Then sp = 6
           If sp = 7 Then sp = 9
           .Cells(z, sp) = Controls("TextBox" & sp).Text
       Next sp
       .Cells(z, 5) = ComboBox1
       .Cells(z, 7) = ComboBox2
       .Cells(z, 8) = ComboBox3
       .Cells(z, 14) = ComboBox4
   End With
   For intAnz = 1 To 13
       If intAnz = 5 Then intAnz = 6
       If intAnz = 7 Then intAnz = 9
       Controls("Textbox" & intAnz) = ""
   Next intAnz
   ComboBox1.ListIndex = 0
   ComboBox2.ListIndex = 0
   ComboBox3.ListIndex = 0
   ComboBox4.ListIndex = 0
   MsgBox "Daten wurden erfolgreich übernommen"
   Call UserForm_Initialize
End Sub

MfG Tom

[MdeJong]

Ich hab nur geraten....ich lag also schon fast richtig?.....hätte es funktioniert?


Ich hab natürlich deine Code-Änderungen genommen.....war besser.  ;)

Und das ganze sieht schon mal nicht schlecht aus...freue mich.


Es gibt ja noch eine Stelle in der userform "BluRayListe", mit einer Listbox  " Inhalt" das fehlt auch noch das einlesen nach dem suchen eines Filmes?

Woran liegt das?.......wie lautet dort der Befehlscode??

Vielen tausend dank bisher an dich

[Crazy Tom]

Hallo

eine Listbox befüllt man anders
z.B. so

Code:

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

MfG Tom

[MdeJong]

Aber so ist es doch in meinem Code enthalten.....wird aber nicht eingelesen?

[MdeJong]

Sorry...hab ich falsch gelesen......es war anders bei mir eingetragen
Jetzt geht es