Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
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
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Steuerelemt ausblenden

Steuerelemt ausblenden
10.02.2005 13:05:54
harry
Hallo Leute,
einen schönen tag erstmal!
Ich hoffe ihr seit nicht zu stark faschinggeschädigt!!
Ich habe ein kleines Problem und hoffe ich erhalte eure hilfe!
ich habe ein Blatt in dem der Text durch eine Auswahl geändert wird1
nun meine Frage:
Kann ich Auswahlmenüs(Gültigkeit Liste) auch abhängig von bestimmten Zellinhalten anzeigen bzw. nichtanzeigen?
Beispiel.
Zelle a1 = Test
Auswahlmenü sichtbar
Zelle a1 = aus
Auswahlmenü nicht sichtbar
wäre für ne Lösung echt dankbar
harry

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

Betreff
Datum
Anwender
Anzeige
AW: Steuerelemt ausblenden
Reinhard
Hi Harry,
Alt+F11, Doppelklick auf "Tabelle1"
Dort diesen Code reinkopieren 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Or Target.Cells.Count <> 1 Then Exit Sub
Select Case Target
Case "Ein"
Call ein
Case "Aus"
Call aus
End Sub
Dann Einfügen Modul, dort dann diesen Code eingeben, gfs anpassen:
Sub ein()
With Range("C5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$B$1:$B$11"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Sub aus()
Range("C5").Validation.Delete
End Sub
Gruß
Reinhard
Anzeige
AW: Steuerelemt ausblenden
harry
Hallo Reinhard
geht leider nicht so oder ich mach was falsch!!
Kannst du mir nochmal weiterhelfen!!
Also mein Auswahlmenü ist immer noch da!!
harry
AW: Steuerelemt ausblenden
Reinhard
Hi Harry,
vielleicht reden wir von verschiedenen Dingen,
ich rede von Daten---Gültigkeit---Liste was dann ein Auswahlfeld in einer Zelle erzeugt, hier in meionem Beispiel in C5, es wird angezeigt je nachdem ob in A1 Ein oder Aus steht.
https://www.herber.de/bbs/user/17868.xls
Gruß
Reinhard
AW: Steuerelemt ausblenden
Hartmut
Alles Schnulli, einfach InCellDropdown = False
H.
AW: Steuerelemt ausblenden
10.02.2005 13:45:03
Micha
Hi,
versuch mal

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then   'Zelle A1 wurde geändert
If Target.Value = "aus" Then    'Wenn Inhalt der Zelle = "aus"
Steuerelement.Visible = False 'dann Steuerelement verstecken
Else
Steuerelement.Visible = True
End If
End If
End Sub

Frohes Schaffen
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige