Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmten Listboxeintrag markieren

Bestimmten Listboxeintrag markieren
26.06.2003 20:43:09
Jens_Pu
Hallo Excelfreunde,

ich möchte in einer Listbox in bestimmten Fällen den Eintrag über dem angeklickten markieren. Ich bekomme das aber nicht hin.
Mein Ansatz:



Private Sub ListBox1_Click()
  If ListBox1.List(ListBox1.ListIndex, 0) = "" Then
    ListBox1.ListIndex = ListBox1.ListIndex - 1
    'HIER sollte dann der neue Listeneintrag markiert werden
  End If
End Sub



     Code eingefügt mit Syntaxhighlighter 2.1


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bestimmten Listboxeintrag markieren
27.06.2003 10:34:23
L.Vira

Du kannst Probleme haben, aber interessant. Versuchs mal so:

Option Explicit
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Li As Integer
Li = ListBox1.ListIndex
If ListBox1.ListIndex > 0 And Button = 1 Then
While ListBox1.List(Li, 0) = ""
SendKeys "{UP}"
Li = Li - 1
Wend
End If
End Sub

Re: Bestimmten Listboxeintrag markieren
27.06.2003 15:40:32
Jens_Pu

Hallo L.Vira,

nett, dass Du Dich wieder einmal meiner erbarmt hast.
Da wäre ich in hundert langen Wintern nicht drauf gekommen.
Funzt prima. Dankeschön.

Gruss Jens

PS: Die einfacheren Sachen knobel ich ja meist selber raus. Drum frage ich ja meistens auch etwas anspruchsvolleres.
Wenn es Dich interesssiert was es wird, mail mich an.

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige