betroffene Zeile finden
02.12.2017 23:54:25
Thomas
ich bin gerade dabei mir ein Macro zusammen zuschreiben das mir unter bestimmten Bedingungen bestimmte Zellen Farbig markiert.
Folgendes habe ich schon
Dim oCell As Range 'Zellen sind ein Range-Objekt und auch so definiert
For Each oCell In oRgn.Cells
'Guck dir jede Zelle des Range an
If CLng(oCell.Text) = 1 Then 'Wenn der Wert größer als 5 mache etwas
With oCell
.ClearFormats ' formate löschen
.Font.Bold = True
.Interior.ColorIndex = Tabelle5.Range("b8").Value
.Font.ColorIndex = 2
End With
End If
Next
Mit diesem Teil kann ich alle Zellen in der eine 1 steht mit der Hintergrundfar aus der Zelle Tabelle5.Range("b8") färben. Genau dies b8 ist zu statisch. Denn der benötigte colorIndex steht in der Spalte B in der jeweiligen zeile der gefundenen Zelle,
Beispiel: in der Zelle F 9 steht eine 1 ( wird mit einer Formel ermittelt ) nun möchte ich diese Zelle mit dem Colorindex färben der in B 9 steht. Wird in der Zelle G10 eine 1 gefunden so steht der Colorindex in der Zelle B10 unsw.
Das oben stehende Macro starte ich mit
Private Sub CommandButton1_Click()
'Sub test()
'Teste den Bereich A1:C3
Call Farbe_auslesen
formatRange Tabelle4.Range("d4:sh18")
im Beispiel habe ich versucht das Problem besser zu beschreiben
https://www.herber.de/bbs/user/118068.xlsm
kann mir jemand zeigen wie ich es besser machen könnte?
habt schon mal besten dank für euer Interesse.
mfg thomas