hallo
ich hab folgenden code: dieser bewirkt, dass eine inputbox aufgerufen wird, der benutzer wird aufgefordert einen prozentwert einzugeben und alle werte in der spalte "m", die über dem eingegebenen wert sind, werden rot markiert.
Sub formatierung()
Dim wert As Variant
wert = InputBox("Bitte geben Sie einen Prozentsatz für die relative Abweichung ein!" & vbCrLf & "Eingabe entweder mit %-Zeichen oder als Wert zwischen 0 und 1", "Parametereingabe")
If Not IsNumeric(wert) Then
MsgBox ("Der angegebene Prozentsatz muss eine Zahl sein!" & vbCrLf & "Eingabe entweder mit %-Zeichen oder als Wert zwischen 0 und 1")
Exit Sub
End If
Range("m22:m131").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:=wert
Selection.FormatConditions(1).Interior.ColorIndex = 3
ich möchte aber, dass wenn z.B. die zelle "m24" markiert wird, weil da der wert den wert, der in der inputbox eingegeben wurde, übersteigt, auch die zellen nebenbei, also "n24" und "o24" markiert werden.
ich hoffe, dass mir da jemand so schnell wie möglich weiterhelfen kann, danke jetzt schon im voraus
mfg thomas