Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1644to1648
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
Drop down liste einblenden mit Bedienung
21.09.2018 13:54:34
rojin
Ich habe ein Formular und ich möchte die Drop down liste:"Fehlerursache" nur einblenden wenn in B12 "Serien.Nr.;" steht. Ich habe es mit
Me.Dropdown3.Visible = (Range("B12") = "Serien-Nr.:") versucht aber ich bekomme folgenden Fehler: Daten objekt oder Methode nicht gefunden.
Kann mir jemnad bitte helfen?
Das ist die Datei
https://www.herber.de/bbs/user/124133.xlsm
Grüss
Rojin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drop down liste einblenden mit Bedienung
21.09.2018 14:10:37
Robert
Hallo Rojin,
versuche es mal mit
Me.Shapes("Drop Down 64").Visible = (Range("B12") = "Serien-Nr.:")
Gruß
Robert
AW: Drop down liste einblenden mit Bedienung
21.09.2018 15:26:25
rojin
Danke Robert:) Das hat funktioniert!
AW: Drop down liste einblenden mit Bedienung
21.09.2018 15:26:27
rojin
Danke Robert:) Das hat funktioniert!
Gerne und Danke für die Rückmeldung (owT)
21.09.2018 18:32:38
Robert
AW: Drop down liste einblenden mit Bedienung
21.09.2018 14:14:19
Torsten
ich kann in deiner Datei leider nichts finden ausser diesem Code:
Private Sub Worksheet_Calculate()
Me.Shapes("Check Box 66").Visible = (Range("B28")  0)
Me.Shapes("Check Box 67").Visible = (Range("B28")  0)
Me.Shapes("Check Box 73").Visible = (Range("B25")  0)
Me.Shapes("Check Box 70").Visible = (Range("B28")  0)
Me.Shapes("Check Box 71").Visible = (Range("B28")  0)
Me.Shapes("Check Box 72").Visible = (Range("B42")  0)
Me.Shapes("Check Box 76").Visible = (Range("B42")  0)
Me.Shapes("Check Box 78").Visible = (Range("B25")  0)
Me.TextBox1.Visible = (Range("B25") = "Andere Massnahmen:")
Me.TextBox2.Visible = (Range("E37") = "Nacharbeitsanleitung:")
Me.TextBox3.Visible = (Range("E39") = "Nachprüfunganleitung:")
Me.TextBox4.Visible = (Range("E30") = "Sortierungsmethode:")
Me.TextBox5.Visible = (Range("E32") = "Sortierungskriterien:")
Me.TextBox6.Visible = (Range("B30") = "Kurze Reperaturanleitung:")
Me.TextBox7.Visible = (Range("B54") = "Besteatigung der Durchführung andere Massnahmen")
End Sub

Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige