Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2009 16:31:56 |
nemesis |
|
|
|
04.06.2009 17:58:01 |
Holger |
|
|
|
04.06.2009 19:32:31 |
Nemesis |
|
|
Aw:Aw:Excel: Listboxen |
05.06.2009 07:40:49 |
Nemesis |
|
|
|
05.06.2009 08:33:26 |
Nemesis |
|
|
|
05.06.2009 13:14:06 |
Holger |
|
|
Von:
Nemesis |
Datum:
05.06.2009 07:40:49 |
Views:
1102 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Excel: Listboxen |
Hallo Holger!
Für die Markierung von gleichen Einträgen habe ich dein Vorschlag "leicht" abgeändert.
Danke aber, dass du mich auf diesen Weg gebracht hast ^^
Hier mein Code, bezogen auf 2 Listboxen (suche nun noch eine vor Lösung für alle Listboxen in meinem Sheet):
For i = 0 To Listbox1.ListCount - 1
If Listbox1.Selected(i) = True Then
For j = 0 To Listbox2.ListCount - 1
If Listbox1.List(i) = Listbox2.List(j) Then
Listbox2.Selected(j) = True
Exit Sub
End If
Next j
End If
Next i
Gruß, Nemesis
************************************************************
Holger schrieb am 04.06.2009 17:58:01:
Hallo nemesis,
versuche folgendes Quick-and-Dirty-Makro im Code der UserForm:
Private Sub ListBox1_Click()
b = "Wert in ListBox2 nicht vorhanden."
c = "Wert in ListBox3 nicht vorhanden."
For i = 0 To ListBox2.ListCount - 1
If ListBox2.List(i) = ListBox1.Value Then
ListBox2.Value = ListBox1.Value
b = ""
Exit For
End If
Next i
For i = 0 To ListBox3.ListCount - 1
If ListBox3.List(i) = ListBox1.Value Then
ListBox3.Value = ListBox1.Value
c = ""
Exit For
End If
Next i
If not(b + c = "") Then MsgBox b + vbCrLf + c 'b+c ungleich "", aber Zeichen machen Probleme im Forum
End Sub
Gruß
Holger
nemesis schrieb am 04.06.2009 16:31:56:
Hi @ll!
Tue mich gerade etwas schwer mit Listboxen in meinem Excelsheet.
Habe drei Listboxen, jeweils mit den Einträgen "x1", "x2", und "x3".
Wenn ich nun in der ersten Listbox den Eintrag "x1" markiere, möchte ich, dass dieser ebenfalls in den beiden anderen Listboxen markiert wird. Wäre der Eintrag in keiner der anderen Listboxen vorhanden, möchte ich eine MsgBox.
Kann mir jemand helfen?
Gruß im Voraus!
Nemesis |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2009 16:31:56 |
nemesis |
|
|
|
04.06.2009 17:58:01 |
Holger |
|
|
|
04.06.2009 19:32:31 |
Nemesis |
|
|
Aw:Aw:Excel: Listboxen |
05.06.2009 07:40:49 |
Nemesis |
|
|
|
05.06.2009 08:33:26 |
Nemesis |
|
|
|
05.06.2009 13:14:06 |
Holger |
|
|