Textbox 383 bis 718 mehrere Bedingungen zahl bed. format

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

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

Beliebteste Forumthreads (12 Monate)

Textbox 383 bis 718 mehrere Bedingungen zahl bed. format

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox 383 bis 718 mehrere Bedingungen zahl bed. format

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread