VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Holger	Datum: 04.06.2009 17:58:01	Views: 1077	Rating:	Antwort:
Thema: Aw:Excel: Listboxen
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

Ihre Antwort

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:		Name:		Email:

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