Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl in MultiSelect Lsitbox

Forumthread: Auswahl in MultiSelect Lsitbox

Auswahl in MultiSelect Lsitbox
19.05.2024 10:44:47
Daniel Eberhard
Guten Tag
Ich habe eine Multiselect Listbox in einer UserForm auf einer Multipace (Seite1).
Nun möchte ich, wenn die Listbox eine Auswahl hat, einige CommandButton versteckt werden und andere angezeigt.

Leider funktioniert mein unterstehender Code nicht ganz. Wenn ich etwas blau markiere, dann verschwinden die gewünschten Button & die anderen erscheinen. Doch wenn ich alle blauen Markierungen entferne, dann ändert sich nichts!

Besten Dank für Eure Hilfe.

Freundliche Grüsse Daniel Eberhard 





Private Sub LBMail_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    

    Dim i As Long

    

    With UFVersand

        If i = .LBMail.ListCount Then

            .CommandButton1.Visible = True

            .CommandButton2.Visible = False

            .CommandButton3.Visible = False

        Else

            .CommandButton1.Visible = False

            .CommandButton2.Visible = True

            .CommandButton3.Visible = True

        End If

    End With

End Sub



Private Sub UserForm_Activate()

    With UFVersand

        .CommandButton1.Visible = True

        .CommandButton2.Visible = False

        .CommandButton3.Visible = False

    End With

    

    Call LBMail_füllen

End Sub
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Du brauchst hier...
19.05.2024 11:19:26
Case
Moin, :-)

... keine Variable "i". Denn so kommst du nie in den "Else-Zweig". Wenn nichts in der ListBox ausgewählt ist, dann hat "ListCount" den Wert 0. Also prüfe auf... 

If .LBMail.ListCount > 0 Then


Oder prüfe auf = 0 - je nachdem wie rum du es gerne hättest. ;-)

Oder prüfe auf den "ListIndex", der ist -1, wenn nichts ausgewählt ist.

Siehe: https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/listcount-property

Servus
Case
Anzeige
AW: Du brauchst hier...
19.05.2024 11:33:13
Daniel Eberhard
Hallo Case

Danke für Deine Rückmeldung. Leider funktioniert dies auch nur halbwegs. Wähle ich etwas aus, dann ändern sich die Button. Nehme ich die Auswahl weg, dann ändert sich leider nichts. :-(

Gruss Daniel Eberhard
AW: Auswahl in MultiSelect Lsitbox
19.05.2024 11:29:02
Kuwer
Hallo Daniel Eberhard,

was hat die Listlänge mit der Aufgabenstellung zu tun? Zudem ist die Variable i immer 0 (Null).

Gruß, Uwe
Anzeige
Beispiel
19.05.2024 11:52:13
Kuwer
So könnte es aussehen: 

Private Sub LBMail_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  With LBMail

    CommandButton1.Visible = .Selected(0)

    CommandButton2.Visible = .Selected(1)

    CommandButton3.Visible = .Selected(2)

  End With

End Sub


Gruß, Uwe
Anzeige
AW: Beispiel
19.05.2024 12:24:17
Daniel Eberhard
Hallo zusammen

Danke für all die Vorschläge. Leider funktioniert keiner, so wie ich es gerne hätte.
Versuche es nochmals zu erklären.

Wenn ich in einer Mutliselect Listbox welche sich auf einer Userform befindet, irgend eine Auswahl auswähle (blauer Hintergrund), soll Button 1 entfernt werden & Button 2 erscheinen. Ist in der Listbox keine Auswahl (kein blauer Hintergrund), so erscheint der Button 1 wieder & der Button 2 verschwindet.

Vielleicht hilft das noch ein wenig. :-)

Gruss
Anzeige
AW: Beispiel
19.05.2024 12:34:07
Kuwer
Hallo Daniel Eberhard,

jetzt hab ich es verstanden: 

Private Sub LBMail_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Dim i As Long

  Dim bolAuswahl As Boolean

  With LBMail

    For i = 0 To .ListCount - 1

      If .Selected(i) Then

        bolAuswahl = True

        Exit For

      End If

    Next i

    CommandButton1.Visible = Not bolAuswahl

    CommandButton2.Visible = bolAuswahl

    CommandButton3.Visible = bolAuswahl

  End With

End Sub


Gruß, Uwe
Anzeige
AW: Beispiel
19.05.2024 13:03:32
Daniel Eberhard
Hallo Uwe

Hey, danke viel mal. Genau das habe ich gesucht. :-)

Vielen Dank und noch einen schönen Sonntag.

Gruss Daniel Eberhard
;

Forumthreads zu verwandten Themen

Mit Multiselect in ListBox Auswahl treffen u......
Josef

Hallo!
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox9.List lngR = ListBox9.ListCount intC = Li...
26.08.2008 13:43:00
Thread-ID: 1004791
5 Beiträge
lst-box mit multiselect in txt-box
Martin

