AW: Tabellenblatt über OptionButton wellen
10.12.2010 11:30:23
Fredy
So hebe ich es jetzt kann mit dem code nur ein Tabellenblatt anschauen möchte aber 2 anschauen können
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, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 2).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, 12).Value
Me.TextBox12 = wksCombo.Cells(Zeile, 13).Value
Me.TextBox13 = wksCombo.Cells(Zeile, 14).Value
Me.TextBox14 = wksCombo.Cells(Zeile, 15).Value
Me.TextBox15 = wksCombo.Cells(Zeile, 16).Value
Me.TextBox16 = wksCombo.Cells(Zeile, 17).Value
Me.TextBox17 = wksCombo.Cells(Zeile, 18).Value
Me.TextBox18 = wksCombo.Cells(Zeile, 19).Value
Me.TextBox19 = wksCombo.Cells(Zeile, 20).Value
Me.TextBox20 = wksCombo.Cells(Zeile, 21).Value
Me.TextBox21 = wksCombo.Cells(Zeile, 22).Value
Me.TextBox22 = wksCombo.Cells(Zeile, 23).Value
Me.TextBox23 = wksCombo.Cells(Zeile, 24).Value
Me.TextBox24 = wksCombo.Cells(Zeile, 25).Value
Me.TextBox25 = wksCombo.Cells(Zeile, 26).Value
Me.TextBox26 = wksCombo.Cells(Zeile, 27).Value
Me.TextBox27 = wksCombo.Cells(Zeile, 28).Value
End Sub
Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("ChecklisteAltpapier")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .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