Wieder stehe ich von einem grossen Frage Zeichen!
Ich möchte das es mir die Zeilen sucht, welche der Text die Farbe rot hat. So viele CheckBoxen sollen erstellt werden!
Dies habe ich noch hin bekommen. Schön wäre, wenn es mir die gefundene Zeile & die vier Zeilen rechts daneben mit einem Abstand auch eintragen würde.
Da wäre mein bisheriger Code:
Private Sub UserForm_Initialize()
Dim i As Integer
Dim lolast As Long
Dim lngZaehler As Long
Worksheets(1).Activate
lolast = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lolast
If Cells(i, 1).Font.ColorIndex = 3 Then
With Me.Controls.Add("Forms.CheckBox.1", Name:=i)
.Left = 100
.Top = 50 + lngZaehler * 25
.Caption = Cells(i, 1)
lngZaehler = lngZaehler + 1
End With
End If
Next
End Sub
Vielleicht kann mir jemand helfen?Gruss Daniel Eberhard