Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox automatisch Haken setzen

Forumthread: Listbox automatisch Haken setzen

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 14:06:16
Rudi
Hallo,
Private Sub WertHintenRan()
    Dim arrNr
    Dim r&, i&, j&
    
    With ListBox1
        .AddItem
        .List(.ListCount - 1, 1) = TextBox1
    End With
    With TabFürListe
        .ListRows.Add
        r = .ListRows.Count
        .DataBodyRange.Columns(1).Cells(.DataBodyRange.Columns(1).Cells.Count) = ListBox1.List(ListBox1.ListCount - 1, 0)
        .DataBodyRange.Columns(2).Cells(.DataBodyRange.Columns(1).Cells.Count) = ListBox1.List(ListBox1.ListCount - 1, 1)
        
        With .DataBodyRange
             .Cells(r, 1) = .Cells(1, 1)
             .Cells(r, 2) = TextBox1
             ListBox1.List = .Value
        End With
    End With
    
    ReDim Preserve arrSelected(UBound(arrSelected) + 1)
    arrSelected(UBound(arrSelected)) = ListBox1.ListCount - 1
    TextBox1 = ""
    For i = 0 To ListBox1.ListCount - 1
        For j = 0 To UBound(arrSelected)
            If arrSelected(j) = i Then
                ListBox1.Selected(i) = True
                Exit For
            End If
        Next j
    Next i
End Sub
Gruß
Rudi
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 14:43:32
Marcus
Hallo Rudi,
vielen Dank für deine schnelle Unterstützung. Es funktioniert super. Eine Frage hätte ich noch (siehe im angehangenen Bild).
https://www.herber.de/bbs/user/158161.png
Gruß Marcus
AW: Listbox automatisch Haken setzen
07.03.2023 14:46:42
Rudi
Hallo,
dann ohne Preserve
    ReDim arrSelected(UBound(arrSelected) + 1)
    arrSelected(UBound(arrSelected)) = ListBox1.ListCount - 1
Gruß
Rudi
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 14:53:12
Marcus
Wenn ich mehrere Auswähle und dann auf einen Text doppelt klicke, dann nimmt das Programm die Haken bei den Einzelauswahlen weg und behält das Häkchen bei dem Doppelklick. Irgendwie ist da der Wurm drin. Könntest du mir dabei weiterhelfen?
Gruß Marcus
AW: Listbox automatisch Haken setzen
07.03.2023 15:01:19
Rudi
ich weiß überhaupt nicht, was das alles soll.
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 15:05:38
Marcus
Ich würde das gerne für mich optimieren und automatisieren. Wenn ich einen Satz aus dem Katalog auswähle und anpasse, soll dieser automatisch ausgewählt werden und die anderen, die ich nur mit einem Klick anklicke sollen dabei ausgewählt bleiben.
AW: Listbox automatisch Haken setzen
07.03.2023 15:16:06
Rudi
und die anderen, die ich nur mit einem Klick anklicke sollen dabei ausgewählt bleiben.
Vorhin war's genau anders rum.
Du solltest ein genaue, detaillierte Funktionsbeschreibung verfassen.
Gruß
Rudi
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 16:02:44
Rudi
dann darfst du in arrSelected den doppelt geklickten Eintrag nicht aufnehmen:
Private Sub CommandButton2_Click()
    Dim i&, j&
    For i = 0 To ListBox1.ListCount - 1
      If i > iZeile Then
        If ListBox1.Selected(i) Then
            ReDim Preserve arrSelected(j)
            arrSelected(j) = i
            j = j + 1
        End If
      End If
    Next i
    If MsgBox("Soll der Wert zusätzlich in die Listbox eingefügt werden", _
        vbQuestion + vbYesNo, "Abfrage wie in Listbox übernehmen") = vbYes Then
        WertHintenRan
    Else
        WertAendern
    End If
End Sub
In WertHintenRan das Preserve wieder rein.
Gruß
Rudi
Anzeige
AW: Listbox automatisch Haken setzen
07.03.2023 16:08:28
Marcus
Vielen lieben Dank, genau so sollte es sein. Vielen Dank für deine Mühe.
Gruß Marcus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige