Userform Multipage Worksheet auswählen

[tyr0n]

Hallo Community, ich habe ein Problem mit dem Eintragen in unterschiedlichen Worksheets aus unterschiedlichen MultiPages.

Folgenden Code habe ich auf der Page0:

Code:

Private Sub CommandButton1_Click()
    Dim z As Integer
    Dim ksa As Variant
   
    With Worksheets("Liste")
        z = LZ
        ksa = WorksheetFunction.Max(Columns(1)) + 1
        Cells(z, 1) = ksa
      
        Cells(z, 2) = TextBox1.Value
        Cells(z, 3) = TextBox2.Value
        Cells(z, 4) = TextBox3.Value
        Cells(z, 5) = ComboBox1.Value
        Cells(z, 6) = ComboBox2.Value
        Cells(z, 7) = ComboBox3.Value
        Cells(z, 8) = Date
        Cells(z, 9) = TextBox4.Value
            If Strecke.Value = True Then
            Cells(z, 14) = "Streckengeschäft"
            ElseIf Strecke.Value = False Then
            Cells(z, 14) = ""
            End If
    End With
        TextBox5.Value = ksa
        TextBox6.Value = TextBox2.Value
        TextBox7.Value = TextBox3.Value
        UserForm1.MultiPage1.Value = 1

End Sub

Dieser Code trägt in die nächste freie Zeile in der Tabelle "Liste" die Daten ein und wechselt dann in die MultiPage 1. 
Dort habe ich ein Commandbutton der dann den Inhalt aus der Multipage 1 in die Tabelle "Bauteile" übertragen soll. Er überträgt diese jedoch ebenfalls in die Tabelle "Liste".

Code:

Private Sub CommandButton2_Click()
Dim bauteilnr As Variant
Dim z As Integer
   
    With Worksheets("Bauteile")
    z = LZ2
    bauteilnr = WorksheetFunction.Max(Columns(1)) + 1
    Cells(z, 1) = bauteilnr
    Cells(z, 2).Value = TextBox5.Value
    Cells(z, 3) = TextBox6.Value
    Cells(z, 4) = TextBox7.Value
    Cells(z, 5) = FT1_Name
    Cells(z, 6) = FT1_LZ

         
    End With

End Sub

Ich finde nicht den Fehler wieso er die Daten aus der Multipage1 ebenfalls in die Tabelle Liste schreibt :( 
Sieht jemand auf dem ersten Blick einen Fehler?
Vielen Dank im Voraus. 

VG tyr0n

[Elex]

Hallo

Wenn du die With-Anweisung verwendest, musst du vor die Sachen auf die sich die Anweisung beziehen soll einen Punkt(.) machen.
also:   .Cells(z, 2)

Schau mal hier rein.

With-Anweisung (VBA) | Microsoft Docs

Hier musst du noch überlegen auf welchem Blatt Column1 stehet.
evtl. so
WorksheetFunction.Max(.Columns(1)) + 1