Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Auswahl erster Eintrag in Listbox
#1
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
Antworten Top
#2
Code:
Sheet1.ListBoxes(1).Selected(1) = True
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#3
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
Antworten Top
#4
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.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#5
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


Angehängte Dateien
.xlsm   Test Listbox1.xlsm (Größe: 22,05 KB / Downloads: 4)
Antworten Top
#6
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • NobX
Antworten Top
#7
Danke! Hat perfekt funktioniert! :28: :28:
Antworten Top
#8
Einfacher:

Code:
Private Sub CommandButton1_Click()
  With Tabelle1.ListBoxes(1)
    .List = .List
    .Selected(1) = True
  End With
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste