Gültigkeit: Liste und Formel kombinierbar?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luschi,
interessante Variante, aber leider am Problem vorbei. Vielleicht habe ich mich mißverständlich ausgedrückt. Es ging nicht darum, die Gültigkeitsliste ohne mehrfach vorkommende Werte darzustellen, sondern mehrere Zellen, die per Gültigkeit eingeschränkt sind, wechselseitig voneinander abhängig zu machen. D.h. wenn in einer Zelle ein Wert ausgewählt wurde, darf der in der anderen Zelle nicht mehr auswählbar sein.
Für alle, die im Archiv später mal diesen Beitrag finden:
Ich habe das jetzt per VBA selbst so gelöst:


Private Sub worksheet_change(ByVal target As Range)
Dim i As Byte
If Not Intersect(target, [B2:I2]) Is Nothing Then
For i = 2 To 8
If i  target.Column Then
If Cells(2, i) = target.Value Then MsgBox "Der Wert  ist  _
bereits in Spalte " & i & " enthalten. Bitte wählen Sie einen neuen Wert aus der Liste."
End If
Next
End If
End Sub

Dies lässt die Eingaben zwar immer noch zu, aber zumindest bekommt der User eine Warnung. Ich bin noch am Grübeln, wie ich es verhindern kann, dass der User per Mausklick die Zelle verlässt (do loop?), aber das ist erstmal sekundär.
Der Vorschlag von Jürgen erscheint mir allerdings auch recht praktikabel. Dass in der Liste dann halt ein paar Leerzeilen auftauchen, ist m. E. akzeptabel.
Gruß
David

Hallo Luschi,
interessanter Ansatz. Dazu allerdings einige Fragen:
In meinem Fall sind das um einiges mehr als 3 Zellen, eher im Bereich 10-15. Wenn ich deinen Code richtig interpretiere, müsste ich zunächst diesen Teil


Select Case Target.Address(False, False)
Case "D3": r1 = "D3": r2 = "F3": r3 = "H3"
Case "F3": r1 = "F3": r2 = "D3": r3 = "H3"
Case "H3": r1 = "H3": r2 = "D3": r3 = "F3"
End Select

erweitern, und anschließend diese If-Verschachtelung


If (rg2.Value  ActiveSheet.Range(r2).Value) Then
If (rg2.Value  ActiveSheet.Range(r3).Value) Then
col.Add key:=CStr(rg2.Value), Item:=rg2.Value
End If
End If

in so viele Ebenen verschachteln, wie Zellen vorhanden sind. Das erscheint mir doch recht unpraktisch und unübersichtlich.
Manuelle Eingaben sind in die Zellen mit deinem Code gar nicht mehr möglich, oder?!
Gruß
David

Beliebteste Forumthreads (12 Monate)

Gültigkeit: Liste und Formel kombinierbar?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Gültigkeit: Liste und Formel kombinierbar?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread