Avatar billede Kenneta Novice
01. maj 2017 - 07:53 Der er 2 kommentarer og
1 løsning

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
Avatar billede excelent Ekspert
06. maj 2017 - 20:40 #1
Avatar billede Kenneta Novice
07. maj 2017 - 10:36 #2
Tusind tak, det kan bruges.
Avatar billede excelent Ekspert
07. maj 2017 - 14:04 #3
velbekom
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester