Variablen Übernahme aus Inputbox
01.12.2018 23:33:57
Jay
In meiner Arbeit wird sehr häufig mit großen Tabellen gearbeitet. Bestimmte Werte, werden für eine bessere Übersicht mit einer "bedingten Formatierung" hervorgehoben.
Um die Bedienung zu erleichtern, wollte ich über Inputboxen die Werte "Bereich" (Range) und den "Wert" für die bedingte Formatierung abfragen und an das Makro als Variable übergeben.
Mit einigen Leseeinheiten hier im Forum und den Einsatz des Makrorecorders gelang es mir einiger Maßen.
Nun habe ich das Problem, dass der "Wert" für die bedingte Formatierung nicht übergeben wird. Ich hoffe ihr könnt mir weiterhelfen, wo mein Fehler dabei ist und vielleicht noch kurz Beschreiben warum das nicht funktionierte, oder wo ich das nachlesen kann.
Vielen Dank schon mal im Voraus.
Greeting Jay
Hier der Code:
Sub M04_BedVar()
' bedingte Formatierung - Variable - Inputbox
Dim Bereich As Range
Dim TEXFORM As String
On Error Resume Next
TEXFORM = ""
Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", _
"Bereich wählen", , , , , , 8)
On Error GoTo 0
Range(Bereich.AddressLocal).Select
' nach WAS? soll bedingt Formatiert werden
' Eingabe des Wertes über Inputbox
TEXFORM = InputBox("Bitte geben sie den Fixwert ein:")
If TEXFORM = "" Then Exit Sub
Bereich.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=" & TEXFORM
Bereich.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Bereich.FormatConditions(1).Font
.Color = vbRed
End With
With Bereich.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = vbGreen
End With
End Sub