Datenüberprüfung (Liste) via VBA

Hallo,
bin zwar ganz neu hier, programmiere aber seit ewigen Zeiten in VB6.
Jetzt wurde an mich die komplexe Aufgabe herangetragen die bestehenden Funktionalitäten (Sourcecode in VB6 ~400 DIN A4 Seiten)
ausschließlich in VBA zu realisieren.
Einer der ersten für mich noch nicht nachvollziehbaren Problemstellungen ist das Ausführen der Datenüberprüfung via Liste (aus einem anderen Sheet des aktuellen Workbooks).
Manuell ausgeführt funktioniert das zwar tadellos. Aber selbst wenn ich das automatisch aufgezeichnete Makro:
Columns("J:J").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Keywords!Z1S9:Z51S9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Nochmals ablaufen lasse, meldet Excel: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.
Wohlgemerkt der VBA-Code wurde von EXCEL aufgezeichnet.
Kann mir da jemand weiterhelfen.
Grüße
elp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Main() Dim strTMP As String If Application.ReferenceStyle = xlR1C1 Then strTMP = "=Keywords!R1C9:R51C9" Else strTMP = "=Keywords!$J$1:$J$23" End If With Columns("J:J").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=strTMP .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

Hallo,
Wie Case schon erwähnt hat, ist die Wahl der Bezugsart wichtig.
In seinem Code müsste übrigens heissen "=Keywords!$I$1:$I$51".
Um diese Abhängigkeit der Option-Bezugsart zu umgehen, ist einfach diesem Bereich einen Namen (über den XL Namensmanager) zu verpassen, z.B. WerteListe
Dann kann der Code so aussehen:

Formula1:="=WerteListe"

Für die Umstellung von VB6 auf XL-VBA ist es wichtig das Objektmodell (Objekte, Methoden, Eigenschaften) von Excel zu verstehen. Dann wirst Du u.a. auch sehen, dass z.B. .Select ein meist kontraproduktiver und unnötiger Befehl ist, der durch die direkte Referenzierung der Objekte (hier z.B. With ActiveSheet.Columns(9)) ersetzt werden kann.
Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung (Liste) via VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung (Liste) via VBA

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

80 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread