Clever-Excel-Forum

Seiten: 1 2

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

[attachment=14345]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??? Angel

Grüße

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

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?!!

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

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

Hallo

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

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

MfG Tom

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

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

Seiten: 1 2

MdeJong

MdeJong

Crazy Tom

MdeJong

Crazy Tom

MdeJong

Crazy Tom

MdeJong

MdeJong