Clever-Excel-Forum

Hallo zusammen,
vielleicht habt Ihr eine Lösung für meine Frage:
Für die Abwahl von Einträgen in eine Listbox verwende ich das nachstehende Makro über einen CommandButton.
Wenn die Auswahl der Einträge mit dem Makro aufgehoben wird, soll der erste Eintrag dieser Listbox immer gleichzeitig markiert werden. Ich viels ausprobiert, - habe leider keine Lösung gefunden, wie dies zu lösen ist. - Falls dies möglich sein sollte, würde ich mich über Eure Unterstützung sehr freuen.

Private Sub CommandButton3_Click()
Dim i As Long
'With Worksheets("Konditionen").ListBox117 'ListBox(ActiveX)
With Worksheets("Konditionen").ListBoxes("Listenfeld 117") 'Listenfeld (Formular)
'For i = 0 To .ListCount - 1 'ListBox(ActiveX)
For i = 1 To .ListCount 'Listenfeld (Formular)
Next
End With
End Sub

Danke im Voraus.

Grüße
NobX

Code:
Sheet1.ListBoxes(1).Selected(1) = True

Hallo,

danke für den Tipp.
Dies habe ich auch schon versucht. Es erscheint dabei immer die Meldung: Laufzeitfehler 424 Objekt erforderlich.

Grüße

NobX

Hier läuft's makellos.

Oder:
- es gibt kein Sheet1 (vielleicht Tabelle1)
- es gibt kein formular listbox im Arbeitsblatt
erstelle mit: Sheet1.ListBoxes.Add(12, 24, 135, 118).List = Sheet1.Range("A1:A30").Value

Oder du versuchst:

Sheets(1).ListBoxes(1).Selected(1) = True

Oder du ladest eine Beispieldatei hoch.

Wo genau hast Du die Code Zeile eingefügt?
Grüße
NobX

Hallo,

wenn es hilft, habe ich in der Anlage eine Beispieldatei hochgeladen.

Grüße
NobX

Makellos in deiner Datei:

Code:
Private Sub CommandButton1_Click()

  With Tabelle1.ListBoxes(1)

    For j = 1 To .ListCount

      .Selected(j) = j = 1

    Next

  End With

End Sub

Danke! Hat perfekt funktioniert! :28: :28:

Einfacher:

Code:
Private Sub CommandButton1_Click()

  With Tabelle1.ListBoxes(1)

    .List = .List

    .Selected(1) = True

  End With

End Sub

NobX

snb

NobX

snb

NobX

snb

NobX

snb