Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: ZimmeMi am April 28, 2015, 15:53:01 Nachmittag

Titel: drop down mit mehrfachauswahl
Beitrag von: ZimmeMi am April 28, 2015, 15:53:01 Nachmittag

Hallo zusammen,

ich habe folgendes Problem:
habe eine Drop Down Liste mit mehrfach auswahl erstellt. Dies funktioniert soweit ganz gut.
Sobald ich jedoch den Blattschutz aktiviere, funktioniert die Mehrfachauswahl nicht mehr.
Auch dann nicht, wenn ich alle Häckchen beim Blattschutz aktiviere.
Die Zelle ist natürlich nicht gesperrt.

Hier der 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 wert_old As String
Dim wertnew As String

'** Errorhandling
On Error GoTo Errorhandling

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

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

'** 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
End If

Errorhandling:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub



Kann mir hier jemand behilflich sein?

Gruß,
ZimmeMi

Titel: Antw: drop down mit mehrfachauswahl
Beitrag von: maninweb am April 28, 2015, 17:25:57 Nachmittag

Hallo,

ohne den Code nachzuvollziehen, könntest Du probieren den Blattschutz per Code aufzuheben und wieder zu setzen.
Beispiel:

Code: Visual Basic

1. ActiveSheet.Unprotect "Kennwort"
2. :
3. :
4. Dein Code
5. :
6. :
7. ActiveSheet.Protect "Kennwort"
8.  

Gruß

Titel: Antw: drop down mit mehrfachauswahl
Beitrag von: ZimmeMi am April 29, 2015, 16:30:23 Nachmittag

hat leider nicht funktioniert ;(

Titel: Antw: drop down mit mehrfachauswahl
Beitrag von: maninweb am April 29, 2015, 17:23:36 Nachmittag

Hallo,

dann schlage ich vor, dass Du hier eine Beispieldatei hochlädst. Was mich betrifft, nachvollziehen kann ich die Frage so nicht.

Gruß