Schleife für Checkbox und Textbox

Hallo und guten Abend Zusammen.
Ich habe eine Userform welche 60 TextBoxen hat (1-60) hinzu kommen 60 Checkboxen ebenfalls von 1 -60
Die TextBoxen werden von der Tabelle "Jobkette1" Range B4 - B63 befüllt.
Die Checkboxen haben die Range D4-D63
Nun möchte ich beim start der Userform die Tabelle auslesen was sicherlich einfacher geht über eine Schleife wie den umständlichen Wege über:
...
CheckBox59.Value = Sheets(7).Range("D62")
CheckBox60.Value = Sheets(7).Range("D63")
TextBox1 = Sheets(7).Range("B4")
TextBox2 = Sheets(7).Range("B5")
TextBox3 = Sheets(7).Range("B6")
TextBox4 = Sheets(7).Range("B7")
....
zusätzlich möchte wenn z.B. die Checkbox1 auf true steht das die TextBox1 (gehören jeweils zusammen) grau wird - auch hier denke ich gibt es einen einfacheren Weg wie dieser hier um es für jede Checkbox zu machen:
If Worksheets("Jobkette1").Range("D4") = FALSCH Then
TextBox1.Enabled = False
TextBox1.BackColor = &H8000000F
End If
vielleicht kann mir da jemand helfen - Dankeschön
Gruß Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Sheets(""Jobkette1"") For i= 1 to 60 me.controls("CheckBox" & i)=.range("D" & i+3) me.controls("TextBox" & i)=.range("B" & i+3) If Not me.controls("CheckBox" & i) Then me.controls("TextBox" & i).Enabled = False me.controls("TextBox" & i).BackColor = &H8000000F End If Next i End With

Halo Jürgen,
benutze die Tag Eigenschaft für Zelladresse.
Schleife in der Art.

Private Sub CMD_Liste1_Click()
'* H. Ziplies                                     *
'* 13.01.11                                       *
'* erstellt von HajoZiplies@WEB.de                *
'* http://Hajo-Excel.de
' auflisten aller Steuerelemente in der UserForm, getrennt nach Typen
Dim ObCb As Object
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Name = "Steuerelemente_Typ"
Cells(1, 1) = "Textbox"
Cells(1, 2) = "Listbox"
Cells(1, 3) = "Multipage"
Cells(1, 4) = "CommandButton"
Cells(1, 5) = "Label"
Cells(1, 6) = "Kontrollkästchen"
Cells(1, 7) = "OptionButton"
Cells(1, 8) = "ToggleButton"
Cells(1, 9) = "Frame"
Cells(1, 10) = "ScrollBar"
Cells(1, 11) = "ScrollBar"
Cells(1, 12) = "Image"
Cells(1, 13) = "ComboBox"
Cells(1, 14) = "Rest"
For Each ObCb In Me.Controls
Select Case TypeName(ObCb)
Case "TextBox"
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = ObCb.Name
Case "ListBox"
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = ObCb.Name
Case "MultiPage"
Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) = ObCb.Name
Case "CommandButton"
Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4) = ObCb.Name
Case "Label"
Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5) = ObCb.Name
Case "CheckBox"
Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = ObCb.Name
Case "OptionButton"
Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = ObCb.Name
Case "ToggleButton"
Cells(Cells(Rows.Count, 8).End(xlUp).Row + 1, 8) = ObCb.Name
Case "Frame"
Cells(Cells(Rows.Count, 9).End(xlUp).Row + 1, 9) = ObCb.Name
Case "ScrollBar"
Cells(Cells(Rows.Count, 10).End(xlUp).Row + 1, 10) = ObCb.Name
Case "SpinButton"
Cells(Cells(Rows.Count, 11).End(xlUp).Row + 1, 11) = ObCb.Name
Case "Image"
Cells(Cells(Rows.Count, 12).End(xlUp).Row + 1, 12) = ObCb.Name
Case "ComboBox"
Cells(Cells(Rows.Count, 13).End(xlUp).Row + 1, 13) = ObCb.Name
Case Else
Cells(Cells(Rows.Count, 14).End(xlUp).Row + 1, 14) = ObCb.Name
Cells(Cells(Rows.Count, 15).End(xlUp).Row + 1, 15) = TypeName(ObCb)
End Select
Next ObCb
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Schleife für Checkbox und Textbox

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife für Checkbox und Textbox

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread