Schleife für Anfänger?
07.03.2015 20:32:17
Thomas
ich habe nicht viel Ahnung von vba kann mmir jemand eine schleife bauen? Ich muss 60 Textboxen füllen. code:
Wenn ich da jetzt noch 30 zu füge sieht dies ja schlimm aus. Alle textboxen sind fortlaufend und werden in aus fortlaufende Spalten ausgelesen.
Private Sub ComboBox1_Change()
'ausgewählten Datensatz in Steuerelementen anzeigen
Dim sSearch As String
With Me.ComboBox1
If .ListIndex -1 Then
sSearch = .List(.ListIndex, 0)
Set rngID = wksData.Columns("A:A").Find(what:=sSearch, lookat:=xlWhole, LookIn:=xlValues)
If Not rngID Is Nothing Then
TextBox_ID.Text = rngID.Offset(0, 0).Value
TextBox1.Text = rngID.Offset(0, 1).Value
TextBox2.Text = rngID.Offset(0, 2).Value
TextBox3.Text = rngID.Offset(0, 3).Value
TextBox4.Text = rngID.Offset(0, 4).Value
TextBox5.Text = rngID.Offset(0, 5).Value
TextBox6.Text = rngID.Offset(0, 6).Value
TextBox7.Text = rngID.Offset(0, 7).Value
TextBox8.Text = rngID.Offset(0, 8).Value
TextBox9.Text = rngID.Offset(0, 9).Value
TextBox10.Text = rngID.Offset(0, 10).Value
TextBox10.Text = rngID.Offset(0, 11).Value
TextBox11.Text = rngID.Offset(0, 12).Value
TextBox12.Text = rngID.Offset(0, 13).Value
TextBox13.Text = rngID.Offset(0, 14).Value
TextBox14.Text = rngID.Offset(0, 15).Value
TextBox15.Text = rngID.Offset(0, 16).Value
TextBox16.Text = rngID.Offset(0, 17).Value
TextBox17.Text = rngID.Offset(0, 18).Value
TextBox18.Text = rngID.Offset(0, 19).Value
TextBox19.Text = rngID.Offset(0, 20).Value
TextBox20.Text = rngID.Offset(0, 21).Value
TextBox21.Text = rngID.Offset(0, 22).Value
TextBox22.Text = rngID.Offset(0, 23).Value
TextBox23.Text = rngID.Offset(0, 24).Value
TextBox24.Text = rngID.Offset(0, 25).Value
TextBox25.Text = rngID.Offset(0, 26).Value
TextBox26.Text = rngID.Offset(0, 27).Value
TextBox27.Text = rngID.Offset(0, 28).Value
TextBox28.Text = rngID.Offset(0, 29).Value
TextBox29.Text = rngID.Offset(0, 13).Value
TextBox30.Text = rngID.Offset(0, 14).Value
TextBox31.Text = rngID.Offset(0, 15).Value
TextBox32.Text = rngID.Offset(0, 16).Value
End If
sSearch = ""
Else
Me.TextBox_ID = ""
'TextBox16.Text = .Text
End If
End With
End Sub