Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textboxen ausblenden ausser Labels


Betrifft: Textboxen ausblenden ausser Labels von: Dieter(Drummer)
Geschrieben am: 16.10.2018 17:31:51

Guten Tag VBA Spezialisten,

auf einer Userform1 sind 7 Textboxen und 7 Labels.
Beim öffnen der Userform1 werden alle Controls (Textboxen und Labels) ausgeblendet.
Es sollen aber alle Labels nicht ausgeblendet werden. Wie muss der Code dann lauten?
Gruß, Dieter(Drummer)

Hier der Code von Rudi:
'Herber: von: Rudi Maintaire 27.07.2011
'Alle Textboxen ausblenden


Sub UF1_Controls_aus()
  Dim ctl As Control
    For Each ctl In UserForm1.Controls
    ctl.Visible = False  
   Next
UserForm1.TextBox1.Visible = True 'Textbox1 einblenden
UserForm1.Label1.Visible = True
End Sub


  

Betrifft: AW: Textboxen ausblenden ausser Labels von: Hajo_Zi
Geschrieben am: 16.10.2018 17:34:43

Select Case TypeName(ctl)
Case "Label"
ctl.Visible = False
end select

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: AW: Danke Hajo, aber an welcher ... von: Dieter(Drummer)
Geschrieben am: 16.10.2018 17:40:45

... Stelle im Code muss ich das einfügen?

Gruß, Dieter(Drummer)


  

Betrifft: AW: Danke Hajo, aber an welcher ... von: Luschi
Geschrieben am: 16.10.2018 17:57:08

Hallo Dieter,

so klappt das bei mir:

Sub UF1_Controls_aus()
   Dim ctl As Control
   
   For Each ctl In UserForm1.Controls
     If TypeName(ctl) = "Label" Then
        ctl.Visible = True
     Else
        ctl.Visible = False
     End If
   Next
   UserForm1.TextBox1.Visible = True 'Textbox1 einblenden
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Danke an Luschi und Hajo ... von: Dieter(Drummer)
Geschrieben am: 16.10.2018 18:11:46

... habe den Code von dir, Luschi genommen, der perfekt funktioniert.
Danke und einen schönen Abend.

Gruß, Dieter(Drummer)


  

Betrifft: AW: Danke an Luschi und Hajo ... von: Hajo_Zi
Geschrieben am: 16.10.2018 18:44:35

Halo Dieter,

und kürzer
For Each ctl In UserForm1.Controls
ctl.Visible =TypeName(ctl)<> "Label"
Next ctl

Gruß Hajo


  

Betrifft: AW: Danke Hajo, aber an welcher ... von: Hajo_Zi
Geschrieben am: 16.10.2018 17:57:32

Hallo Dieter,

nach For

Gruß Hajo


  

Betrifft: warum so umständlich ... von: Matthias L
Geschrieben am: 16.10.2018 19:02:26

Hallo Dieter

Beim öffnen der Userform1 werden alle Controls (Textboxen und Labels) ausgeblendet.
Für mich unverständlich!

Du kannst doch schon in den Eigenschaften der TextBox-Objekte festlegen: Visible=False
Da brauchst Du doch keinen Code für.

Gruß Matthias


  

Betrifft: AW: warum so umständlich ... von: Dieter(Drummer)
Geschrieben am: 17.10.2018 08:51:45

Guten Morgen Matthias,

da gebe ich dir Recht, ich hatte es nicht gesehen.

Mal zur Erklärung, wie ich verfahre:
1. Die Userform wird geöffnet und nach deiner Info sind alle Controls, ausser Labels, ausgeblendet.
2. Nach öffnen der Userform soll Textbox1 sichtbar sein, geht ja mit "Visible=True in den Eigenschaften.
3. Wenn ich in Textbox1 dann etwas eingebe, wird Textbox2 sichtbar und Textbox1 unsichtbar. Anderer Code.

Ideal wäre wohl. dass jeweils nach Eingabe die folgende Texbox sichtbar wird und die vorherige unsichtbar.Es sind insgesamt 7 Textboxen. Ideal wäre noch, wenn der eingegebene Text der ausgeblendeten Textbox sichtbar bleiben würde.

Das kann ich selbst keinen Code für erstellen, sondern muss es jeweils als Einzelcode, s. Beispielcode von mir, erstellen, z.B. für Textbox1 der Code in Textbox1:

Private Sub TextBox1_Change()
Me.TextBox2.Visible = True
Me.TextBox1.Visible = False
End Sub
Gruß, Dieter(Drummer)


  

Betrifft: AW: Hier Musterdatei, für ... von: Dieter(Drummer)
Geschrieben am: 17.10.2018 09:03:06

Hallo Matthias,

... Eingabe per Userform für Eingabe:
1. Ausgangsort
2. Ziel 1 bis Ziel 6
Dann per Button kann G-Maps aufgerufen werden und es werden alle Ziele, von Ausgangsort bis letzem Ziel angezeigt.

Musterdatei: https://www.herber.de/bbs/user/124680.xlsm

Gruß, Dieter(Drummer)


  

Betrifft: AW: Matthias, Datei mit deiner Variante ... von: Dieter(Drummer)
Geschrieben am: 17.10.2018 09:27:27

... hier die Datei mit Umsetzung deines Hinweises:
https://www.herber.de/bbs/user/124682.xlsm

Gruß, Dieter(Drummer)


  

Betrifft: AW: Matthias, Datei mit deiner Variante ... von: Matthias L
Geschrieben am: 17.10.2018 10:26:39

Warum machst Du es Dir so schwer, Dieter?

  • Lass nicht benötigte Ziele einfach leer.

  • Verknüpfe die Textbox-Objekte mit den Zellen


  • https://www.herber.de/bbs/user/124683.xlsm

    Gruß Matthias


      

    Betrifft: AW: Danke Matthias, das wusste ich ... von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 11:14:30

    ... nicht. "ControlSource" unter Eigenschaften, war mir nicht bekannt.

    Herzlichen Dank für Rückmeldung und Info, so war der Tag nicht umsonst :-) und habe etwas dazu gelernt.

    Gruß, Dieter(Drummer)


      

    Betrifft: Noch ein Vorschlag ... von: Matthias L
    Geschrieben am: 17.10.2018 11:21:13

    Noch ein Vorschlag, Dieter,

    benenne Deine Objekte besser (aussagekräftiger)

    Also anstatt Textbox1 eben (siehe meine letzte Datei) z.B. TxTStart
    Benutze nicht bei Label1 die TextBox2
    sondern für Label1 TextBox1
    Das macht die Programmierung übersichtlicher.

    Du wirst bemerkt haben, das ich die Namen geändert(angepasst) habe.

    Noch besser wäre für die Labels
    lblZiel1
    lblZiel2
    lblZiel3 ... usw.

    und bei den TextBoxen
    TxTZiel1
    TxTZiel2
    TxTZiel3 ... usw.

    Verstehst Du was ich meine?

    Gruß Matthias


      

    Betrifft: AW: Danke Matthias, das verstehe ich und ... von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 11:37:02

    ... ich werde es entsprechend ändern. Man(n) lernt ja nie aus :-).
    Analog zu deinem Hinweis werde ich die CommandButtons mit cmd1 und cmd2 benennen.

    Gruß und einen erfreulichen Tag,
    Dieter(Drummer)


      

    Betrifft: AW: Danke Matthias, das verstehe ich und ... von: Matthias L
    Geschrieben am: 17.10.2018 11:53:35

    Hi

    cmd1 und cmd2 sind aber nicht aussagekräftig, Dieter.

    Besser wäre dann:

    cmd_Ok und cmd_Ende

    So weißt Du immer wenn Du programmierst, wo Du Dich gerade befindest

    Auch Dir einen schönen Tag und die Idee mit GMaps find ich super!
    Gruß Matthias


      

    Betrifft: AW: Danke Matthias, für Rückinfo und ... von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 12:25:34

    ... werde ich noch ändern.

    Gruß, Dieter(Drummer)


      

    Betrifft: AW: Falls Interesse an der geänderten ... von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 14:11:33

    ... besteht, habe ich meine jetzige Version nochmal anbei:
    https://www.herber.de/bbs/user/124692.xlsm

    Der Knüller wäre, wenn die jeweiligen Entfernungskilometer, noch in die jeweiligen Zellen, in Spalte C, eingefügt würden. Aber das ist wohl Wunschdenken ... :-).

    Gruß und mögen auch andere daran Spaß haben ...
    Dieter(Drummer)


      

    Betrifft: AW: Sorry, jetzt richtige Version von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 15:13:22

    An Interessenten meine jetzt richtige Version: https://www.herber.de/bbs/user/124697.xlsm

    Gruß und Dank an Matthias für prima Tipps und Hilfe.
    Dieter(Drummer)


      

    Betrifft: AW: Nach deinen Vorschlägen habe ich noch ... von: Dieter(Drummer)
    Geschrieben am: 17.10.2018 11:48:47

    Hallo Matthias,

    ... ControlTipText, bei den TextBoxen entdeckt und umgesetzt, als Hinweis für Eingaben. Feine Sache ...

    Gruß, Dieter(Drummer)


    Beiträge aus dem Excel-Forum zum Thema "Textboxen ausblenden ausser Labels"