Guten Tag zusammen
Hei der Frühling klopft schon ganz leise. smile
Nun zu meiner Frage kann ich Einträge aus einer Listbox (mit multiselect) in eine Textbox schreiben.
Mein Versuch:
Private Sub cmd_okay_Click() frm_Offerliste.txt_Abteilung.Value = lst_Abteilung.ListIndex(1) &a...
21.02.2009 13:19:27
Thread-ID: 1052619
7 Beiträge
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
select case - Listbox?
Klaus

Ich möchte je nach Vorgabe von bestimmten Kriterien unterschiedliche Berechnungen ausführen lassen oder eben unterschiedliche Aktionen.
Als Beispiel für das gesuchte Schema:
In A1 steht 1
In B1 steht 2
In C1 steht entweder Multiplizieren oder Dividieren oder Addieren oder Subtra...
04.05.2010 12:54:25
Thread-ID: 1155327
3 Beiträge
Multiselect in Listboxen
Pete

Hallo,
ich habe mal eine Frage zu einer Eigenschaft von Userform Listboxen. Da kann man wählen zischen fmMultiselectSingle, fmMultiselectMulti und fmMultiselectExtended. Bei den Einstellungen Single und Extended kann ich keinen Unterschied feststellen. Was bewirkt letzteres?
Es grüßt Pe...
19.12.2010 00:12:29
Thread-ID: 1192057
3 Beiträge
HTMLSelect (Listbox)
Thomas

Hi an alle,
mein Problem ist es, wenn ich html in Excel umwandel generiert er mir eine HTML-Select-box in eine Excel HTMLSelect (listbox). Nun hab ich eine HTMLSelect (Listbox) mit ungefaehr 60 Eintraege, wenn ich allerdings einen Eintrag > 41 auswaehl stürzt mir mein Excel ab.
Kann es se...
12.06.2002 16:28:24
Thread-ID: 128162
2 Beiträge
For-Schleife für Multiselect in Listbox
Tom

Hallo,
Ich habe in einer Userform eine Listbox, die alle Tabellennamen meiner Arbeitsmappe enthält. Diese Tabellennamen sind zusätlich noch mit einem Hyperlink zu einer bestimmten Zelle auf dem jeweiligen Blatt hinterlegt. Klicke ich einen Tabellennamen, wird automatisch im Hintergrund der...
18.09.2014 09:56:17
Thread-ID: 1382221
4 Beiträge
VBA Listbox kopieren und löschen ( Multiselect)
Tobias
Guten Tag,
ich bin blutiger Anfänger und habe ein kleines Problem. Ich habe zwei Listboxen und würde gerne mit einem Knopf die Namen die selektiert sind, in die zweite Liste "verschieben".
Ich habe schon soviele Foren durchsucht, und auch Lösungen gefunden, die weiß Gott warum nicht _
...
17.04.2015 14:42:05
Thread-ID: 1421497
4 Beiträge
Beim Öffnen von Multi-Select Listbox alles auswähl
Multi-Select

Hallo,
ich habe eine Userform (frmOptions), die eine Multi-Select Listbox (lstOptions) enthält.
Gibt es eine Möglichkeit, dass beim Öffnen der Userform alle Optionen dieser Listbox automatisch ausgewählt, also mit dem Häkchen davor erscheinen, statt ohne ?
Ich dachte, ich kann daf...
27.10.2015 11:38:59
Thread-ID: 1454687
5 Beiträge
Werte einer Multiselekt-Listbox in 1er Zelle ausge
Ramon

Hallo zusammen,
ich habe mal wieder ein kleines Problem.
Ich habe in einer Userform eine Listbox mit Multiselektion. Nach Selektion und
Klick auf einen Button werden die Werte an einen Zellbereich übergeben.
("D1-D...")
Bei Übergabe versehe ich die Werte noch mit einem Komma...
22.04.2016 15:23:12
Thread-ID: 1489703
3 Beiträge
MultiListBox Userform
Tim

Guten Abend zusammen,
Ich benötige Hilfe bzw. ein Makro welches folgendes leisten kann.
Ausgangspunkt ist eine Userform, bei der man durch die Auswahl eines Statis, welcher sich in einer Combobox (erstellt, bearbeitet, fertig) befindet, Daten in die nachfolgende Listbox lädt.
Bsp.:...
19.12.2016 18:40:38
Thread-ID: 1530948
3 Beiträge
VBA - Multiselect Listbox auf Tabelle
Tobias

Hallo zusammen,
Nun hoffe ich Mal, dass ich das kompetenteste Forum für meine Anfrage gewählt habe.
Kleiner Satz zu mir:
Ich gehöre eher zu den Newbies im VBA-Bereich, doch die Freude ist gross. Bis jetzt konnte ich alles mit ausprobieren und googeln lösen, doch nun brauche ich spez...
28.03.2017 16:35:40
Thread-ID: 1549906
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige