Schleife ärgert mich
17.06.2009 14:53:42
Mister
folgendes Problem bereitet Sorgen:
für unsere neue Software in der Firma muss ich eine Übersicht der Rechtevergabe erstellen. In Spalte A (1-170) stehen die einzelne Rechte in Reihe 176 stehen die Namen der Kollegen. Wenn der Kollege ein bestimmtes Recht hat, steht an der entsprechenden Stelle ein X. Bei der Zahl der Rechte und Kollegen ist die Tabelle unübersichtlich, sodass ich eine UserForm mit vielen CheckBoxes erstellt habe. Ich möchte die UF mit einer Schleife befüllen aber dies gelingt mir nicht. Ich hab's mit folgendem Code versucht aber es klappt nicht:
Private Sub ComboBox1_Change()
Dim x As Long
Dim i As Long
For x = 3 To 300
For i = 1 To 170
If Me.ComboBox1.Value = Worksheets("Übersicht").Cells(176, x) Then
TextBox1.Value = Worksheets("Übersicht").Cells(177, x)
If Worksheets("Übersicht").Cells(i, x) = "X" Then Me.Controls("CheckBox & i").Value = True
Exit Sub
End If
Next
Next
End Sub
In ComboBox1 steht der Name des Kollegen. Wenn der Inhalt des CB mit dem Namen in Reihe x übereinstimmt, sollen die darüberstehenden Zellen kontrolliert werden. Wenn der Inhalt einen "X" ist, soll der Value des entsprechenden CheckBoxes auf True gesetzt werden.
Wer kann helfen?
Gruß
Martin