VBA Farbe Code
28.09.2007 14:20:00
Maiks
zur Fabe-Füllung bestimmte Bereich eine Excel Datei, habe ein Code geschrieben.
diese funktioniert so weit super gut.
nur das Problem ist, bei Erweiterung die Bereiche wird der Code zu lang. und habe ein Fehler Meldung " Sub zu Groß".
hier habe ich meine Datei hochgeladen: https://www.herber.de/bbs/user/46420.xls
(diese funktioniert gut, nur kann ich keine weiter Bereich mehr zufügen)
hab ich nun mit hilf von zwei Variablen " i und k" meine code in eine "Schleife For-Next mit If-Funktion" versucht zu schreiben. leider irgendwie klap das nicht.
hier ist meine Code, bitte sage sie mir was ich falsch mache?
ich glaube meine Problem ist bei der Definition der Range
Vielen Dank im voraus
Private Sub Worksheet_Change(ByVal Targel As Range)
On Error GoTo Fehler
Application.ScreenUpdating = False
Dim i As Integer
Dim k As Integer
For i = 17 To 110
For k = 1 To 26
If Cells(i, k) = "Monteur" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 3
ElseIf Cells(i, k) = "Umrüsten" Or Cells(i, k) = "Einstellen" Or Cells(i, k) = " _
Einrichten" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 27
ElseIf Cells(i, k) = "hoch Prio" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 35
ElseIf Cells(i, k) = "Keine Teile" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 38
ElseIf Cells(i, k) = "kein Bedarf" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 15
ElseIf Cells(i, k) = "" And Cells(i - 10, k) = "steht" Then
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 15
Else
Range(Cells(i - 9, k), Cells(i - 2, k)).Interior.ColorIndex = 37
Exit For
End If
Next k
Next i
Fehler:
Application.ScreenUpdating = True
End Sub