Listboxen auf Multipage
Pascal
ich hab mal nen Problem. Ich öffne auf den Tabellenblatt "Rechnung" eine Userform mir Multipage. Auf Seite 1 befindet sich die Listbox3 und auf der zweitenseite die Listbox 1 und 2. jetzt bekomme ich beim hochladen der inhalte für die Listboxen die fehlermeldung "mehrdeutiger name".
Hier der Code von der userform:
Private Sub Kunde_abbrechen_Click()
'UserForm schließen
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim I As Integer
TextBox1 = Sheets("Kunden").Range("A2")
TextBox2 = Sheets("Kunden").Range("B2")
TextBox3 = Sheets("Kunden").Range("C2")
With ListBox3
.ColumnCount = 3
.ColumnWidths = "1cm;2cm;2cm"
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
.AddItem Sheets("Kunden").Cells(I, 1)
.Column(1, I - 2) = Sheets("Kunden").Cells(I, 2)
'Beginnt i bei 1 dann muss i - 1 sein!
.Column(2, I - 2) = Sheets("Kunden").Cells(I, 3)
Next I
.ListIndex = 0
End With
End Sub
Private Sub Kunde_übergeben_Click()
With ThisWorkbook.Worksheets("Rechnung")
.Range("B11").Value = ListBox3.List(Me.ListBox3.ListIndex, 0)
End With
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub schliessen_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim LoLetzte As Long
LoLetzte = Sheets("Artikel").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "'Artikel'!A4:b" & LoLetzte
ListBox2.RowSource = "'Artikel'!A4:b" & LoLetzte
End Sub
könnt ihr mir helfen?
Gruß
Pascal