Office: (Office 365) Problem im Code für Mehrfachauswahl in Dropdownliste

Helfe beim Thema Problem im Code für Mehrfachauswahl in Dropdownliste in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo beisammen, ich soll für meinen Stiefvater eine Tabelle über seine Bestandskunden und deren Produkte erstellen und bin dabei nun auf folgendes... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von JustMine, 24. Juli 2023.

  1. JustMine Neuer User

    Problem im Code für Mehrfachauswahl in Dropdownliste


    Hallo beisammen,

    ich soll für meinen Stiefvater eine Tabelle über seine Bestandskunden und deren Produkte erstellen und bin dabei nun auf folgendes Problem gestoßen:
    Ich brauche in mehreren Spalten eine Mehrfachauswahl wo die Grunddaten über Dropdown Listen eingespielt werden.
    Dies habe ich nach einigem hin und her und googeln und videos schauen nun soweit geschafft und zwar mit folgendem VBA Code:


    Private Sub Worksheet_Change(ByVal Target As Range)
    '** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
    '** Einfügen im Code-Container des betreffenden Arbeitsblattes

    '** Dimensionierung der Variablen
    Dim rngDV As Range
    Dim wertold As String
    Dim wertnew As String

    '** Errorhandling
    On Error GoTo ErrorHandler

    '** Mehrfachauswahl im definierten Bereich durchführen
    If Not Application.Intersect(Target, Range("E2:I600")) Is Nothing Then

    '**Range definieren
    Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
    If rngDV Is Nothing Then GoTo ErrorHandler

    '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
    If Not Application.Intersect(Target, rngDV) Is Nothing Then
    Application.EnableEvents = False
    wertnew = Target.Value
    Application.Undo
    wertold = Target.Value
    Target.Value = wertnew
    If wertold <> "" Then
    If wertnew <> "" Then
    Target.Value = wertold & ", " & wertnew
    End If
    End If
    End If
    Application.EnableEvents = True
    Exit Sub

    '** Errorhandling
    ErrorHandler:
    Application.EnableEvents = True
    Exit Sub

    End If
    End Sub

    Dies erfüllt zwar seinen Zweck aber nur wenn man die Zelle durch Mausklick auf eine andere Zelle verlässt. Immer wenn man die aktuelle Zelle mit Enter verlassen will kommen Fehlermeldungen auf und der Code vervielfacht das bereits ausgewählte um ein vielfaches. Wenn man wieder in die Zelle geht und alles entfernt und dann enter drückt gibt es keine Probleme und ich kann wieder die Mehrfachauswahl benutzen und es gibt - sofern ich nun mit Mausklick die Zelle verlasse - auch keine Probleme mehr.
    Habt ihr Ideen wie ich dieses Problem berichtigen kann, sodass der Benutzer wieder mit Enter die Zelle verlassen und somit zur nächsten springen kann?
    Ich habe nur sehr wenig Erfahrung im Coding und komme selber nicht auf den Fehler im Code und würde mich über Hilfe freuen.
     
    JustMine, 24. Juli 2023
    #1
  2. ralf_b Erfahrener User
    es fehlt eine Prüfung ob der einzutragende Wert schon vorhanden ist. es wird nur geprüft ob alt und neu nicht leer sind.
    ergänze verscuhsweise den Teil
    Code:
    If wertnew <> "" Then
            If InStr(1, wertold, wertnew) > 0 Then 'doppelte vermeiden
             Target.Value = wertold
            Else
             Target.Value = wertold & ", " & wertnew
            End If
          End If
     
    ralf_b, 24. Juli 2023
    #2
    1 Person gefällt das.
  3. Hajo_Zi
    Hajo_Zi Erfahrener User
    Warum so umfangreich?

    Code:
    Modul
    Option Explicit
    
    Public StTarget As String
    
    Diese Arbeitsmappe
    Option Explicit
    
    Private Sub Workbook_Open()
        If ActiveSheet.Name = "Tabelle1" And Target.Column = 8 Then
            StTarget = Target
        End If
    End Sub
    
    Tabelle
    Option Explicit
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Column = 8 Then
            Application.EnableEvents = False
            Target = StTarget & " " & Target
            Application.EnableEvents = True
            StTarget = Target
        End If
    End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Column = 8 Then
            StTarget = Target
        End If
    End Sub
    
    wie in Deinem Beispiel muss die Eingabe mit Enter abgeschlossen werden.

    Problem im Code für Mehrfachauswahl in Dropdownliste GrußformelProblem im Code für Mehrfachauswahl in Dropdownliste Homepage
     
    Hajo_Zi, 24. Juli 2023
    #3
    1 Person gefällt das.
Thema:

Problem im Code für Mehrfachauswahl in Dropdownliste

Die Seite wird geladen...
  1. Problem im Code für Mehrfachauswahl in Dropdownliste - Similar Threads - Problem Code Mehrfachauswahl

  2. Problem bei Fußnote

    in Microsoft Word Hilfe
    Problem bei Fußnote: Hallo zusammen, habe folgendes Problem. Sobald ich eine Fußnote einfüge, erscheint automatisch am Ende der Seite eine Art Überschrift mit der Zahl 1. Hier der Screenshot. Habe schon alles...
  3. Excel found a problem with one or more formula references in this worksheet

    in Microsoft Excel Hilfe
    Excel found a problem with one or more formula references in this worksheet: Liebes Forum, ich habe ein Problem, das viel durch das Internet geistert, aber nirgendwo gibt es eine erfolgreiche Lösung für: "Excel found a problem with one or more formula references in this...
  4. Zählenwenns Problem

    in Microsoft Excel Hilfe
    Zählenwenns Problem: Hallo. Ich möchte zählen wie oft der Name Person 2 vorkommt aber nur dann wenn darüber ein anderer Name steht. Also in C3 sollte 5 mal stehen aber in C4 nichts bzw. 0 Dann in C8 die 2 und in C9...
  5. Problem mit Seitenzahlen/Seitenbeschriftung

    in Microsoft Word Hilfe
    Problem mit Seitenzahlen/Seitenbeschriftung: Hallo, ich schreibe gerade meine Masterarbeit und habe ein kurioses Problem, bei dem ich nicht weiterkomme. Ich habe eine "beidseitige" Vorlage für die Masterarbeit der Universität verwendet. Da...
  6. Data Transform, Problem with delimiter

    in Microsoft Excel Hilfe
    Data Transform, Problem with delimiter: Hello Community, I encounter one problem with excel. When I export table from csv I have a delimiter semicolon, but it doesn't work. I found solution. If I would go to Power Query Editor - Split...
  7. Problem mit VBA-Codes / Pflichtfelder ausfüllen, dann erst Möglichkeit zum Speichern

    in Microsoft Excel Hilfe
    Problem mit VBA-Codes / Pflichtfelder ausfüllen, dann erst Möglichkeit zum Speichern: Hallo zusammen, ich benötige mal die Hilfe von Spezialisten. Ich stehe vor folgendem Problem (am Beispiel der angehängten Datei): 1.) Ein Speichern der Vorlage soll erst dann möglich sein, wenn...
  8. Einfacher Fortschrittsbalken, Problem mit Code

    in Microsoft Excel Hilfe
    Einfacher Fortschrittsbalken, Problem mit Code: Hallo Ich habe aus dem Internet folgenden Fortschrittsbalken heruntergeladen. Nun verstehe ich das Beispiel usw. ohne Probleme. Wenn ich aber versuche die USerForm zu exportieren in ein anderes...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden