Supportnet / Forum / Tabellenkalkulation

Hallo an @lle, Bei meinen DropDown Menüs habe ich überalle die Eingabemeldung und Fehlermeldung ausgefüllt! Frage: *'***** Gibt es eine Möglichkeit diese Meldungen über ein Makro zu deaktivieren bzw zu aktivieren. Habe schon etwas probiert, aber bei ca 25 DropDown Menüs wäre das eine endlos langer Code. Ansatz: ******** Sub DeaktivierenInfo() Range("F6:J6").Select With Selection.Validation .ShowInput = True .ShowError = True End With End Sub Oder hat jemand eine Idee wie man diesen Code für mehrere Bereiche einfach ausführen lassen kann. Lg Robert

Hi Robert,

versuche es mal mit diesem Code

Sub DeaktivierenInfo()
    With ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Validation
        .ShowInput = False
        .ShowError = False
    End With
End Sub

Bis später,
Karin

Hallo Karin :-),

Laufzeitfehler, Anwendungs- oder objektorientierter Fehler ;-)
bei der Zeile:
.ShowInput = False

Lg Robert

Hi Robert,

ich habe deinen Code genommen und auf alle Zellen mit DropDown-Listenfeldern angewendet anstelle deines Bereichs F6:J6 - nichts weiter. Also gibt es in deiner Tabelle mindestens 1 Feld, in dem keine Fehlermeldung eingetragen ist. Das löst den Laufzeitfehler aus. Wenn alle eine Meldung beinhalten, funktioniert der Code fehlerlos.

Bis später,
Karin

Hallo Karin,
recht herzlichen Danke für all die schnellen Antworten von Dir!

----Code----
Range("F3:N3,F6:J6,K6:Q6,F7:J7,K7:Q7,F9:J9,K9:N9").Select
With ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Validation
.ShowInput = False
.ShowError = False
End With
----Code----

Möchte übers Makro bestimmte Zellen auswählen und dann den Code ausführen. Aber es funktioniert nicht! Was mache ich falsch?

Lg Robert

Hi Robert,

mit ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Validation werden alle Zellen der aktiven Tabell mi DropDown-Listenfelder behandelt. Wenn es nur ausgewählte sein sollen, da sollte der Code so lauten

With Range("F3:N3,F6:J6,K6:Q6,F7:J7,K7:Q7,F9:J9,K9:N9").Validation
.ShowInput = False
.ShowError = False
End With

Bis später,
Karin

• Excel : Titelübernahme bei Gültigkeitsprüfung
• Xcard - Gültigkeit Abfrage
• Excel Gültigket
• Gültigkeit Liste: nach Auswahl nicht mehr in Liste anzeigen
• Daten - Gültigkeit...