rostie-rostelli
Gebruiker
- Lid geworden
- 13 okt 2005
- Berichten
- 229
Hallo,
Ik heb een excel document waar heel wat VBA script instaat om mijn celopmaak automatisch te voorzien van de gepaste tekst en cel kleur naar gelang de inhoud, dit heeft altijd perfect gewerkt, toch plots wil deze VBA script niet meer werken, kan ik ongewild ergens een optie in of uitgeschakeld hebben die dit script belet zich uit te voeren....??
Weet iemand raad aub? hierbij het script.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D3:Z368]) Is Nothing Then
Select Case Target.Value
Case "DA", "DA/A", "DA/P"
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 3
Case "CR/68", "CR/69", "CR/70", "CR/71", "CR/72", "CR/73", "CR/74", "CR/75", "CR/77"
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Case "1", "2", "3"
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 6
Case "3D"
Target.Interior.ColorIndex = 35
Target.Font.ColorIndex = 1
Case "ED"
Target.Interior.ColorIndex = 45
Target.Font.ColorIndex = 1
Case "PN"
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 1
Case "0079+", "79+/A", "79+/P"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 1
Case "R"
Target.Interior.ColorIndex = 37
Target.Font.ColorIndex = 1
Case "R32", "R32/A", "R32/P", "01/A", "01/P", "RC", "RC/P", "RC/A", "0044", "44/P", "44/A", "0079", "79/P", "79/A", "0029", "29/P", "29/A", "0048", "0501", "0081", "81/h", "73/?", "74/?", "F", "0092"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "73/0,5", "73/1", "73/1,5", "73/2", "73/2,5", "73/3", "73/3,5", "73/4", "73/4,5", "73/5", "73/5,5", "73/6", "73/6,5", "73/7", "73/7,5", "73/8"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "74/0,5", "74/1", "74/1,5", "74/2", "74/2,5", "74/3", "74/3,5", "74/4", "74/4,5", "74/5", "74/5,5", "74/6", "74/6,5", "74/7", "74/7,5", "74/8"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "Z/M", "AT"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 1
Case "PMP", "TMT", "SMS", "BMB", "T"
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 1
Case "VM"
Target.Interior.ColorIndex = 37
Target.Font.ColorIndex = 3
Case "DRD"
Target.Interior.ColorIndex = 38
Target.Font.ColorIndex = 1
Case "DRJB"
Target.Interior.ColorIndex = 26
Target.Font.ColorIndex = 1
Case "CR/?"
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Case "RCY+"
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Case "RCY"
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 1
Case "ECO"
Target.Interior.ColorIndex = 23
Target.Font.ColorIndex = 1
Case "FF/1", "FF/1,5", "FF/2", "FF/2,5", "FF/3", "FF/3,5", "FF/4", "FF/4,5", "FF/5", "FF/5,5", "FF/6", "FF/6,5", "FF/7", "FF/7,5", "FF/8"
Target.Interior.ColorIndex = 43
Target.Font.ColorIndex = 1
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub
Ik heb een excel document waar heel wat VBA script instaat om mijn celopmaak automatisch te voorzien van de gepaste tekst en cel kleur naar gelang de inhoud, dit heeft altijd perfect gewerkt, toch plots wil deze VBA script niet meer werken, kan ik ongewild ergens een optie in of uitgeschakeld hebben die dit script belet zich uit te voeren....??
Weet iemand raad aub? hierbij het script.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D3:Z368]) Is Nothing Then
Select Case Target.Value
Case "DA", "DA/A", "DA/P"
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 3
Case "CR/68", "CR/69", "CR/70", "CR/71", "CR/72", "CR/73", "CR/74", "CR/75", "CR/77"
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Case "1", "2", "3"
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 6
Case "3D"
Target.Interior.ColorIndex = 35
Target.Font.ColorIndex = 1
Case "ED"
Target.Interior.ColorIndex = 45
Target.Font.ColorIndex = 1
Case "PN"
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 1
Case "0079+", "79+/A", "79+/P"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 1
Case "R"
Target.Interior.ColorIndex = 37
Target.Font.ColorIndex = 1
Case "R32", "R32/A", "R32/P", "01/A", "01/P", "RC", "RC/P", "RC/A", "0044", "44/P", "44/A", "0079", "79/P", "79/A", "0029", "29/P", "29/A", "0048", "0501", "0081", "81/h", "73/?", "74/?", "F", "0092"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "73/0,5", "73/1", "73/1,5", "73/2", "73/2,5", "73/3", "73/3,5", "73/4", "73/4,5", "73/5", "73/5,5", "73/6", "73/6,5", "73/7", "73/7,5", "73/8"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "74/0,5", "74/1", "74/1,5", "74/2", "74/2,5", "74/3", "74/3,5", "74/4", "74/4,5", "74/5", "74/5,5", "74/6", "74/6,5", "74/7", "74/7,5", "74/8"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 3
Case "Z/M", "AT"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 1
Case "PMP", "TMT", "SMS", "BMB", "T"
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 1
Case "VM"
Target.Interior.ColorIndex = 37
Target.Font.ColorIndex = 3
Case "DRD"
Target.Interior.ColorIndex = 38
Target.Font.ColorIndex = 1
Case "DRJB"
Target.Interior.ColorIndex = 26
Target.Font.ColorIndex = 1
Case "CR/?"
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Case "RCY+"
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 2
Case "RCY"
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 1
Case "ECO"
Target.Interior.ColorIndex = 23
Target.Font.ColorIndex = 1
Case "FF/1", "FF/1,5", "FF/2", "FF/2,5", "FF/3", "FF/3,5", "FF/4", "FF/4,5", "FF/5", "FF/5,5", "FF/6", "FF/6,5", "FF/7", "FF/7,5", "FF/8"
Target.Interior.ColorIndex = 43
Target.Font.ColorIndex = 1
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub