Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
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
© 2001 -
by Thomas Risi