Thema Datum  Von Nutzer Rating
Antwort
Rot For each EigeneKlasse in Object
 10.04.2017 10:21:10 The_Materialist
NotSolved
10.04.2017 20:45:51 Gast45101
NotSolved
11.04.2017 08:05:35 The_Materialist
NotSolved

Ansicht des Beitrags:
Von:
The_Materialist		 Datum:
10.04.2017 10:21:10		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
For each EigeneKlasse in Object

Hallo Internet,

Ich habe mir eine eigene Klasse FilterLine geschrieben die eine Line von Comboboxen in einer Userform darstellen. Jetzt möchte ich die Comboboxen füllen. Dabei sollen die Einträge von den schon ausgewählten Combobox.Values abhängen. Ich möchte jetzt folgendes machen:

 

Ich habe eine Userform frmFilter in der eine Collection FilterCol ist die alle Objekt der Klasse FilterLine enthält. Jetzt möchte ich die Sub FillFilter dazu  benutzen die Filter der Klasse zu füllen (Filter ist eine Combobox). Wenn ein Filter schon einmal ausgewählt wurde wird er nicht mehr hinzugefügt. Dazu verwende ich folgenden Code:

Public Sub fillFilter()
Dim tbl As ListObject
Dim cell As Range
Dim fLine As FilterLine


Set tbl = ThisWorkbook.Worksheets("Masterdata").ListObjects("FilterTBL")

For Each cell In tbl.ListColumns(2).DataBodyRange
      For Each fLine In frmFilter.FilterCol
            If Not (fLine.Filter.Value = cell.Value) And Not (fLine = Me) Then
                  Me.Filter.AddItem (cell.Value)
            End If
      Next fLine
Next cell

End Sub

Soviel ich verstanden habe, kann man for each für alle Typen einsetzten solange man eine Collection oder Object in der "IN" Condition eingibt bei der man eineindeutig darüber loopen kann (keine Wiederholenden Elemente). Das sollte bei meiner Collection erfüllt sein, jedoch beim Debuggen zeigt das Überwachungsfenster fLine als Nohting an. Wenn einer eine Idee hat bitte melden.

 

Grüsse

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
Rot For each EigeneKlasse in Object
 10.04.2017 10:21:10 The_Materialist
NotSolved
10.04.2017 20:45:51 Gast45101
NotSolved
11.04.2017 08:05:35 The_Materialist
NotSolved