ich wende mich wieder einmal hilfesuchend an euch.
Ich habe hier gestern schon einen Beitrag zu Checkboxen veröffentlich.
Diese Checkboxen habe ich dann mit Textboxen verknüpft, sodass je nach Klick bei beiden zusammen die Farbe geändert wird.
Dank Eurer Hilfe habe ich diesen Code bekommen:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.BackColor = &H80FF80 ' hell-grün
TextBox1.BackColor = &H80FF80
Else
CheckBox1.BackColor = &HFF ' rot
TextBox1.BackColor = &HFF
End If
End Sub
Soweit so gut.
Nun hätte ich gerne, dass die Textbox zusätzlich noch ein bestimmtes Muster bekommt.
Zum Thema Muster habe ich folgenden Code gefunden, der jedoch nur bestimmte Zellen einfärbt und auch nur, wenn vorher das betr. Muster ausgewählt wurde:
Sub Hintergrundmuster()
Dim Pattern As Integer
On Error Resume Next
intPattern = CInt(InputBox("Eine Zahl eingeben (1-18)"))
Range("C2:F7").Interior.Pattern = intPattern
Range("C2:F7").Interior.PatternColorIndex = 1
End Sub
Jedoch hätte ich gerne, dass die oben genannte Textbox immer mit einem festen Muster (und eben der schon vorher definierten Farbe) eingefärbt wird.
Ist mein Ansatz soweit richtig, bzw. kann mir jemand bei meinem Problem helfen?
Vielen Dank im Voraus für Eure Antwort!
Anja