Fehler bei Datengültigkeit

Guten Morgen Zusammen,
Ich erstellen eine Datengültigkeit per VBA mit folgenden Code:
Dim LoLetzte As Long
LoLetzte = Workbooks(strWksName).Sheets(1).Cells.Find(What:="*", after:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Workbooks(strWksName).Sheets(1).Range("K:K").Validation.Delete
With Workbooks(strWksName).Sheets(1).Range("K11:K" & LoLetzte + 10).Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Prio"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Dies ist nur ein Script innerhalb des Modules,wenn ich den Code laufen lasse funktioniert er auch jedoch wenn sich in dem Sheet(1) etwas ändert ggf "LoLetzte" gibt mir Excel einen "Anwendungs- Objekt definierten"Fehler an der Zeile "Add Type aus.
Wenn ich nun eine Zelle im Arbeitsblatt anklicke und danach wieder in die Code Zeile "springe" kann Ich mit F8 den Code ohne weitere Probleme ausführen?!
Hat jemand einen Tipp für mich?
Danke und Gruß
Steffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Steffen,
also, ich habe den Code von Dir nur so angepasst, dass er alleinstehend läuft und bei mir kommt dann kein Fehler. Ich habe nur die Variablen definiert und in der Mappe den Namen "Prio" entsprechend Deinen Angaben definiert.
So sieht mein Code jetzt aus:

Sub test()
Dim LoLetzte As Long
Dim strWksName As String
strWksName = ThisWorkbook.Name
LoLetzte = Workbooks(strWksName).Sheets(1).Cells.Find(What:="*", after:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Workbooks(strWksName).Sheets(1).Range("K:K").Validation.Delete
With Workbooks(strWksName).Sheets(1).Range("K11:K" & LoLetzte + 10).Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Prio"
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub

Diesen Code habe ich in Tabelle1 stehen und führe in einfach mit F5 aus. Läuft ohne Fehler und die Gültigkeit wird auch richtig gesetzt.
So, nun teste bitte mal diesen Code bei Dir. Wenn er funktioniert, dann stimmt was in deinem Code nicht (in dem Teil, den Du nicht gepostet hast...).
Wenn mein Code auch nicht funktioniert, dann stimmt was in Deiner MAppe nicht, dann bitte noch mal in einer neuen leeren Mappe testen und dann vergleichen.
Lass Dir mal LoLetzte ausgeben, vielleicht stimmt Dein Bereich auch nicht, oder vielleicht hast Du den Namen "Prio" falsch vergeben, Blattschutz falsch gesetzt, Variablen falsch definiert, ...
Das kann alles mögliche sein.
Hoffe, das hilft Dir.
Gruß
Björn B.

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread