Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon robertu vom 18.04.2019, 14:24 Options

Daten - Gültigkeit Eingabemeldung / Fehlermeldung

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

Antwort schreiben

Antwort 1 von Beverly vom 18.04.2019, 15:45 Options

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.2019, 16:05 Options

Hallo Karin :-),

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

Lg Robert

Antwort 3 von Beverly vom 18.04.2019, 17:09 Options

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.2019, 08:19 Options

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.2019, 08:47 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken