Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Steuerelemente sichtbar oder unsichtbar

Steuerelemente sichtbar oder unsichtbar
26.12.2017 19:52:27
Ludmila
Hallo,
in einer UF mit 5 Textboxen und 5 ComboBoxen soll geprüft werden ob diese einen Text enthalten oder nicht.
Es soll nicht vorkommen das wenn Textbox 1-4 und Combobox 1-4 sichtbar sind und Textbox2 und ComboBox2 keinen Wert enthalten das Text/Combobox 3 und 4 sichtbar bleiben.
Ideal wäre es wenn der Text/ComboBox 3 in Text/ComboBox 2 und der Text/ComboBox4 in Text/ComboBox 3 übernommen werden.
Dies scheint mir jedoch zu kompliziert.
Vielen Dank, für Eure Unterstützung.
Schönen Feiertag noch!
mfg Ludmila
https://www.herber.de/bbs/user/118526.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Steuerelemente sichtbar oder unsichtbar
27.12.2017 15:55:55
Beverly
Hi Ludmila,
hier mal ein Code zum Ein-/Ausblenden der Text-/ComboBoxen:
Private Sub TextBox1_Change()
TextBox2.Visible = TextBox1  "" And ComboBox1  ""
ComboBox2.Visible = TextBox1  "" And ComboBox1  ""
TextBox2 = ""
ComboBox2 = ""
End Sub
Private Sub ComboBox1_Change()
TextBox2.Visible = TextBox1  "" And ComboBox1  ""
ComboBox2.Visible = TextBox1  "" And ComboBox1  ""
TextBox2 = ""
ComboBox2 = ""
End Sub
Private Sub TextBox2_Change()
TextBox3.Visible = TextBox2  "" And ComboBox2  ""
ComboBox3.Visible = TextBox2  "" And ComboBox2  ""
TextBox3 = ""
ComboBox3 = ""
End Sub
Private Sub ComboBox2_Change()
TextBox3.Visible = TextBox2  "" And ComboBox2  ""
ComboBox3.Visible = TextBox2  "" And ComboBox2  ""
TextBox3 = ""
ComboBox3 = ""
End Sub
Private Sub TextBox3_Change()
TextBox4.Visible = TextBox3  "" And ComboBox3  ""
ComboBox4.Visible = TextBox3  "" And ComboBox3  ""
TextBox4 = ""
ComboBox4 = ""
End Sub
Private Sub ComboBox3_Change()
TextBox4.Visible = TextBox3  "" And ComboBox3  ""
ComboBox4.Visible = TextBox3  "" And ComboBox3  ""
TextBox4 = ""
ComboBox4 = ""
End Sub
Private Sub TextBox4_Change()
TextBox5.Visible = TextBox4  "" And ComboBox4  ""
ComboBox5.Visible = TextBox4  "" And ComboBox4  ""
TextBox5 = ""
ComboBox5 = ""
End Sub
Private Sub ComboBox4_Change()
TextBox5.Visible = TextBox4  "" And ComboBox4  ""
ComboBox5.Visible = TextBox4  "" And ComboBox4  ""
TextBox5 = ""
ComboBox5 = ""
End Sub

Den Sinn des Rests habe ich nicht verstanden: wozu sollen denn Text-/ComboBoxen (4. = 3. = 2.) die selben Werte enthalten...?

Anzeige
AW: Steuerelemente sichtbar oder unsichtbar
27.12.2017 16:58:10
Piet
Hallo Ludmila
ich sehe das es einen schönen Code von Karin gibt. In meinem habe ich noch die For Next Schleife korrigiert.
mfg Piet
Option Explicit      '27.12.2017  Piet  Herber Forum
Private Sub ComboBox1_Change()
Controls("TextBox2").Visible = True
Controls("Combobox2").Visible = True
End Sub
Private Sub ComboBox2_Change()
Controls("TextBox3").Visible = True
Controls("Combobox3").Visible = True
End Sub
Private Sub ComboBox3_Change()
Controls("TextBox4").Visible = True
Controls("Combobox4").Visible = True
End Sub
Private Sub ComboBox4_Change()
Controls("TextBox5").Visible = True
Controls("Combobox5").Visible = True
End Sub
Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
Controls("TextBox2").Visible = False
Controls("ComboBox2").Visible = False
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.Value = "" Then
Controls("TextBox3").Visible = False
Controls("ComboBox3").Visible = False
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.Value = "" Then
Controls("TextBox4").Visible = False
Controls("ComboBox4").Visible = False
End If
End Sub
Private Sub TextBox4_Change()
If TextBox4.Value = "" Then
Controls("TextBox5").Visible = False
Controls("ComboBox5").Visible = False
End If
End Sub
Private Sub CommandButton1_Click()
Dim y As Integer
'Schleife für True mit Exit for bei Leerstand
For y = 1 To 4
If Controls("TextBox" & y).Value  "" And Controls("Combobox" & y).Value  "" Then
Controls("TextBox" & y + 1).Visible = True
Controls("Combobox" & y + 1).Visible = True
Label1.Caption = y + 1
Else: Exit For
End If
Next y
'ComboBox1 und TextBox1 immer auf True setzen !!
Controls("TextBox1").Visible = True
Controls("Combobox1").Visible = True
End Sub
Private Sub CommandButton2_Click() 'prüfen
Dim y As Long
'Rückwaerts Schleife für False mit Exit for bei Leerstand
For y = 4 To 2 Step -1
If Controls("TextBox" & y).Value = "" Or Controls("Combobox" & y).Value = "" Then
Controls("TextBox" & y + 1).Visible = False
Controls("Combobox" & y + 1).Visible = False
Label1.Caption = y
Else: Exit For
End If
Next y
End Sub
Private Sub UserForm_Initialize()
Dim lol As Long
Dim lx As Long
For lol = 1 To 5
With Controls("ComboBox" & lol)
.AddItem 1
.AddItem 2
End With
Next lol
For lol = 2 To 5
Controls("TextBox" & lol).Visible = False
Controls("ComboBox" & lol).Visible = False
Next lol
Label1.Caption = 1
End Sub

Anzeige
AW: Steuerelemente sichtbar oder unsichtbar
28.12.2017 00:59:57
Ludmila
Hallo Karin, hallo Piet,
vielen Dank für Eure Hilfe.
Bei dem ganzen handelt es sich um ein Abnahme-Formular (Bau). So kann es vorkommen, dass der Text, in den Textboxen immer gleich ist, jedoch in den ComboBoxen(Bauleiter oder Architekten) unterschiedlich ist.
Funktioniert zwar nicht ganz so wie ich es wollte, aber so ist es trotzdem gut.
Gruß, Ludmila

301 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1