VBA problem
Hej Excel experter, jeg har et lille problem med denne kode.(jeg er meget ny til excel)
Den virker sådan, at når jeg vælger noget fra min drop down menu, evt et navn, så kan jeg fra samme drop down menu vælge et nyt navn og det kommer så til at ligge efter det første navn i samme celle med et "," imellem.
Problemet er at jeg ikke kan gå ind og ændre i teksten uden den bliver ved med at smide det sidst valgte navn ind i cellen hver gang jeg ændre noget.
Håber i kan hjælpe
på forhånd tak
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 3 Then
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
