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

Wie kann das Kopieren und Einfügen über Zellen mit Dropdown-Liste in Excel verhindert werden?

Wenn für eine Zelle mit Dropdown-Liste zur Datenüberprüfung Inhalte aus einer anderen Zelle kopiert und in diese eingefügt werden, wird die Dropdown-Liste gelöscht und durch den neuen Einfügeinhalt ersetzt. In einigen Fällen möchten Sie verhindern, dass andere Inhalte mit einer Dropdown-Liste kopiert und in die Zelle eingefügt werden. Was würden Sie tun, um damit umzugehen? In diesem Artikel erhalten Sie eine VBA-Methode zur Behebung dieses Problems.

Verhindern Sie das Kopieren und Einfügen über Zellen mit Dropdown-Liste in Excel


Verhindern Sie das Kopieren und Einfügen über Zellen mit Dropdown-Liste in Excel

1. Öffnen Sie das Arbeitsblatt mit der Dropdown-Listenzelle, die Sie nicht kopieren und einfügen möchten.

2. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic-Anwendungen Fenster.

3. In dem Microsoft Visual Basic-Anwendungen Doppelklicken Sie im linken Bereich auf den aktuellen Arbeitsblattnamen, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein. Siehe Screenshot:

VBA-Code: Verhindern Sie das Kopieren und Einfügen über Zellen mit Dropdown-Liste

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. Drücken Sie Andere + Q Tasten zum Verlassen des Microsoft Visual Basic-Anwendungen Fenster.

5. Wenn Sie Inhalte in eine Zelle mit Dropdown-Liste einfügen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, dass das Einfügen nicht zulässig ist. Siehe Screenshot:

Hinweis: Diese VBA funktioniert nur beim Einfügen einzelner Zellen. Wenn Sie mehrere Zellen kopieren und einfügen, funktioniert dies nicht.

Erstellen Sie einfach eine Dropdown-Liste mit Kontrollkästchen in Excel:

Das Dropdown-Liste mit Kontrollkästchen Nutzen von Kutools for Excel Sie können auf einfache Weise eine Dropdown-Liste mit Kontrollkästchen in einem bestimmten Bereich, einem aktuellen Arbeitsblatt, einer aktuellen Arbeitsmappe oder allen geöffneten Arbeitsmappen erstellen, die Ihren Anforderungen entsprechen.
Laden Sie die vollständige Funktion herunter 30-tägiger kostenloser Trail von Kutools for Excel jetzt!


In Verbindung stehende Artikel:

Wie erstelle ich eine Dropdown-Liste mit mehreren Kontrollkästchen in Excel?
Viele Excel-Benutzer erstellen in der Regel eine Dropdown-Liste mit mehreren Kontrollkästchen, um mehrere Elemente pro Zeit aus der Liste auszuwählen. Tatsächlich können Sie mit der Datenüberprüfung keine Liste mit mehreren Kontrollkästchen erstellen. In diesem Tutorial zeigen wir Ihnen zwei Methoden zum Erstellen einer Dropdown-Liste mit mehreren Kontrollkästchen in Excel. Dieses Tutorial bietet die Methode zur Lösung des Problems.

Erstellen Sie eine Dropdown-Liste aus einer anderen Arbeitsmappe in Excel
Es ist recht einfach, eine Dropdown-Liste zur Datenüberprüfung zwischen Arbeitsblättern in einer Arbeitsmappe zu erstellen. Was würden Sie tun, wenn sich die für die Datenüberprüfung benötigten Listendaten in einer anderen Arbeitsmappe befinden? In diesem Tutorial erfahren Sie ausführlich, wie Sie eine Drop-Fown-Liste aus einer anderen Arbeitsmappe in Excel erstellen.

Erstellen Sie eine durchsuchbare Dropdown-Liste in Excel
Für eine Dropdown-Liste mit zahlreichen Werten ist es keine leichte Aufgabe, eine richtige zu finden. Zuvor haben wir eine Methode zum automatischen Ausfüllen der Dropdown-Liste eingeführt, wenn Sie den ersten Buchstaben in das Dropdown-Feld eingeben. Neben der Funktion zur automatischen Vervollständigung können Sie die Dropdown-Liste auch durchsuchbar machen, um die Arbeitseffizienz beim Finden geeigneter Werte in der Dropdown-Liste zu verbessern. Probieren Sie die Methode in diesem Lernprogramm aus, um die Dropdown-Liste durchsuchbar zu machen.

Füllen Sie andere Zellen automatisch aus, wenn Sie Werte in der Excel-Dropdown-Liste auswählen
Angenommen, Sie haben eine Dropdown-Liste basierend auf den Werten im Zellbereich B8: B14 erstellt. Wenn Sie einen Wert in der Dropdown-Liste auswählen, möchten Sie, dass die entsprechenden Werte im Zellbereich C8: C14 automatisch in eine ausgewählte Zelle eingefügt werden. Um das Problem zu lösen, tun Ihnen die Methoden in diesem Tutorial einen Gefallen.

Weitere Tutorials für Dropdown-Liste ...


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (12)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies funktioniert, aber wenn ich einen Wert einfüge, werden Daten zugelassen, die nicht aus der Dropdown-Liste stammen. Jede Möglichkeit, einen Wert einzuschränken, der nicht in der Liste enthalten ist.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Dilip, konntest du das Problem lösen, ich habe auch ein ähnliches Problem. Ich muss Kopieren und Einfügen nur für Dropdown-Werte in der Datenvalidierungszelle zulassen, andere muss ich einschränken. Können Sie Ihre Lösung teilen. Danke Raoo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, während ich dieses Makro ausführe, erhalte ich diesen Debug-Fehler "Application.Undo". Bitte lösen Sie dies so schnell wie möglich
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, oben erwähnter VBA-Code wird nicht ausgeführt. Bitte lösen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Private Sub Worksheet_Change(ByVal Target As Range) Dim xValue As String Dim xCheck1 As String Dim xCheck2 As String If Target.Count > 1 Then Exit Sub End If Application.EnableEvents = False xValue = Target.Value On Error Resume Next xCheck1 = Target. Validation.InCellDropdown Bei Fehler GoTo 0 Application.Undo Bei Fehler Fortsetzen Weiter xCheck2 = Target.Validation.InCellDropdown Bei Fehler GoTo 0 If xCheck1 = xCheck2 Then Target = xValue Else MsgBox "Kein Einfügen erlaubt!" End If Application.EnableEvents = True End Sub Dieses Makro funktioniert nicht, wenn es aus einer anderen Arbeitsmappe oder einem anderen Arbeitsblatt kopiert wird, also sagen Sie mir bitte, wie ich diese Dinge auch vermeiden kann
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank !! funktioniert gut für mich!!! das Kopieren in eine einzelne Zelle ist eingeschränkt. aber wenn ich eine Liste von Zellen kopiere und einfüge ..., wird das Einfügen akzeptiert. Lassen Sie mich sehen, ob ich das einstellen kann. Danke trotzdem
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Jepson, haben Sie es geschafft, das Problem des Kopierens und Einfügens in mehrere Zellen zu lösen? Danke im Voraus!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Dilip, können Sie das Problem beheben, dass Daten mithilfe von Einfügewerten zugelassen werden. Ich stehe auch vor demselben Problem. Helfen Sie mir bitte dabei
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Dilip, können Sie das Problem des Zulassens von Daten mithilfe von Einfügewerten beheben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Konnten Sie das Problem des Kopierens und Einfügens in mehrere Zellen lösen? Danke im Voraus!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nein, ich habe es nicht herausgefunden. Ich habe nicht versucht, es nach einer Weile zu lösen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich funktioniert, ABER nachdem Sie den Code eingegeben haben, können Sie nichts rückgängig machen. Kein einziger Schritt zurück ist erlaubt.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL