Aktuelle Zeile - In Range - Feld einfärben
01.06.2018 08:01:06
Alexander
gerne würde ich nochmal eure Hilfe in Anspruch nehmen. Ich habe ein Script was bestimmte Felder überprüft und je nach Inhalt dann andere Felder füllt oder einfärbt.
Hier ist ein Teil des Scripts For Each rngCell In Range("E8:E200") Select Case rngCell.Value Case "Grundplatte" If Range("G4") = "Lehre" Then 'Wenn als Werkzeugbezeichnung in F4 Lehre eingetragen _ _ wurde dann ist die Grundplatte aus Alu rngCell.Offset(0, 1).Value = "Alu" ElseIf Not Range("G4") = "Vorserie" Then 'Wenn als Werkzeugbezeichnung nicht _ Vorserie steht dann ST52 eintragen, bei Vorserie frei lassen rngCell.Offset(0, 1).Value = "ST52" rngCell.Offset(0, 2).Value = "brennen" End If Case "Zwischenplatte" rngCell.Offset(0, 1).Value = "ST52" rngCell.Offset(0, 2).Value = "brennen" Case "Leiste" rngCell.Offset(0, 1).Value = "ST52" rngCell.Offset(0, 2).Value = "brennen" Case "Kopfplatte" rngCell.Offset(0, 1).Value = "ST52" rngCell.Offset(0, 2).Value = "brennen" Case "Abstreifplatte" rngCell.Offset(0, 1).Value = "1.2379" Case "Druckplatte" rngCell.Offset(0, 1).Value = "1.2379" Case "Schneidmatrize" rngCell.Offset(0, 1).Value = "1.2379" Case "Halteplatte" rngCell.Offset(0, 1).Value = "1.1730" Case "Biegestempel" rngCell.Offset(0, 1).Value = "1.2379" Case "Biegeeinsatz" rngCell.Offset(0, 1).Value = "1.2379" Case "Einsatz" rngCell.Offset(0, 1).Value = "1.2379" Case "Heberplatte" rngCell.Offset(0, 1).Value = "1.2379" Case "Keil" rngCell.Offset(0, 1).Value = "1.1730" Case "Verriegler" rngCell.Offset(0, 1).Value = "1.1730" Case "Streifenführung" rngCell.Offset(0, 1).Value = "1.1730" Case "Druckplatte" rngCell.Offset(0, 1).Value = "1.2379" Case "Druckstück" rngCell.Offset(0, 1).Value = "1.2379" Case "Prägestempel" rngCell.Offset(0, 1).Value = "1.2379" Case "Prägeeinsatz" rngCell.Offset(0, 1).Value = "1.2379" Case "Rückenführung" rngCell.Offset(0, 1).Value = "1.2379" Case "Aufnahme" rngCell.Offset(0, 1).Value = "1.2379" Case "Distanzplatte" rngCell.Offset(0, 1).Value = "1.2379" Case "Trennmatrize" rngCell.Offset(0, 1).Value = "1.2379" Case "Signaturhalter" rngCell.Offset(0, 1).Value = "1.2379" Case "Erodierblock" rngCell.Offset(0, 1).Value = "1.2379" End Select Next rngCell Jetzt möchte ich das erweitern. Wenn also in Spalte E das Wort Halteplatte auftaucht, wird in dem Feld rechts daneben (Offset(0,1)) der Wert 1.1730 eingetragen.
Jetzt möchte ich an der Stelle überprüfen ob der Wert in Spalte J (aktuelle Zeile) den Wert 30 oder höher hat und dieses Feld dann einfärben.
einfärben würde ich dann mit
rngCell.Offset(0, 5).Interior.ColorIndex = 26
Ich bekomme nur den Bezug zur Zeile nicht hin.
So in etwa habe ich mir das gedacht.
Case "Halteplatte"
rngCell.Offset(0, 1).Value = "1.1730"
If (aktuelleZeileSpalteJ) => "30" Then
rngCell.Offset(0, 5).Interior.ColorIndex = 26
End If
Danke für die Hilfe :)