Thema Datum  Von Nutzer Rating
Antwort
19.01.2018 11:46:17 Steffi
NotSolved
19.01.2018 12:55:33 Gast11640
NotSolved
22.01.2018 07:55:13 Steffi
NotSolved
22.01.2018 11:18:46 Gast44926
NotSolved
22.01.2018 11:40:04 Steffi
NotSolved
Blau Textfeld einfärben, wenn Text erkannt wird
23.01.2018 00:59:02 Gast73639
NotSolved
23.01.2018 01:03:51 Gast84738
NotSolved
24.01.2018 08:54:51 Steffi
NotSolved

Ansicht des Beitrags:
Von:
Gast73639
Datum:
23.01.2018 00:59:02
Views:
703
Rating: Antwort:
  Ja
Thema:
Textfeld einfärben, wenn Text erkannt wird

Hallo,

dann mal zwei Varianten, dies erste für ActiveX-Controls, die zweite für Formularsteuerelemente, Code wie bez. einfügen:

' **********************************************************************
' Modul: Tabelle1(Störmeldung) Typ: Klassenmodul des Tabellenblattes
' **********************************************************************

Option Explicit

Private Sub CheckBox1_Click()
Dim objOLEObject As OLEObject
For Each objOLEObject In Worksheets("Layout").OLEObjects
    With objOLEObject
        If .progID = "Forms.TextBox.1" Then
            With .Object
                If Val(.Text) = Cells(8, 4).Value Then
                  .BackColor = IIf(CheckBox1.Value, vbRed, vbYellow)
                  Exit For
                End If
            End With
        End If
    End With
Next
Set objOLEObject = Nothing
End Sub
' **********************************************************************
' Modul: Modul1 Typ: Standardmodul
' **********************************************************************

Option Explicit

Public Sub CheckBox1_Click()
Dim objTextBox As Excel.TextBox
For Each objTextBox In Worksheets("Layout").TextBoxes
    With ActiveSheet
        If Val(objTextBox.Text) = .Cells(8, 4).Value Then
           objTextBox.Interior.Color = IIf(.CheckBoxes(Application.Caller).Value = xlOn, vbRed, vbYellow)
           Exit For
        End If
    End With
Next
Set objTextBox = Nothing
End Sub

Gruß,


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.01.2018 11:46:17 Steffi
NotSolved
19.01.2018 12:55:33 Gast11640
NotSolved
22.01.2018 07:55:13 Steffi
NotSolved
22.01.2018 11:18:46 Gast44926
NotSolved
22.01.2018 11:40:04 Steffi
NotSolved
Blau Textfeld einfärben, wenn Text erkannt wird
23.01.2018 00:59:02 Gast73639
NotSolved
23.01.2018 01:03:51 Gast84738
NotSolved
24.01.2018 08:54:51 Steffi
NotSolved