Thomas Risi Softwareentwicklung

Mehrfachauswahl aus Gültigkeitsliste
Downloads Demo-Datei

Aus einer Frage in einem Forum ...

In Spalte C einer Tabelle, gibt es mehrere Zellen die eine Liste als Gültigkeitskriterium enthalten. Es soll nun möglich sein, mehrere dieser Werte in der jeweiligen Zelle, durch ein Komma getrennt, darzustellen.


Quellcode für z.B. Tabelle1 ...

Option Explicit Const TargetColumn As Long = 3 ' Ziele in Spalte 3. Dim blockedEvent As Boolean Dim TargetOldText As String Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = TargetColumn Then If Not blockedEvent Then blockedEvent = True If Not TargetOldText = "" And Not Target.Value = "" Then Target.Value = TargetOldText & ", " & Target.Value Else Target.Value = Target.Value End If TargetOldText = Target.Value Else blockedEvent = False End If Else TargetOldText = "" End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Column = TargetColumn Then TargetOldText = Target.Value End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)