Note: The other languages of the website are Google-translated. Back to English

Hoe te voorkomen dat kopiëren en plakken over cel met vervolgkeuzelijst in Excel?

Voor een cel met een vervolgkeuzelijst voor gegevensvalidatie, wanneer inhoud van een andere cel wordt gekopieerd en erin wordt geplakt, verdwijnt de vervolgkeuzelijst en wordt deze vervangen door de nieuwe plakinhoud. In sommige gevallen wilt u voorkomen dat u andere inhoud over de cel met vervolgkeuzelijst kopieert en plakt, wat zou u doen om ermee om te gaan? In dit artikel krijgt u een VBA-methode om met dit probleem om te gaan.

Voorkom kopiëren en plakken over cel met vervolgkeuzelijst in Excel


Voorkom kopiëren en plakken over cel met vervolgkeuzelijst in Excel

1. Open het werkblad met de vervolgkeuzelijstcel waarvan u kopiëren en plakken wilt voorkomen.

2. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic-toepassingen venster.

3. In de Microsoft Visual Basic-toepassingen dubbelklik op de huidige werkbladnaam in het linkerdeelvenster en kopieer en plak de onderstaande VBA-code in de code-editor. Zie screenshot:

VBA-code: voorkom kopiëren en plakken over cel met vervolgkeuzelijst

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. druk op anders + Q toetsen om het Microsoft Visual Basic-toepassingen venster.

5. Wanneer u inhoud in een cel met een vervolgkeuzelijst plakt, verschijnt er een dialoogvenster om u eraan te herinneren dat plakken niet is toegestaan. Zie screenshot:

Opmerking:: Deze VBA werkt gewoon in plakken met één cel. Als u in meerdere cellen kopieert en plakt, werkt het niet.

Maak eenvoudig een vervolgkeuzelijst met selectievakjes in Excel:

Het Vervolgkeuzelijst met selectievakjes nut van Kutools for Excel kan u helpen eenvoudig een vervolgkeuzelijst te maken met selectievakjes in een opgegeven bereik, huidig ​​werkblad, huidige werkmap of alle geopende werkmappen op basis van uw behoeften.
Download nu het volledige gratis 30-daagse gratis parcours van Kutools voor Excel!


Gerelateerde artikelen:

Hoe maak ik een vervolgkeuzelijst met meerdere selectievakjes in Excel?
Veel Excel-gebruikers hebben de neiging om een ​​vervolgkeuzelijst te maken met meerdere selectievakjes om meerdere items uit de lijst per keer te selecteren. Eigenlijk kunt u met Gegevensvalidatie geen lijst met meerdere selectievakjes maken. In deze zelfstudie laten we u twee methoden zien om een ​​vervolgkeuzelijst met meerdere selectievakjes in Excel te maken. Deze tutorial biedt de methode om het probleem op te lossen.

Maak een vervolgkeuzelijst vanuit een andere werkmap in Excel
Het is vrij eenvoudig om een ​​vervolgkeuzelijst voor gegevensvalidatie te maken tussen werkbladen in een werkmap. Maar wat zou u doen als de lijstgegevens die u nodig hebt voor de gegevensvalidatie in een andere werkmap terechtkomen? In deze zelfstudie leert u hoe u in detail een vervolgkeuzelijst kunt maken vanuit een andere werkmap in Excel.

Maak een doorzoekbare vervolgkeuzelijst in Excel
Voor een vervolgkeuzelijst met talloze waarden is het vinden van een goede geen gemakkelijke taak. Eerder hebben we een methode geïntroduceerd voor het automatisch aanvullen van de vervolgkeuzelijst wanneer u de eerste letter in de vervolgkeuzelijst invoert. Naast de functie voor automatisch aanvullen, kunt u de vervolgkeuzelijst ook doorzoekbaar maken om de werkefficiëntie te verbeteren door de juiste waarden in de vervolgkeuzelijst te vinden. Probeer de methode in deze tutorial om de vervolgkeuzelijst doorzoekbaar te maken.

Vul automatisch andere cellen in bij het selecteren van waarden in de vervolgkeuzelijst van Excel
Stel dat u een vervolgkeuzelijst heeft gemaakt op basis van de waarden in celbereik B8: B14. Wanneer u een waarde in de vervolgkeuzelijst selecteert, wilt u dat de overeenkomstige waarden in celbereik C8: C14 automatisch in een geselecteerde cel worden ingevuld. Om het probleem op te lossen, zullen de methoden in deze tutorial je een plezier doen.

Meer tutorials voor vervolgkeuzelijst ...


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (12)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dit werkt, maar als ik de waarde plak, worden gegevens toegestaan ​​die niet in de vervolgkeuzelijst staan. Elke manier om een ​​waarde te beperken die niet in de lijst staat.
Dilip
Deze opmerking is gemaakt door de moderator op de site
Hallo Dilip, heb je het probleem kunnen oplossen, ik heb ook een soortgelijk probleem. Ik moet kopiëren, plakken alleen toestaan ​​​​voor vervolgkeuzelijsten in de gegevensvalidatiecel, andere moet ik beperken. Kun je je oplossing delen. Bedankt Rao
Rao
Deze opmerking is gemaakt door de moderator op de site
Hallo, terwijl ik deze macro uitvoerde, kreeg ik deze foutopsporingsfout "Application.Undo". Los dit zo snel mogelijk op
Jai
Deze opmerking is gemaakt door de moderator op de site
Hallo, bovengenoemde vba-code is niet run.kindly oplossen.
chandan
Deze opmerking is gemaakt door de moderator op de site
Private Sub Worksheet_Change (ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String If Target.Count > 1 Sluit vervolgens Sub End af als Application.EnableEvents = False xValue = Target.Value On Error Hervat volgende xCheck1 = Target. Validation.InCellDropdown Bij Fout GoTo 0 Application.Undo Bij Fout Hervatten Volgende xCheck2 = Target.Validation.InCellDropdown Bij Fout GoTo 0 If xCheck1 = xCheck2 Dan Target = xValue Anders MsgBox "Plakken niet toegestaan!" End If Application.EnableEvents = True End Sub Deze macro werkt niet bij het kopiëren van een andere werkmap of werkblad, dus vertel me alsjeblieft hoe ik deze dingen ook kan vermijden
Abhijet
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt !! werkt bij mij prima!!! kopiëren naar een enkele cel is beperkt. maar als ik een lijst met cellen kopieer en plak ..., wordt de plak geaccepteerd. laat me kijken of ik dit kan afstemmen .. toch bedankt
jepson
Deze opmerking is gemaakt door de moderator op de site
Jepson, is het je gelukt om het probleem van kopiëren en plakken in meerdere cellen op te lossen? Bij voorbaat dank!
G
Deze opmerking is gemaakt door de moderator op de site
Hallo Dilip, kun je het probleem oplossen van het toestaan ​​van gegevens met behulp van plakwaarden..ik heb ook met hetzelfde probleem te maken..help me hierbij alstublieft
Amit Jain
Deze opmerking is gemaakt door de moderator op de site
Hallo Dilip, kun je het probleem oplossen van het toestaan ​​van gegevens met behulp van plakwaarden?
Amit Jain
Deze opmerking is gemaakt door de moderator op de site
is het je gelukt om het probleem van kopiëren en plakken in meerdere cellen op te lossen? Bij voorbaat dank!
arvind raj
Deze opmerking is gemaakt door de moderator op de site
Nee, ik kwam er niet uit. Ik probeerde niet op te lossen na een tijdje.
Dilip
Deze opmerking is gemaakt door de moderator op de site
Ik werk MAAR nadat je de code hebt ingevoerd, kun je niets ONgedaan maken. Geen enkele stap terug is toegestaan.
Eva
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties