Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Format. für %Feld in Textbox

bedingte Format. für %Feld in Textbox
24.03.2023 17:33:08
Fred

Hallo Excel Profis,
ich habe ein Problem mit einer bedingten Formatierung in einer TextBox6
Zuvor lade ich Werte in TextBox6, so:

UserForm1.TextBox6.Value = Format(UserForm1.TextBox6.Value, "0.00 %")

Nun möchte ich, dass wenn der Wert 0 ist, die TextBox6 eine rote HG Farbe bekommt.
mein augenblicklicher Code:
Private Sub TextBox6_Change()
Dim val As Double
val = Val(UserForm1.TextBox6.Value)
If val  0 Then
' Rot
TextBox6.BackColor = &HFF&
Else
TextBox6.BackColor = &H80000001
End If
End Sub

erzeugt die Fehlermeldung: Erwarte Datenfeld

Kann mir bitte jemand dabei helfen, entsprechende bedingte Formatierung umzusetzen?

Gruss
Fred

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 17:45:30
Daniel
Hi
Wenn du deine Variablen genauso benennst wie die Funktion, kann Excel durcheinander kommen.
Besser sind eigenständige Namen.
Beachte, dass die Funktion VAL immer nach den amerikanischen Vorgaben arbeitet, dh. das Dezimalzeichen ist der Punkt.
Deine Format-Funktion wird aber das Deutsche Komma verwenden.
Du solltest mit CDBL umwandeln, das arbeitet gemäß Ländereinstellung.

Gruß Daniel


AW: bedingte Format. für %Feld in Textbox
24.03.2023 17:55:48
Fred
Hallo Daniel,
ich habe deinen Ansatz mal so übernommen:
   Dim val As Double
   val = CDbl(Me.TextBox6.Value)
   Me.TextBox6.Value = Format(val, "0.00 %")
   
   If val  0 Then
      ' Rot
      Me.TextBox6.BackColor = &HFF&
   Else
      Me.TextBox6.BackColor = &H80000001
   End If
Nun aber kommt die Meldung: Typen unverträglich

Hast du eine weitere Idee?

Gruss
Fred


Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:01:45
Daniel
nö
ich habe noch zu wenig informationen.
Du wirst ja Gründe haben, warum du uns verschweigst, in welcher Zeile der Fehler auftritt und warum diu weiterhin die Variablenbezeichungn val verwendest, obwohl ich dir geschrieben habe, dass du das nicht tun sollst.
Gruß Daniel


AW: bedingte Format. für %Feld in Textbox
24.03.2023 17:52:34
volti
Hallo,

hier mal eine Anregung, wobei ich Deine zweite Farbe jetzt nicht verstanden habe.....

Code:


Private Sub TextBox6_Change()
  With Me.TextBox6
      .BackColor = IIf(val(.Value) < 0, vbRed, RGB(210, 210, 210))
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz



Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:00:03
volti
Nachtrag:

Eigentlich müsste es ja ausreichen, auf das Minuszeichen zu prüfen, denn nur dann ist eine Zahl ja kleiner 0, egal ob AMI odr nicht.

Code:


Private Sub TextBox6_Change()
  With Me.TextBox6
      .BackColor = IIf(.Value Like "-#*", vbRed, RGB(210, 210, 210))
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz



Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:00:53
Fred
Hallo Karl-Heinz,
BOMBE !!
  With Me.TextBox6
      .BackColor = IIf(val(.Value)  0, vbRed, RGB(210, 210, 210))
      .BackColor = IIf(val(.Value) = 0, vbGreen, RGB(210, 210, 210))
  End With
Vielen, Vielen Dank, ich war schon ein bischen am verzweifeln.

Gruss
Fred


AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:09:38
volti
Hallo Fred,

schön, wenn's jetzt klappt aber Deinen Code habe ich nicht verstanden.

Es kommt doch jetzt immer grün oder grau rauskommen und niemals rot, oder?
Denn die erste Bedingung wird ja immer durch die zweite kaputt gemacht.

Gruß KH


Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:08:30
Fred
Hallo Karl-Heinz,
und nu bin ich auf den Trichter gekommen :-)
Private Sub TextBox6_Change()
   With Me.TextBox6
      .BackColor = IIf(Val(.Value)  0, vbRed, vbGreen)
   End With
End Sub
Klappt aber nur bedingt, noch

Gruss
Fred


AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:29:45
Daniel
Hi
bei einer Textbox kann man auch schauen, ob ein "-" drin steht:

Private Sub TextBox6_Change()
   With Me.TextBox6
      .BackColor = IIf(.Text Like "-*", vbRed, vbGreen)
   End With
End Sub
Gruß Daniel


Anzeige
AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:38:12
volti
Hi,

den Vorschlag hatte ich schon gemacht, (wahrscheinlich keiner gelesen), aber noch mit zusätzlichem #, damit es auch wirklich eine Zahl ist und erst rot wird, wenn mindestens eine Ziffer drin ist.

.BackColor = IIf(.Value Like "-#*", vbRed, vbgreen)

Gruß KH


AW: bedingte Format. für %Feld in Textbox
24.03.2023 18:58:57
onur 
Private Sub TextBox6_AfterUpdate()
    Dim v
    With Me.TextBox6
        v = -255 * (Val(.Value) >= 0)
        .BackColor = RGB(255 - v, v, 0)
    End With
End Sub

134 Forumthreads zu ähnlichen Themen

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
Anzeige
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Textformat in Zahl umwandeln
Josef

Hallo!
Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
09.07.2009 11:34:12
Thread-ID: 1087382
6 Beiträge
Anzeige
Textformat in Zelle mit Formel
joerg

Hallo,
Ich hätte gern in einer Zelle in der Kopfzeile eine Mischung aus Text und Werten aus anderen Zellen, etwa so:
A B Total: 1 netto 1234,56 brutto 2345,67 2 Dabei hätte ich gern das Wort "Total" fett und schwarz, die beiden anderen Zeilen klein...
10.02.2010 01:20:13
Thread-ID: 1137218
6 Beiträge
Bedingte Formatierung für Texte
Werner

Hallo,
ich möchte per bedingte Formatierung erreichen, dass Texte unterschiedliche Hintergrundfarben bekommen.
Gibt man z.B. "Qualität" ein, so soll auch später das Wort wieder die gleiche Hintergrundfarbe erhalten.
Dazu habe ich nun bereits mehrere Regeln erstellt, ich wollte damit...
01.03.2010 16:48:06
Thread-ID: 1142432
11 Beiträge
Benutzerdefiniertes Format bei Text (kein VBA)
Tino

Hallo,
ich beiße mir gerade an etwas die Zähne aus.
Wenn ich eine 10 Stellige Zahl (Bsp. 1111111111) in einer Zelle so darstellen möchte
1 111 111 111 (Leerzeichen zwischen den Zahlen),
kann ich dies übers Benutzerdefinierte Format '0 000 000 000' einstellen.
Aber was wenn...
10.03.2010 16:43:40
Thread-ID: 1144943
14 Beiträge
Text im Format 00/00/0000 in Datum umwandeln
Mike

Hi Ihr,
ich erstelle per Formel durch Verketten von Texten einen Eintrag im Datumsformat, der dann z.B. so aussieht: 25/01/2010
Diese Texte stehen in Spalte A meiner Tabelle.
Weiss jemand, wie ich einen solchen Text per Formel in ein echtes Datum umwandeln kann ?
VG u. vielen...
20.04.2010 15:48:36
Thread-ID: 1152920
8 Beiträge
Excel-Tabellen in Word umwandeln
joko0803

Hallo alle,
ich bin nicht sicher, ob dieses Thema hier her gehört.
Falls nein, wäre ich für das Benennen eines entsprechenden Forums dankbar.
In einem Word Dokument habe ich viele Excel-Tabellen eingebunden.
Dieses Word Dokument muss ich an eine Behörde zur Weiterverarbeitung ve...
07.05.2010 16:29:49
Thread-ID: 1156132
6 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
4
9
2
5
4
5
10
13
7
5
3
7
2
2
2
3
2
4
4
2
13
7
11
3
2