Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung für TextBoxen

Bedingte Formatierung für TextBoxen
Markus
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
AW: Bedingte Formatierung für TextBoxen
22.07.2012 20:22:12
Hajo_Zi
Hallo Markkus,
If Textbox1="xxx" then
' ' Rot
Textbox1.BackColor = &HFF&
Else
' ' Farblos
Textbox1.BackColor = &H8000000F
End If

AW: Bedingte Formatierung für TextBoxen
22.07.2012 20:45:31
Markus
Hallo Hajo,
auch das klappt bestens !
VG und nochmals danke,
Markus
AW: Bedingte Formatierung für TextBoxen
22.07.2012 20:24:32
Josef

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 »

Anzeige
AW: Bedingte Formatierung für TextBoxen
22.07.2012 20:48:44
Markus
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
AW: Bedingte Formatierung für TextBoxen
22.07.2012 20:55:37
Josef

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 »

Anzeige
AW: Bedingte Formatierung für TextBoxen
22.07.2012 21:12:12
Markus
Hallo Sepp,
das klappt spitze und das trotz relativ kleinem Code. :-)
Vielen vielen Dank dafür !
VG und einen schönen Abend noch,
Markus
AW: Bedingte Formatierung für TextBoxen
23.07.2012 00:45:39
Tim
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
AW: Bedingte Formatierung für TextBoxen
23.07.2012 07:09:46
Hajo_Zi
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
Anzeige
AW: Bedingte Formatierung für TextBoxen
23.07.2012 08:29:42
Tim
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
AW: Bedingte Formatierung für TextBoxen
23.07.2012 08:54:17
Tim
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
Anzeige
und noch eine Variante ...
23.07.2012 08:04:46
Matthias
Hallo Tim
Geht auch als Einzeiler:
Me.Width = IIf(Me.Width = 700, 900, 700)
Gruß Matthias

330 Forumthreads zu ähnlichen Themen

Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Cursor springt in Pampa (MultiLine TextBox)
Kilo

Hallo liebe VBA Profis
(Danke an Jürgen, der sich meines Problems annehmen wollte, aber der UpLoad meiner Datei war irgendwie fehlgeschlagen - hier der 2. Versuch)
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene...
11.08.2008 12:15:00
Thread-ID: 1000795
5 Beiträge
In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
Externen Datensatz in TextBox einfügen
Wolfgang

Hallo,
Nachdem ich Ihr mir schon einmal sehr geholfen habt, versuche ich es noch einmal:
Ein Datensatz wird aus einer Datenbank (keine Access-Datenbank) ins Clipboard kopiert, danach in Excel eine UserForm mit einer TextBox geöffnet, die den Datensatz aufnehmen und danach an ein Excel-T...
19.09.2008 16:28:23
Thread-ID: 1011092
8 Beiträge
Druckerauswahl in TextBox 'auslagern'
Henner

Hi,
ich drucke (erzeuge) in meiner Mappe über den folgenden Code (ein PDF File):
Sub Print() Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "FreePDF XP auf Ne02:", Collate:=True Application.ActivePrinter = "Brother...
07.10.2008 11:58:00
Thread-ID: 1014674
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
4
2
4
9
4
5
7
1
2
2
2
2
3
3
1
4
9
9
2
2
5
2
1