Thema Datum  Von Nutzer Rating
Antwort
27.07.2021 10:35:55 Lukas
NotSolved
Blau Datenüberprüfung Liste (Dropdown)-Schleife
27.07.2021 11:22:12 Gast6327
NotSolved
27.07.2021 12:32:19 Lukas
NotSolved
27.07.2021 13:22:45 Gast82420
NotSolved
27.07.2021 13:41:55 Lukas
NotSolved
27.07.2021 15:11:02 Gast34132
NotSolved
27.07.2021 17:32:38 Lukas
NotSolved
27.07.2021 17:39:07 Gast35170
NotSolved

Ansicht des Beitrags:
Von:
Gast6327
Datum:
27.07.2021 11:22:12
Views:
88
Rating: Antwort:
  Ja
Thema:
Datenüberprüfung Liste (Dropdown)-Schleife

Zellendropdown (Liste), welche dann auf die einzelnen Mitarbeiter zugreift

Um an die einzelnen Einträge in der Liste zu gelangen, kommt es auch darauf an, welche Art von Validierungsliste du verwendest (einfache Liste oder aus einem Bereich):

Option Explicit

Public Sub Test_EnumValidationList()
  
  Dim rngDropDown As Excel.Range
  Dim vntItems As Variant
  Dim vntItem As Variant
  
  Set rngDropDown = Worksheets("Tabelle1").Range("A1")
  
  On Error Resume Next
  If rngDropDown.Validation.Type <> XlDVType.xlValidateList Then
    Call MsgBox("Keine Liste!", vbExclamation)
    Exit Sub
  End If
  Set vntItems = rngDropDown.Worksheet.Evaluate(rngDropDown.Validation.Formula1)
  On Error GoTo 0
  
  If IsEmpty(vntItems) Then
    vntItems = Split(rngDropDown.Validation.Formula1, Application.International(XlApplicationInternational.xlListSeparator))
  End If
  
  For Each vntItem In vntItems
    Debug.Print vntItem
  Next
  
End Sub

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.07.2021 10:35:55 Lukas
NotSolved
Blau Datenüberprüfung Liste (Dropdown)-Schleife
27.07.2021 11:22:12 Gast6327
NotSolved
27.07.2021 12:32:19 Lukas
NotSolved
27.07.2021 13:22:45 Gast82420
NotSolved
27.07.2021 13:41:55 Lukas
NotSolved
27.07.2021 15:11:02 Gast34132
NotSolved
27.07.2021 17:32:38 Lukas
NotSolved
27.07.2021 17:39:07 Gast35170
NotSolved