AW: Fehler Beim Kompilieren in ComboBox
07.05.2010 16:49:45
Fredy
Ok sorry das ist der ganze quel
Dim wksCombo As Worksheet, Zeile1 As Long
Private Sub ComboBox1_Click()
Dim Zeile As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 2).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox8 = wksCombo.Cells(Zeile, 9).Value
Me.TextBox9 = wksCombo.Cells(Zeile, 10).Value
Me.TextBox10 = wksCombo.Cells(Zeile, 11).Value
Me.TextBox11 = wksCombo.Cells(Zeile, 11).Value
'u.s.w. für weitere Textboxen
End Sub
Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Schaaber Eingabe")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 1), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub