Auswahl erster Eintrag in Listbox

[NobX]

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

[snb]

Code:

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

[NobX]

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

[snb]

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.

[NobX]

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

[snb]

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

[NobX]

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

[snb]

Einfacher:

Code:

Private Sub CommandButton1_Click()
  With Tabelle1.ListBoxes(1)
    .List = .List
    .Selected(1) = True
  End With
End Sub