Formatierungen der Zellen mit einer TextBox

Sub Makro1() ' Makro1 Makro Selection.FormatConditions.Add Type:=xlTextString, String:="blablabla", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .Pattern = xlNone .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bruce,
per Textbox-Eingabe die bedingte Formatierung eines Bereiches zu ändern ist leider nicht trivial.
Folgender Code funktioniert unter EXCEL 2003. Ich hab auch mal deinen mit Excel 2007 aufgezeichneten Code für die LostFocus-Prozedur angepasst, weiss aber nicht ob er läuft.
Den Code muss du im VBA-Editor unter dem entsprechenden Tabellenblatt einfügen.
Der Code merkt sich immer den aktuell selektierten Zellbereich. Wird die Textbox gewählt (bekommt den Focus), dann wird das Merken des Zellenbereiches per Variable boBox blockiert.
Wenn nach der Eingabe des Suchbegriffs wieder eine Zelle in der Tabelle selektiert wird, dann wird die bedingte Formatierung neu gesetzt und das Merken des selektierten Bereichs wieder freigegeben.
Gruß
Franz


Private rngBereich As Range, boBox As Boolean
Private Sub TextBox1_GotFocus()
boBox = True
End Sub
'Textbox-Code für Excel 2003
Private Sub TextBox1_LostFocus()
With rngBereich
.Range("a1").Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(SUCHEN(""" & Me.TextBox1.Value & """;" & _
Replace(rngBereich.Range("a1").Address, "$", "") & ";1);WAHR;FALSCH)"
With .FormatConditions(1).Interior
.Pattern = xlNone
End With
End With
boBox = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If boBox = False Then
Set rngBereich = Selection
End If
End Sub
'Textbox-Code für Excel 2007 ?
Private Sub TextBox1_LostFocus()
With rngBereich
.Range("a1").Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlTextString, String:=Me.TextBox1.Value, _
TextOperator:=xlContains
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.Pattern = xlNone
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
boBox = False
End Sub

Option Explicit Private rngBereich As Range Private Sub CommandButton1_Click() 'Schliessen - Button Unload Me End Sub 'Textbox-Code für Excel 2003 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With rngBereich .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=WENN(SUCHEN(""" & Me.TextBox1.Value & """;" & _ Replace(rngBereich.Range("a1").Address, "$", "") & ";1);WAHR;FALSCH)" With .FormatConditions(1).Interior .Pattern = xlNone End With End With End Sub 'Textbox-Code für Excel 2007 ? Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With rngBereich .FormatConditions.Delete .FormatConditions.Add Type:=xlTextString, String:=Me.TextBox1.Value, _ TextOperator:=xlContains .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Interior .Pattern = xlNone .TintAndShade = 0 End With .FormatConditions(1).StopIfTrue = False End With boBox = False End Sub Private Sub UserForm_Activate() Set rngBereich = Selection End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With rngBereich .FormatConditions.Delete .FormatConditions.Add Type:=xlTextString, String:=Me.TextBox1.Value, _ TextOperator:=xlContains .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Interior .Pattern = xlNone .TintAndShade = 0 End With .FormatConditions(1).StopIfTrue = False End With ' boBox = False End Sub

Beliebteste Forumthreads (12 Monate)

Formatierungen der Zellen mit einer TextBox

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierungen der Zellen mit einer TextBox

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread