Datenüberprüfung für ganze Spalte

Hallo,

ich möchte eine Datenüberprüfung machen. Sprich in Zeile M2 habe ich ein Auswahlfeld mit verschiedenen Zahlen (die ich aus dem anderen Blatt ziehe: E2:BY2). Soweit so gut.
1.)Nun soll aber in der ganzen Spalte M eine Datenüberprüfung gemacht werden.
Sprich für M3,M4 usw.
2.)Zwar kann ich wieder für jede Zeile eine Datenüberprüfung machen, jedoch ist die Spalte M etwas länger...
Ich kann zwar die Datenüberprüfung ohne die Erray Zeichen (F4/$$-Zeichen)kopieren und in die _
darunter folgenden Zellen einfügen. Dann hat man in der Auswahlliste aber entweder leere Kä _ stchen oder es wurden nicht alle Spalten des Bereichs berücksichtigt), da dieser mal länger oder mal kürzer ist. (z.B.: E2:BY2, E3:G3, E4:XYZ2). Dieses könnte man oben evtl. integrieren über


Dim i As Long
Application.ScreenUpdating = False
For i = ... To Cells(Rows.Count, ...).End(x...)

,sodass er automatisch nur bis zum letzten Wert der 2ten/3ten Zeile sucht.
Hoffe, man kann meine laienhafte Beschreibung verstehen.
LG & ein schönen Fussballabend wünscht euch
Lisa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Lediglich das mit der Range hat geholfen.
Der andere Teil hilft mir leider nicht weiter, da bei der Quellenangabe die Spalten alle unterschiedlich lang sind.
Sieht man hier besser: Userbild

Vlt wird es hierdurch ein bisschen klarer:
Userbild

Für die Zelle M2 gilt die erste Datenüberprüfung (Quelle von dem Blatt "Szenariodaten" zwischen dem Listenbereich E2:BY2), für M3 die zweite Datenüberprüfung (E3:CS3) usw...
1. Wie kann ich aber umgehen, dass ich die jeweiligen Listenbereiche mit ihren unterschiedlichen Längen alle einzeln angeben muss?
Ich suche demnach eine Funktion, die da heißen müsste: "Gebe mir alle Daten aus Spalte E2 bzw. E3 und folgend bis einschließlich der letzten Spalte (z.B. BY2 bzw. XY3)
Jeder Vorschlag kann hilfreich sein

Dim lngZeile As Long Dim intSpalte As Integer For lngZeile = 1 To 5 With Worksheets("Szenariodaten") intSpalte = .Cells(lngZeile, 5).End(xlToRight).Column End With With Cells(lngZeile, 13).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=Szenariodaten!" & _ Range(Cells(lngZeile, 5), Cells(lngZeile, intSpalte)).Address End With Next lngZeile

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung für ganze Spalte

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung für ganze Spalte

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread