2 Farbige Listboxen

[michel34497]

Hallo Leute!
Es ist ein altes Thema, aber ich brauche dazu nochmals eure Hilfe!
Das, Was ich habe, ist:
1.        Den Code habe ich von Paulchens Excel Werkstatt.  www.excel-werkstatt.de/index.php?site=download/download&kat=14...21 . Das Ganze haben wir schon mal 2017 im Forum besprochen.
2.        Ich habe den Code so mit eurer Hilfe umgebaut, wie ich ihn brauchte, der funktioniert auch super.
3.        Das Befüllen der Frames funktioniert (teilweise)
Jetzt habe ich, eine 2. Farbige Frame in meine User Form einfüget, wo ich nochmals eine Auswahl machen möchte bevor die eigentlichen daten in der List Box erscheinen. Das Befüllen der Frames funktioniert.
Die Problem:
1.        Set zeil = Sheets("Data").Cells(101, 1).Find(What:="Absaugung", LookIn:=xlValues, lookat:=xlWhole)
Warum muss ich Set verwenden um diese Zeile auszuführen? Nur zur Erklärung!
2.        Ich möchte gerne bei Find(What:=
die angeklickte Position von Frame1 verwenden (da glaube ich, ich sehe den Wald vor lauter Bäumen nicht) so das sie als variable dahinter erscheint.
3.        Das nächste ist, wenn in Frame1 was angeklickt wurde, kann ich nicht mehr die nächste Zeile in Frame1 anklicken. Also sie wird nicht mehr hinterlegt.
4.        USW.
Ich möchte gerne wissen in welches Frame geklickt wurde und das, was angeklickt wurde auch noch sichtbar im Frames ist. Damit ich das weiterverarbeiten kann

[michel34497]

Hallo Leute

Die Problem:
1.        Set zeil = Sheets("Data").Cells(101, 1).Find(What:="Absaugung", LookIn:=xlValues, lookat:=xlWhole)
Warum muss ich Set verwenden um diese Zeile auszuführen? Nur zur Erklärung!
2.        Ich möchte gerne bei Find(What:=
die angeklickte Position von Frame1 verwenden (da glaube ich, ich sehe den Wald vor lauter Bäumen nicht) so das sie als variable dahinter erscheint.
3.        Das nächste ist, wenn in Frame1 was angeklickt wurde, kann ich nicht mehr die nächste Zeile in Frame1 anklicken. Also sie wird nicht mehr hinterlegt.
4.        USW.

 Zu 2 habe ich eine Lösung gefunden:
diese ist der Code von meinen aktuellen Projekt
Set zeil = Wksh_QB.Sheets("Data").Range(Wksh_QB.Sheets("Data").Cells(101, 1), Wksh_QB.Sheets("Data").Cells(195, 1)).Find(What:=tabRegPer, LookIn:=xlValues, lookat:=xlWhole)

[1Matthias]

Moin!
Zu deinem 1.
Die find Funktion hat als Rückgabewert ein Objekt (Range-Objekt). Dieses wird der Variablen zugewiesen, um damit weiter zu arbeiten. Die Zuweisung erfolgt mit set.
https://learn.microsoft.com/de-de/office...range.find

VG

[michel34497]

Hallo,

vielen dank für die Erklärung!
Jetzt brauche ich nur noch die Hilfe für Punkt 3

[schauan]

Hallöchen,

3) wie kommen denn Zeilen in den Frame?

[michel34497]

Hallo,
so ich habe in den tiefen meiner Festplatte, was gefunden, wo mit man besser Arbeiten kann.
Die Exceldatei ist von P@ulchen, in dieser Datei ist nicht so viel Code wie in meiner. Diese habe ich jetzt erstmal so erweitert für meine Frage, die gestellt wurde. Die Frames werden beim Start befüllt, was in der Original anders ist. Da wird das zweite Frame erst befüllt, wenn in Frame1 was ausgewählt wurde.
 Ich habe dann ein zusätzliches Klassenmodul hinzugefügt. Damit Frame2 auch funktioniert. Ich möchte jetzt das in Frame1, was ausgewählt und maskiert wird (die Auswahl soll so lange sichtbar sein, bis was anderes in Frame1 ausgewählt wird. Egal was in Frame2 ausgewählt wird), das funktioniert auch teilweise. 
Nun soll auch was in Frame2 ausgewählt werden und maskiert werden, funktioniert teilweise.

Ich hoffe ich drücke mich jetzt richtig aus!
Wenn in Frame2 was ausgewählt wird, wird es auch maskiert.
Wähle ich die nächste Zeile aus wird diese auch maskiert und die vorherige Zeile nicht demaskiert.
Probiert es einfach mal aus!
Das ist im Moment mein Problem, was ich habe. Das möchte ich gerne behoben haben!
Was noch schön wäre, ist wenn in Frame2 was ausgewählt wurde, das eine MsgBox erscheint, mit den werten aus Frame1 und Frame2

 
@Andre
Die Daten für die Frames kommen aus dem Tabellenblatt Data (bei der Datei die ich vorher eingestellt habe).

[Kuwer]

Hallo Michael,

Modul1:

Code:

Option Explicit
Public cLabel() As New clsLabel
Public cLabel1() As New clsLabel1
Sub Farbe()
Dim CB As Control
For Each CB In Fahrer.Frame1.Controls
    If TypeName(CB) = "Label" Then CB.BackColor = &HFFFFFF
Next CB
End Sub
Sub Farbe1()
Dim CB1 As Control
For Each CB1 In Fahrer.Frame2.Controls
    If TypeName(CB1) = "Label" Then CB1.BackColor = &HFFFFFF
Next CB1
End Sub

Klassenmodul clsLabel1:

Code:

Option Explicit

Public WithEvents Label1 As MSForms.Label

Private Sub Label1_Click()
    Range("B1").Value = Label1.Caption
    Farbe1
    Label1.BackColor = &HFFFF&
    MsgBox Range("A1").Value & vbNewLine & Range("B1").Value
End Sub

Gruß, Uwe

[michel34497]

Hallo Uwe,
vielen Dank! Ich glaube das ist es, werde das jetzt mal in meinen Code übernehmen.