Thema: Daten - Gültigkeit Eingabemeldung / Fehlermeldung


Seite durchsuchen:
Home


zurück zur Übersicht

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

 Von: robertu Datum: 18.04.2007, 14:24

alle Antworten zu dieser Frage


Antwort 1 von Beverly vom 18.04.2007, 15:45
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

Antwort 2 von robertu vom 18.04.2007, 16:05
Hallo Karin :-),

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

Lg Robert

Antwort 3 von Beverly vom 18.04.2007, 17:09
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

Antwort 4 von robertu vom 19.04.2007, 08:19
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

Antwort 5 von Beverly vom 19.04.2007, 08:47
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

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.