Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1968to1972
1968to1972
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox 383 bis 718 mehrere Bedingungen zahl bed. format

Forumthread: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format

Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
27.03.2024 16:16:15
Achim H.
Hallo Excel kenner,

ich möchte in meiner UserformTermin die Textboxen 383 bis 718 die Schrift farblich dargestellt haben . Eigentlich Ampelfarben.



ist der Inhalt in der textboxen 1 bis 6 dann den Font grün
ist der Inhalt der textboxen 7 bis 9 dann gelb
ist der inhalt der textboxen 10 bis 30 dann rot


Wer kann mir bei einer VBA Lösung behilflich sein.

Gruß Achim H.



Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
27.03.2024 16:33:24
Oberschlumpf
Hi,

hier https://www.herber.de/forum/messages/1971211.html hattest du doch schon mal die gleiche Frage gestellt, oder?!
Wieso fehlen denn im "alten Beitrag" noch immer von dir die Antworten zu den Ideen?

Ciao
Thorsten
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 14:15:18
Achim H.
Zunächst möchte ich mich entschuldigen. Mir war das Verfahren hinsichtlich der Beantwortung und Form nicht bewusst. Natürlich möchte ich mich bei allen Helfern bedanken und werde darauf achten die richtige Vorgehensweise zu beachten. Sorry nochmal war wirklich nicht beabsichtigt. Ich möchte nicht als A.........loch gesehen werden. Ich hoffe ihr mir verzeihen. Gruß Achim H.
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 17:14:53
ralf_b
Du möchtest dich entschuldigen? Das geht, indem du in dem anderen Thread, "endlich" eine Antwort gibst. Ist doch gar nicht so schwer zu verstehen. Niemand wird später hier nachlesen wie reumütig du doch bist.
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
27.03.2024 17:12:25
Achim H.
Hallo Oberschlupf,

oh. Sorry. ich kam mit den Lösungsvorschlägen erheblich weiter. Meine jetzige Frage ist eine geringfügige andere. Also, ich bekomme das nicht hin eine Ampelfunktion wie beschrieben zu programmieren. Kannst du oder jemand mal schauen. Dankeschön
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
27.03.2024 17:49:11
Oberschlumpf
Hi Achim,

a) leider kann zumindest ich dir nicht helfen, weil ich keine Idee habe
b) wäre es echt cool, wenn DU im alten Beitrag mal auf die Ideen der Anderen antwortest...ich finde, das ist das Mindeste, was Fragende tun sollten, wenn ihnen (nicht nur hier) immer wieder kompetent geholfen wird!

Ciao
Thorsten
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 09:48:40
ralf_b
ob deine jetzige Frage eine Andere ist ,ist erstmal egal. Dein Verhalten ist nicht so ok das man dir gern nochmal helfen will. Für Helfer ist es wichtig zu erfahren ob die Lösungsvorschläge passen. Auch für andere User, die die Threads später lesen ist diese Information hilfreich. Möchtest du hier eines der Arschl...... sein, die durch Ihren Egoismus die Gemeinschaftsidee der Foren wo Menschen mit Problemen Hilfe zuteil wird, in den Schmutz ziehen. Wie oft hast du denn In Forenbeiträgen schon Lösungen für dich gefunden? Und warum waren diese hilfreich? Unter Anderem deshalb weil der Fragende die Lösung entsprechend bewertet hat.
Also mach deinen Job als Frager im anderen Thread gefälligst fertig.
Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 09:08:24
schauan
Hallo,

schaue Dir in dem anderen Thread die Lösung von Karin genauer an.
Sie schreibt

For intBox = 2 To 237

die 2 und die 237 sollten eventuell den "Grenzzahlen" der betroffenen Textboxen entsprechen. Bin ich mir jetzt nicht so sicher, in Deinem Betreff stand was von 1 bis 320 und in Deinem Text was von 2 bis 367.
Ist aber egal. Du solltest da verstanden haben, dass es eine entsprechende Schleife ist. Da müsstest Du die Zahlen wie benötigt austauschen.

Die nächste Zeile dort ist

Me.Controls("TextBox" & intBox) = Worksheets("Listen").Cells(intBox, 15)

Das sollte auch verständlich sein, das ist wie in der Mathematik eine Gleichung, links der Teil wird dem rechten Teil gleichgesetzt. Willst Du hier nicht haben, also weglassen.

Was ist da sonst noch von Interesse? "TextBox" sollte klar sein, und wenn die eine Nummer haben, ist die Bedeutung von ("TextBox" & intBox) auch ableitbar.
Controls könnte man als Gruppe von Objekten bezeichnen, wo die Textbox dazu gehört. Und mit Me ist nicht der vor dem PC gemeint, sondern das UF, wo der Code drin steht. Cells(intBox, 15) erklär ich jetzt aber nicht noch ...

dann kommt

If Me.Controls("TextBox" & intBox).Value = "Sa" Then

If und Then ist zu deutsch wenn und dann. (Nicht nur) Vermutlich soll da nur dann was passieren, wenn das dazwischen passt.

Eine Deiner Bedingungen wäre ist der Inhalt in der textboxen 1 bis 6 dann den Font grün.
Also nix mit Sa
Falls in Deiner Textbox immer mindestens 1 steht, könnte man also auf 06 prüfen. Falls nicht, müsstest Du mit >=1 und =6 prüfen - musst aber die quelle der Zahl bei jeder Bedingung angeben.

dann kommt das Einfärben, da schreibe ich jetzt auch nix dazu, und danach

ElseIf Me.Controls("TextBox" & intBox).Value = "So" Then

also die nächste Bedingung. Dann wieder Einfärben und weil es bei Dir noch einen dritten Fall gibt brächtest Du nochmals

ElseIf Me.Controls("TextBox" & intBox).Value = "So" Then

beides natürlich mit Deinen neuen Bedingungen usw.

Dann nochmal Einfärben und dann endlich End If.










Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 14:19:41
Achim H.
Dankeschön ich werde mich mal austoben und das Ergebnis in das Forum stellen.
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 14:44:29
Achim H.
Hallo Excel Freunde,

ich habe mal Probiert aber leider wird in den Textboxen kein Inhalt gezeigt. kann doch mal jemand schauen. Nun da ich dazu gelernt habe melde ich mich und teile mein Ergebnis mit. Danke

Me.TextBox383.Text = Sheets("Listen").Range("Q2").Value
Me.TextBox384.Text = Sheets("Listen").Range("Q3").Value
Me.TextBox385.Text = Sheets("Listen").Range("Q4").Value
Me.TextBox386.Text = Sheets("Listen").Range("Q5").Value
Me.TextBox387.Text = Sheets("Listen").Range("Q6").Value

bis Textbox 718

Dim intbox As Integer
For intbox = 2 To 367
Me.Controls("TextBox" & intbox) = Worksheets("Listen").Cells(intbox, 15)
If Me.Controls("TextBox" & intbox).Value = "Sa" Then
Me.Controls("TextBox" & intbox).ForeColor = vbBlue
ElseIf Me.Controls("TextBox" & intbox).Value = "So" Then
Me.Controls("TextBox" & intbox).ForeColor = vbRed
End If
Next intbox



Dim intbox1 As Integer
For intbox1 = 383 To 718
Me.Controls("TextBox" & intbox1) = Worksheets("Listen").Cells(intbox1, 18)
If Me.Controls("TextBox" & intbox1).Value = "8" Then
Me.Controls("TextBox" & intbox1).ForeColor = vbGreen
ElseIf Me.Controls("TextBox" & intbox1).Value = ">8" Then
Me.Controls("TextBox" & intbox1).ForeColor = vbRed
End If
Next intbox1

Anzeige
AW: Textbox 383 bis 718 mehrere Bedingungen zahl bed. format
28.03.2024 16:36:28
schauan
Hallöchen,

aber leider wird in den Textboxen kein Inhalt gezeigt

in allen? Was steht in den Zellen?

Gib z.B. im Überwachungsfenster eine neue Überwachung ein - oder mehrere, z.B. Sheets("Listen").Range("Q2").Value
oder auch
Worksheets("Listen").Cells(intbox1, 15)
oder auch
Worksheets("Listen").Cells(intbox1, 18)
...


übrigens, das "Sa" ist ein Text und das auch "8". Steht denn "8" in der Textbox? ich dachte, Du wolltest schauen, ob das, was da drin steht, 8 ist und nicht ="8" ...
Anzeige

Forumthreads zu verwandten Themen

unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Anzeige
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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