Office: Dropdown-Listenfeld über zwei Spalten

jinx · 21. November 2010

Moin, DB77,

um mich doch noch zum Mitdenken zu animieren hast Du im Teil

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ReDim myArr(1 To WorksheetFunction.CountIf(rngList, Range("A20").Value))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wohl absichtlich einen Fehler eingebaut

Bestimmt nicht, nur fahrlässigerweise den Code nicht an Target angepasst, sondern mit einer Zellangabe versehen stehen gelassen.

Funktioniert auch alles prima. Wenn ich eine Zelle aus Spalte A wieder lösche, ist die Sperre wieder drin. Sobald ich aber mehrere Zellen aus Spalte A lösche, funktioniert der Code im Hintergrund nicht mehr! Woran liegt das denn wieder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erstaunlich die Frage, wo doch auf die Lösung ziemlich weit oben im Code als Kommentar hingewiesen wird:
Code:

'nur eine Zelle zur Bearbeitung zulassen
If Target.Count > 1 Then Exit Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DB77 · 21. November 2010

Erstaunlich die Frage, wo doch auf die Lösung ziemlich weit oben im Code als Kommentar hingewiesen wird:

Code:

'nur eine Zelle zur Bearbeitung zulassen
If Target.Count > 1 Then Exit Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das befindet sich auch so im Code, weil das Weglassen den Laufzeitfehler 13: "Typen unverträglich" verursacht *tongue.gif*

DB77 · 21. November 2010

Mahlzeit jinx,

tut mir echt leid, wenn ich immer weiter bohren und nerven muss...

..aber sobald ein "Beruf" in der Quelle nicht vorhanden ist und man diesen dann in Spalte A auswählt, habe ich noch so ein Laufzeitfehler ("Index außerhalb des gültigen Bereichs").

Ist schon verständlich. Daher müsste der Code doch noch für die Spalte A erweitert werden, was ich auch schon vergeblich versucht habe.

Das Hauptprobelm müsste die Mehrfachnennung der Berufe im Listenfeld sein, wenn ich mich beim Listenfeld auf die Spalte H beziehe.

Werde noch eine Nacht drüber schlafen...

jinx · 21. November 2010

Moin, DB77,

lies Dir doch bitte einmal Deinen Eröffnungsthread durch - dort steht weder etwas von einem Bereich für Daten/Gültigkeit bzw. Löschen noch von Blattschutz:

ich versuche ein zweite Dropdown-Listenfeld zu erstellen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da fehlt einiges an Informationen, wie mir scheint...

Code:

'DieseArbeitsmappe
Private Sub Workbook_Open()
Dim myArr() As Variant
Dim lngArr As Variant
Dim lngList As Long

Const clngDV_LIST As Long = 30

With Tabelle2
Application.EnableEvents = False
For lngList = 3 To .Cells(Rows.Count, "H").End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(3, "H"), .Cells(lngList, "H")), .Cells(lngList, "H").Value) = 1 Then
lngArr = lngArr + 1
ReDim Preserve myArr(1 To lngArr)
myArr(lngArr) = .Cells(lngList, "H").Value
End If
Next lngList
.Unprotect Password:="abc"
With .Range("A2:A" & WorksheetFunction.Max(clngDV_LIST, .Cells.SpecialCells(xlCellTypeLastCell).Row)).Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=Join(myArr, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
With .Range("A2:B" & WorksheetFunction.Max(clngDV_LIST, .Cells.SpecialCells(xlCellTypeLastCell).Row))
.Locked = False
.FormulaHidden = False
End With
.Protect Password:="abc", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceonly:=True
.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'hinter Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myArr() As String
Dim rngList As Range
Dim rngCell As Range
Dim lngArr As Long
Dim rngTarg As Range

Const cstrLIST_COLUMN As String = "H"
Const clngLIST_START As Long = 3

For Each rngTarg In Target
If Target.Column = 1 And Target.Row >= 2 Then
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="abc"
With Target.Offset(0, 1)
.Value = ""
If Not IsEmpty(rngTarg) Then
Set rngList = Range(Cells(clngLIST_START, cstrLIST_COLUMN), Cells(Cells(Rows.Count, cstrLIST_COLUMN).End(xlUp).Row, cstrLIST_COLUMN))
ReDim myArr(1 To WorksheetFunction.CountIf(rngList, rngTarg.Value))
For Each rngCell In rngList
If rngCell.Value = rngTarg Then
lngArr = lngArr + 1
myArr(lngArr) = rngCell.Offset(, -1).Value
End If
Next rngCell
End If
With .Validation
.Delete
If Not IsEmpty(rngTarg) Then
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=Join(myArr, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End If
End With
End With
End If
Next rngTarg
With ActiveSheet
.Protect Password:="abc", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceonly:=True
.EnableSelection = xlUnlockedCells
End With
Set rngList = Nothing
Application.EnableEvents = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DB77 · 22. November 2010

Hallo jinx,

super, habe die beiden Codes noch modifiziert und zusammengeführt. Jetzt läuft alles wie geschmiert!!!

dort steht weder etwas von einem Bereich für Daten/Gültigkeit bzw. Löschen noch von Blattschutz:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die benötigte Gültigkeit der Spalte A hat sich aufgrund des Laufzeitfehlers noch ergeben. Von Blattschutz war nie die Rede *wink.gif*

Also nochmals vielen Dank und guten Start in die Woche. Hab einiges dazugelernt..

Office: Dropdown-Listenfeld über zwei Spalten

Dropdown-Listenfeld über zwei Spalten

Dropdown-Listenfeld über zwei Spalten

Dropdown-Listenfeld über zwei Spalten

Dropdown-Listenfeld über zwei Spalten - Similar Threads - Dropdown Listenfeld Spalten

Umsatzsteuer mit Dropdown berechnen - Rechnung

Feld in Abhängigkeit eines Dropdowns

DropDown Auswahl mit 2 Funktionen

DropDown öffnen bei anwählen (.Select) einer Zelle

Dynamische Dropdown-Auswahl

Infopath 2007: Voneinander abhängige Dropdown Listenfelder

Dropdown-Listenfeld