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
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