Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
inhalt einer textbox label ein und ausblenden
23.04.2015 14:11:16
Lisa
Hallo zusammen, ich habe in einer Userform mehrere Label und eine Textbox.
Ich würde gern Label über die Eingabe in der Textbox ein und ausblenden.
gedacht habe ich es so.
Gebe ich in die Textbox1 eine 2 ein, werden Label 1 bis 2 ausgeblendet, gebe ich eine 3 ein, dan 1 bis 3 usw.
Kann mir hier jemand von Euch weiterhelfen?
LG Lisa

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
wieviele Labels gibts, wann wieder einblenden? owT
23.04.2015 14:24:59
Matthias

AW: wieviele Labels gibts, wann wieder einblenden? owT
23.04.2015 14:37:07
Lisa
Hallo Matthias,
insgesamt sind es 6 Label, die beim Neustart der UF wieder eingeblendet werden, da die TxtBox dann auch leer ist.
LG Lisa

AW: wieviele Labels gibts, wann wieder einblenden? owT
23.04.2015 14:49:58
Matthias
Hallo Lisa

Ok, wenns so sein soll, versuch es so:
Option Explicit
Private Sub TextBox1_Change()
On Error Resume Next
Dim x&
For x = 1 To CLng(TextBox1.Text)
Me.Controls("Label" & x).Visible = IIf(CLng(TextBox1.Text) 
Gruß Matthias

AW: VIELEN Dank! Funktioniert perfekt oT
23.04.2015 15:18:21
Lisa

AW: VIELEN Dank! Funktioniert perfekt oT
24.04.2015 10:42:56
Lisa
Hallo Matthias, vielen Dank noch einmal für deine Unterstützung.
Ich hätte noch eine Frage zu diesem Thema.
Wie kan ich in diesem Code die nur sichbaren Label beschriften?
Lässt sich das hier mit einbauen?
Option Explicit
Private Sub TextBox1_Change()
On Error Resume Next
Dim x&
For x = 1 To CLng(TextBox1.Text)
Me.Controls("Label" & x).Visible = IIf(CLng(TextBox1.Text) 

LG Lisa

Anzeige
AW: VIELEN Dank! Funktioniert perfekt oT
24.04.2015 12:03:12
Matthias
Hallo Lisa
Das kann ja nicht funktionieren
Du gibst z.B. in die Textbox eine 3 ein
dann geht die Schleife von 1 bis 3
Diese Labels werden nun ausgeblendet
Fazit: Du brauchst also nicht mehr fragen ob sie sichtbar sind.Sind sie nicht mehr ;-)
Es werden in diesem Fall ja nur die Labels 1-3 gecheckt, dannach hört die Schleife auf.
Labe4-6 werden nicht abgefragt.
Willst Du in den restlichen Labels den Text:"bin da" reinschreiben, musst Du noch eine Schleife drumherum-packen die alle 6 Labels abfragt
Da würde dann z.B. so gehen:
Option Explicit
Private Sub TextBox1_Change()
On Error Resume Next
Dim x&, i&
For i = 1 To 6
For x = 1 To CLng(TextBox1.Text)
Me.Controls("Label" & x).Visible = IIf(CLng(TextBox1.Text) 
Gruß Matthias

Anzeige
AW: Danke
24.04.2015 12:18:22
Lisa
Vielen, vielen Dank, das ist genau das was ich wollte.
ist zwar blöd, aber wenn ich es jetzt sehe, ist es auf einmal klar, allein aber komme ich nicht drauf.
Ein schönes Wochenende und
lG Lisa

auch Dir ein schönes WE :-) kwT
24.04.2015 12:22:46
Matthias

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige