Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textboxen nach Zahl in Textbox einblenden

Forumthread: Textboxen nach Zahl in Textbox einblenden

Textboxen nach Zahl in Textbox einblenden
09.07.2024 21:30:18
Helmut
Hallo liebes Forum und liebe Mitglieder
Ich habe folgendes anliegen, ich möchte in einer Userform Textboxen einblenden wenn eine Zahl in Textbox1 eingetragen wird.
z.B. Textbox1 bekommt eine zahl zugewiesen aus einer Zelle von einer Tabelle diese Zahl oder Variable soll mir dann endsprechende Anzahl Textboxen auf der Userform einblenden/ausblenden. Begrenzt soll soll das ganze auf max 50 Textboxen begrenzt werden. Im Anschluss sollen die werte in den Textboxen2 bis X zusammen addiert werden und durch die Anzahl der Textboxen ab Textbox2 bis Textbox X geteilt werden.
Leider ist VBA nicht so mein ding und ich hoffe ihr könnt mir dabei behilflich sein .
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
09.07.2024 21:59:59
ralf_b
anm besten du erstellst die Userform und lädst die Datei hoch.
eine theoretische Besprechung bei deinen Kenntnissen dürfte hier nicht hilfreich sein.
AW: Textboxen nach Zahl in Textbox einblenden
10.07.2024 20:18:25
Helmut
Danke Ralf, und recht hast Du
Ich musste einfach diesen Gedanken zu Papier bringen bevor das alter einen wieder Streiche spielt.
Ich werde es in Zukunft berücksichtigen.
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
09.07.2024 22:14:05
Alwin Weisangler
Hallo Helmut,

mal ein Beispiel:
https://www.herber.de/bbs/user/170812.xlsm

Die Maße, Anzahl pro Zeile bzw. Abstände kannst du dir anpassen.
Hier braucht es auch noch keine Verarbeitung via Klasse.

Gruß Uwe
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
10.07.2024 20:23:56
Helmut
Danke Alwin für deine schnelle Antwort und deine Bemühungen das bringt schon ein stück weiter.
AW: Textboxen nach Zahl in Textbox einblenden
10.07.2024 13:21:03
daniel
Hi
1. erstelle die 50 Textboxen von Hand. Benenne sie Textbox1 bis Textbox50
verknüpfe die Textboxen mit einer Ausgabezelle, in dem du die Zelladresse in die Eigenschaft "ControlSource" der Textbox schreibst => Tabelle1!A1:A50
achte darauf, dass die Zeilennummer mit der Textboxnummer korrespondiert.
2. die Anzahl schreibst du jetzt in die Zelle B1 beispielsweise
3. deinen Mittelwert berechnest du in Zelle C1 mit der Formel: =Mittelwert(A1:Index(A:A;C1)
4. verknüpfe die Textbox für die Anzahl mit der Zelle B1
5. Erstelle eine Listbox und vernküpfe diese über die Eigenschaft RowSource mit der Zelle mit der Berechnungsformel. Die Listbox ist hier vorzuziehen, da sie das Formelergebnis zwar anzeigt, es aber nicht möglich ist, die Formel zu überschreiben (was bei der Textbox möglich wäre)
6. Schreibe für das Change-Event der Textbox mit der Anzahl folgenden Code:

for i = 1 to 50

me.Controls("Textbox" & i).Visible = (i = Clng(TextboxAnzahl.Value))
Next


damit kannst du die Aufgabe mit etwas mehr einmaligen Aufwand dafür aber minimalen Code lösen.
dadurch, dass du alle benötigten Textboxen manuell erstellst, kannst du diese auch so anordnen, wie es dir am besten passt.

Gruß Daniel
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
10.07.2024 20:33:31
Helmut
Danke Daniel für deine überaus gut erklärten Weg zum Ziel, es schon so wie du sagst etwas auswendig, dafür aber für einen Laien sehr verständlich.
Hier an dieser >Tabelle1!A1:A50 da hat er mir einen Fehler raus geschmissen ich habe dann jede Textbox ihren eigenen Bezug gegeben >Tabelle1!A1 und da ging es.
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
13.07.2024 20:17:49
Helmut
Hi Daniel ,
habe deinen Code in meine Userform mit eingebaut und läuft spitze.
Jetzt habe ich versucht das er auch Labels mit einblenden soll aber das will er nicht fehler Objekt nicht gefunden
Die Labels beginnen leider nicht mit 1 sondern mit 24 25 etc.
Wie müsste der Code aussehen um die Label anhand der Menge Textfelder auch mit ein bzw. auszublenden.
Lieben Gruß und danke
Anzeige
AW: Textboxen nach Zahl in Textbox einblenden
13.07.2024 23:17:16
daniel
Du kannst die Labels unbennen, so dass die Nummer des Labels zur Nummer der Textbox, mit der es eingeblendet werden soll, passt
Oder du erinnerst dich an erste Klasse Grundschule:
24=1+23
25=2+23
26=3+23

Gruß Daniel
AW: Textboxen nach Zahl in Textbox einblenden
13.07.2024 23:21:59
ralf_b
 me.Controls("Label" & 23 +i).Visible = (i = Clng(TextboxAnzahl.Value))
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige