HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

ComboBox Markieren

Forumthread: ComboBox Markieren
12 Beiträge zu diesem Forumthread
Anzeige

Forumthread: ComboBox Markieren

ComboBox Markieren

12.12.2024 23:41:32

Daniel Eberhard

Guten Abend

Ich fülle eine Mehrspaltige ComboBox. In der ersten Spalte wird ein Text angegeben. In der zweiten Spalte welche in der ComboBox nicht angezeigt wird, befindet sich die Zeilennummer des Textes zum Beispiel die Zahl 6. Wie kann ich jetzt in der ComboBox diejenige Zeile markieren in der die Zahl 6 steht?

Mit diesem Code befülle ich die ComboBox:



Sub CB_Beginn_Morgen_füllen()



    Application.EnableEvents = False



        With UF_Arbeitszeit.CB_Beginn_Morgen

            .Clear

            .AddItem ""

            .SetFocus

            For i = 4 To 14

                .AddItem Format(ThisWorkbook.Worksheets("Tabelle1").Cells(i, 1), "##00.#0 Uhr")

                .List(.ListCount - 1, 1) = ThisWorkbook.Worksheets("Tabelle1").Cells(i, 1).Row

            Next i

        End With



    Application.EnableEvents = True



End Sub

Besten Dank für Eure Hilfe.

Freundliche Grüsse
Daniel Eberhard

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ComboBox Markieren

13.12.2024 00:03:08

Kuwer
AW: ComboBox Markieren

13.12.2024 10:10:56

daniel
AW: ComboBox Markieren

13.12.2024 11:22:55

Kuwer
AW: ComboBox Markieren

13.12.2024 11:30:57

daniel
AW: ComboBox Markieren

13.12.2024 14:38:16

Daniel Eberhard
AW: ComboBox Markieren

13.12.2024 14:52:21

daniel
AW: ComboBox Markieren

13.12.2024 14:52:33

daniel
AW: ComboBox Markieren

13.12.2024 00:41:49

Daniel Eberhard
AW: ComboBox Markieren

13.12.2024 00:45:51

Kuwer
AW: ComboBox Markieren

13.12.2024 01:27:57

Daniel Eberhard
AW: ComboBox Markieren

13.12.2024 01:36:51

ralf_b
AW: ComboBox Markieren

13.12.2024 06:07:48

GerdL

AW: ComboBox Markieren

13.12.2024 00:03:08

Kuwer

Hallo Daniel Eberhard,

über End With :

.ListIndex = 3

Gruß, Uwe

AW: ComboBox Markieren

13.12.2024 10:10:56

daniel

HI
die zweite Schleife sucht dann den gesuchten Wert in der Liste und wählt die entsprechende Zeile aus:

Sub CB_Beginn_Morgen_füllen()

  With UF_Arbeitszeit.CB_Beginn_Morgen

      .Clear

      .AddItem ""

      .SetFocus

      For i = 4 To 14

          .AddItem Format(ThisWorkbook.Worksheets("Tabelle1").Cells(i, 1), "##00.#0 Uhr")

          .List(.ListCount - 1, 1) = i

      Next i

    For i = 0 To .ListCount - 1

        If .List(i, 1) = "6" Then

            ListIndex = i

            Exit For

        End If

    Next

  End With

End Sub

Gruß Daniel

AW: ComboBox Markieren

13.12.2024 11:22:55

Kuwer

Hallo Daniel,

da sollte dann aber die Möglichkeit, Mehrfachtreffer darzustellen, drin sein (Thema MultiSelect). ;-)
Es fehlt auch ein Punkt.

Gruß, Uwe

AW: ComboBox Markieren

13.12.2024 11:30:57

daniel

Uwe, wenn du weißt wie, dann zeig es uns
(sorry, ich bin grad nicht in der Stimmung für solche Klugscheißerkommentar)

AW: ComboBox Markieren

13.12.2024 14:38:16

Daniel Eberhard

Guten Tag zusammen.
Ich möchte mich zuerst recht herzlich bedanken, für all die Unterstützungen die ich da im Forum erhalte.
Danke Daniel für Dein Beispiel. Dies funktioniert wie ich mir das Vorgestellt habe.
Ich frage mich, ob dies nicht ohne Schleife auslesbar ist?

Mein Ansatz und Idee wäre irgendwie so:



    With UF_Arbeitszeit.CB_Beginn_Morgen

        .Value = .ListIndex = .List(1, 1)

    End With

Daniel Dein Beitrag wegen Uwe hat mich etwas gefreut. Hatte mich gestern Abend auf die Antworten auch recht genervt. Ich suche oft und viel, zuerst im Netz. Doch irgendwann möchte man doch auch zu einer Lösung kommen. Dafür sind doch solche Forum da, um jemand helfen zu können.
Dies ist meine Meinung und möchte aber auch niemand damit Beleidigen oder sauer machen.
Habe die Frage nochmals offengelassen. Ansonsten, werde ich sicher die Schleife anwenden.
Danke Euch und wünsche allen ein schönes Wochenende.

Freundliche Grüsse
Daniel Eberhard

AW: ComboBox Markieren

13.12.2024 14:52:21

daniel

Hi
da kommet es jetzt genauer darauf an, welche Zeile du markieren willst.
wenn du einen bestimmten Wert markieren will, musst du suchen, wo dieser steht und das geht am einfachsten mit der Suchschleife.

in deinem Fall kannst du dir aber ausrechnen, dass du die dritte Zeile markieren willst (erste Zeile 3, zweite 5, dritte dann gesuchte Wert 6)
wenn man die Zeile ausrechnen kann, muss man nicht suchen, dann kann man auch direkt ohne Schleife auf den Wert gehen.

also in deinem Fall ist der Index der gesuchten Zeile 2 (Index beginnt bei Null, daher immer eins weniger als gezählt) oder berechnet dann 6-4

als Code

With UF_Arbeitszeit.CB_Beginn_Morgen

       .List = 2

    End With

Gruß Daniel

AW: ComboBox Markieren

13.12.2024 14:52:33

daniel

With UF_Arbeitszeit.CB_Beginn_Morgen

       .ListIndex= 2

    End With

Gruß Daniel

AW: ComboBox Markieren

13.12.2024 00:41:49

Daniel Eberhard

Hallo Uwe
Ich begreife jetzt Deine Antwort nicht ganz. Wo muss ich das .Listindex=3 hin schreiben?

Muss nicht irgendwo zum Beispiel sowas stehen?





 With Me.CB_Beginn_Morgen

    .Value = .List(.ListIndex = 6)

    End With

AW: ComboBox Markieren

13.12.2024 00:45:51

Kuwer

Sub CB_Beginn_Morgen_füllen()

  With UF_Arbeitszeit.CB_Beginn_Morgen

      .Clear

      .AddItem ""

      .SetFocus

      For i = 4 To 14

          .AddItem Format(ThisWorkbook.Worksheets("Tabelle1").Cells(i, 1), "##00.#0 Uhr")

          .List(.ListCount - 1, 1) = i

      Next i

    .ListIndex = 3

  End With

End Sub

AW: ComboBox Markieren

13.12.2024 01:27:57

Daniel Eberhard

Hallo Uwe

Ah cool. Du hast noch mein Code vereinfacht.
Aber für was steht jetzt das .Listindex=3?

Versuche es nochmals zu Erklären was ich möchte:

Als Beispiel: Es sollte mir der Eintrag in der Combobox markieren wo in Spalte 2 die Zahl 6 steht.

Vielleicht verstehts Du jetzt was ich gerne möchte?

Freundliche Grüsse
Daniel Eberhard

AW: ComboBox Markieren

13.12.2024 01:36:51

ralf_b

warum recherchierst du nicht was listindex bedeutet. So schwer ist das doch wirklich nicht. Dann dürfte dir auch klarwerden warum die 3 zu deinem Ergebnis führt.

AW: ComboBox Markieren

13.12.2024 06:07:48

GerdL

0 -- ""
1 -- 4
2 -- 5
3 -- 6

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!