ich habe eine userform mit listbox (mehrsp.) textboxen u.comboboxen.um die suche zu erweiter möchte
ich eine zweite userform mit einer od.mehreren comboboxen einbauen die auf die erste userform zugreifen kann.
wie muss dieses makro umgebaut werden,so das es funktioniert ?
'makro userforn
Private Sub ComboBox1_Change()
'Daten aus Spalten und aktueller ZeilenNr in Textbox übertragen
TextBox1.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 1)
TextBox45.Text = ActiveSheet.Cells(ComboBox1.ListIndex + 2, 5)
usw. ca 60 mal
Label38.Caption = "Pferd " & ComboBox1.ListIndex + 1
Cells(ComboBox1.ListIndex + 2, 2).Select
Dim intCounter As Integer
For intCounter = 0 To ListBox1.ListCount - 1
If UCase(Left(ListBox1.List(intCounter), _
Len(ComboBox1.Text))) = UCase(ComboBox1.Text) Then
ListBox1.Selected(intCounter) = True
Exit Sub
End If
Next intCounter
End Sub
'Modul
'Option Explicit
Sub Zeigen2()
With ThisWorkbook.Sheets("Abstammungen")
x = .Cells(.Rows.Count, 2).End(xlUp).Row
ReDim was(0 To x, 0 To 18)
For i = 1 To x '## angepasst fcs
was(i - 1, 0) = .Cells(i, 2).Value 'Name
was(i - 1, 1) = .Cells(i, 7).Value
was(i - 1, 2) = .Cells(i, 10).Value
was(i - 1, 3) = .Cells(i, 11).Value
was(i - 1, 4) = .Cells(i, 12).Value
was(i - 1, 5) = .Cells(i, 8).Value
was(i - 1, 6) = .Cells(i, 9).Value
usw.
Next
End With
Abstammungen.ListBox1.List = was
Abstammungen.Show
mfg rolf