Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.03.2024 14:58:14
19.03.2024 13:26:50
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 438 bei Datengültigkeit

Laufzeitfehler 438 bei Datengültigkeit
12.12.2018 10:27:00
Georg
Liebe Mitglieder, ich bekomme den Laufzeitfehler bei
.cells(24, 3).Validation
Wie kann ich C24 mit einer Datengültigkeit belegen? DANKE Georg
Sub Datengültigkeit()
Datei2019.Activate
WS_Count = Datei2019.Worksheets.Count
'Befüllen Datengültigkeit
For i = 4 To WS_Count - 2
With Datei2019.Worksheets(i)
.Cells(24, 3).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=JaNein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vorschlag
12.12.2018 10:34:54
Beverly
Hi Georg,
        With Datei2019.Worksheets(i)
With .Cells(24, 3).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Ja,Nein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With


AW: Vorschlag: DANKE..
12.12.2018 11:17:22
Georg
..funktioniert einwandfrei. Grüße Georg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige