Werteliste in Daten-Gültigkeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Gueltigkeitsliste_erzeugen() 'Erstellt in der aktuellen Zelle eine Gültigkeitsliste mit zufälligen Werten '04.12.2011, NoNet - www.excelei.de Dim lngZ As Long, lngC As Long, strT As String, strG As String strG = "" For lngZ = 1 To 50 '50 Einträge in der liste strT = Format(lngZ, "00 - ") 'jede Zeile beginnt mit Nummerierung For lngC = 1 To 5 ' 5 zufällige Zeichen strT = strT & Chr(Rnd() * 26 + 64) Next strG = strG & strT & "," Next With Selection.Validation .Delete 'Bestehende Liste zunächst löschen .Add Type:=xlValidateList, Formula1:=strG End With End Sub

Hallo Harald,
von der Aussage "ähnlicher Code" haben wir nix.
Zeige ihn bitte.
Ich habe den Code von NoNet getestet in XL 2000.
Durch Verändern des Codes fand ich heraus daß es eine Fehlermeldung gibt wenn strG 257 oder länger wird.
(Sogar soweit daß nach einigen Tests mir Excel abschmierte)
Mein Problem, und das anscheinend von Nonet auch, ist, wir haben kein XL Xp also XL 2002.
ERgo, zeige deinen Code oder eine Mappe, wenn dann jmd. hier ist der auch XL 2002 hat und netterweise
das dann testet so kriegst du Rückmeldung.
1) bei mir in XL 2002 läuft der Code anstandslos
2) bei mir in XL 2002 läuft er auch nicht.
Bei 1) solltest du dir Gedanken machen ob deine Excel Installation marode sein kann.
Bei 2) ist das ein starker Hinweis daß es halt wie bei meinem XL 2000 nicht geht "zu lange" Ausdrücke als Liste einzustellen.
Gruß
Reinhard

Hallo Reinhard,
erstmal Respekt zu Deiner Experimentierfreude und der daraus gewonnenen Erkenntnis !
Die Begrenzung auf 256 Zeichen ist zwar irgendwie bekannt, aber leider nicht stets präsent. Ich wäre darauf wohl nicht gekommen.
Mit Deiner Vermutung hast Du übrigens Recht :

Mein Problem, und das anscheinend von Nonet auch, ist, wir haben kein XL Xp also XL 2002.

Ich bin zwar Excel-mässig sehr gut ausgestattet, aber die Version XP/2002 ist bei mir (fast komplett) vorbeigegangen - ich hatte nur mal eine inoffizielle BETA-Version, die ich jedoch nie produktiv eingesetzt habe.
Ansonsten kann ich auf meinem PC mit 5 der letzten 8 Excel-Versionen arbeiten (2 Versionen direkt installiert, 3 Versionen als "Virtuelle Applikation", d.h. direkt aus Windows heraus aufrufbar - auch ohne Virtuelle Machine).
Hier ein Original-Screenshot (kein FAKE !!) aller Excel-Versionen (gleichzeitig auf meinem Arbeits-PC gestartet) :
Userbild

Es fehlen lediglich noch die Versionen Excel 5, Excel 95 und Excel 2002 ;-))
Gruß, NoNet

Sub test2() Dim vntList(1 To 800) As Variant Dim lngI As Long For lngI = 1 To 800 vntList(lngI) = "Name " & lngI Next Range("A1").Validation.Delete Range("A1").Validation.Add xlValidateList, Formula1:=Join(vntList, ",") End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread