dynamisches Dropdown/Combobox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Armin!
Mal angenommen die Liste mit den Mitarbeitern hat den Namen "liste" und
befindet sich im Tabellenblatt "Liste", dann kopiere diesen Code
in das Tabellenblatt in dem du die Namen eintragen willst!
(Rechtsklick auf Blattregister &gt Code anzeigen &gt in das rechte Fenster einfügen!)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, arr As Variant, tmp() As Variant, n As Integer, k As Integer

Set rng = Range("A2:F25") '<<<--Bereich der Wirksamkeit anpassen!!!!!!!!!

If Not Intersect(Target, rng) Is Nothing Then

  With Application
    .EnableEvents = False
    .Calculation = xlCalculationManual
  End With

  On Error Resume Next
  rng.SpecialCells(xlCellTypeAllValidation).Validation.Delete
  On Error GoTo ErrExit

  arr = Sheets("Liste").Range("Liste") '<<<--Namen der Tabelle und der Liste anpassen!!!!!!!!!!!

  For n = 1 To UBound(arr, 1)
    If Application.CountIf(rng, arr(n, 1)) = 0 Then
      Redim Preserve tmp(k)
      tmp(k) = arr(n, 1)
      k = k + 1
    End If
  Next

  With Target(1, 1).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:=Join(tmp, ",")
  End With

  If Target.Count = 1 Then Application.SendKeys "%{DOWN}"

End If

ErrExit:
With Application
  .EnableEvents = True
  .Calculation = xlCalculationAutomatic
End With

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Sepp,
inzwischen ist noch eine Frage aufgetaucht. Das Einfügen funktioniert wie gewünscht. Allerdings kann ich kein 2. Dropdownmenue einbauen. Mein Wunsch wäre folgender. In den Stammdaten (Blatt "Liste") stehen in verschiedenen Spalten mit den Überschiften Liste1, Liste2 usw verschiedene Einträge (hier: Vorarbeiter, Helfer, Azubis). Im Blatt "Arbeitsplan" sollte es dann verschiedene fest definierte Spalten/bzw Zeilen geben, die die Namen wieder den jeweiligen Überschiften zuordnet. Hier hatte ich auch ein kleines Problem, da ich keine Spaltenüberschrift in Zelle A1 eingeben konnte. (nicht per Definition zugelassen). Habe mir beholfen, das ich die Einträge aus A2 bis A21 per Formel kopiere und in Spalte B einfüge. Dann kann ich eine Spaltenüberschrift einfügen. Kann man übrigens das Dropdown-Menüe in irgend einer Art formatieren, z.B. mit Titelzeile versehen, fablich unterschiedlich darstellen. etc.?
Wäre schön wenn du nochmal helfen kannst.
Danke im Voraus!
Armin

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamisches Dropdown/Combobox

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread