Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Bedingte Formatierung für TextBoxen | Herbers Excel-Forum


Betrifft: Bedingte Formatierung für TextBoxen von: Markus
Geschrieben am: 22.07.2012 20:14:30

Hallo,

und noch eine (Anfänger-)Frage zu UserFormen: :-)

Ich verwende eine UserForm mit TextBoxen.
Gibt es hier auch die Möglichkeit einer bedingten Formatierung je nach Inhalt, so wie in einer normalen Tabelle ?

Ich suche nach einem Weg, dass sich die Textfarbe ändert, wenn der Inhalt der TextBox z.B. = "XXX" ist.

VG und vielen Dank Euch im Voraus,
Markus

  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Hajo_Zi
Geschrieben am: 22.07.2012 20:22:12

Hallo Markkus,

If Textbox1="xxx" then
' ' Rot
Textbox1.BackColor = &HFF&
Else
' ' Farblos
Textbox1.BackColor = &H8000000F
End If


GrußformelHomepage


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Markus
Geschrieben am: 22.07.2012 20:45:31

Hallo Hajo,

auch das klappt bestens !

VG und nochmals danke,
Markus


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Josef Ehrensberger
Geschrieben am: 22.07.2012 20:24:32


Hallo Markus,

die bedingte Formatierung kann nicht auf Steuerelemente angewandt werden.

In das Modul des UF.

Private Sub TextBox1_Change()
  If TextBox1 = "XXX" Then
    TextBox1.ForeColor = vbRed
  Else
    TextBox1.ForeColor = vbBlack
  End If
End Sub






« Gruß Sepp »



  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Markus
Geschrieben am: 22.07.2012 20:48:44

Hallo Sepp,

auch dieser Weg klappt super (Hajo hatte kurz vorher geantwortet) - vielen Dank dafür ! :-)

Ich habe noch eine ganz andere Frage zu UserFormen, hast Du dazu zufällig auch eine Idee ?

Ich suche nach einem Weg, eine UserForm durch Doppelklick auf die UserForm (UserForm7) kleiner zu machen und bei erneutem Doppelklick wieder die Ursprungsgröße (93.75 x 900) herzustellen.

Geht so etwas und weisst Du eventuell, wie ?

VG,
Markus


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Josef Ehrensberger
Geschrieben am: 22.07.2012 20:55:37


Hallo Markus,

da gibt es einige Möglichkeiten.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Const lngZoom As Long = 50 'Zoomfaktor
Private oldHeight As Long
Private oldWidth As Long

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Me.Zoom = 100 Then
    oldHeight = Me.Height
    oldWidth = Me.Width
    Me.Height = Me.Height * lngZoom / 100
    Me.Width = Me.Width * lngZoom / 100
    Me.Zoom = lngZoom
  Else
    Me.Height = oldHeight
    Me.Width = oldWidth
    Me.Zoom = 100
  End If
End Sub






« Gruß Sepp »



  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Markus
Geschrieben am: 22.07.2012 21:12:12

Hallo Sepp,

das klappt spitze und das trotz relativ kleinem Code. :-)
Vielen vielen Dank dafür !

VG und einen schönen Abend noch,
Markus


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Tim
Geschrieben am: 23.07.2012 00:45:39

Hallo Sepp,

sorry, ich habe noch eine Nachfrage zu diesem Code:

Ich wollte in einer Variante nur die Breite ändern und dabei zwischen 900 und 700 hin und herspringen, habe hier aber wohl etwas falsch gemacht.

Kannst Du mir sagen, wie ich den Code dafür anpassen müsste ?

VG und nochmals danke,
Tim


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Hajo_Zi
Geschrieben am: 23.07.2012 07:09:46

Hallo Tim,

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Me.Width = 900 Then
    Me.Width = 700
  Else
    Me.Width = 900
  End If
End Sub
Gruß Hajo


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Tim
Geschrieben am: 23.07.2012 08:29:42

Hallo Hajo,

vielen Dank dafür !

Genau so hatte ich es auch probiert.
Das funktioniert auch, allerdings nie beim ersten Mal. Hast

Die UserForm öffnet sich automatisch beim Öffnen der Tabelle mit Breite 900.
Klicke ich dann doppelt auf sie, wird die Breite nur minimal kleiner.
Ab dem 2. Doppelklick funktioniert dann alles so, wie es sein soll.

Du eine Idee, woran das liegen kann ?

VG,
Tim


  

Betrifft: AW: Bedingte Formatierung für TextBoxen von: Tim
Geschrieben am: 23.07.2012 08:54:17

Hallo Hajo,

ich habe den Fehler gefunden, die UserForm ist plötzlich 901 breit. Da muss ich wohl einmal geklickt haben, ohne es zu merken.

Mit Anpassung auf 900 klappt alles bestens !

VG und vielen Dank nochmal,
Tim


  

Betrifft: und noch eine Variante ... von: Matthias L
Geschrieben am: 23.07.2012 08:04:46

Hallo Tim

Geht auch als Einzeiler:

Me.Width = IIf(Me.Width = 700, 900, 700)
Gruß Matthias


Beiträge aus den Excel-Beispielen zum Thema "Bedingte Formatierung für TextBoxen"