Txtbox verkleuren indien beneden of boven een waarde

[ExcelTonnie]

Kom er ff niet uit, wie weet raad.
Hij moet 35 boxen aflopen om te kijken welke beneden of boven waarde komen en rood verkleuren.

 

[edmoor]

Dat kan bijvoorbeeld zo:

Private Sub UserForm_Activate()
    On Error Resume Next
    A = Cells(2, 1).Resize(, 35)
    For j = 1 To 36
        Me("Teller" & (j - 1) \ 1 + 1) = A(1, j)
        If Int(Me("Teller" & j).Text) < 405 Or Int(Me("Teller" & j).Text) > 435 Then
            Me("Teller" & j).BackColor = 255
        End If
    Next j
End Sub

 

[ExcelTonnie]

Top bedankt hiervoor.

 

[edmoor]

Graag gedaan
En citeren is overbodig als je direct op het voorgaande bericht reageert.

 

[snb]

Private Sub UserForm_Initialize()
   sn = Cells(2, 1).Resize(, 35)

   For Each it In Controls
      If TypeName(it) = "TextBox" Then it.Text = sn(1, it.TabIndex + 1)
      If Abs((it.Text - 405) \ 30 <> 0) Then it.BackColor = vbRed
   Next
End Sub