|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.01.2008 14:54:44 |
Gast1980 |
|
|
|
22.01.2008 09:33:44 |
Holger |
|
|
 Aw:Aw:Werte aus einer Listbox in Zeile |
22.01.2008 13:17:02 |
Gast1980 |
|
|
|
22.01.2008 15:59:44 |
Holger |
|
|
|
25.01.2008 10:54:08 |
Gast1980 |
|
|
Von:
Gast1980 |
Datum:
22.01.2008 13:17:02 |
Views:
972 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Werte aus einer Listbox in Zeile |
Also ich habe ein UserForm mit einer Listbox1. Und mit
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "bert"
.AddItem "Krümeml"
.AddItem "ernie"
.ListIndex = 0
.MultiSelect = fmMultiSelectExtended
End With
End Sub
habe ich die Listeneinträge generiert. In der Tabelle5 habe ich folgende Zeilen:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean
Cancel = True 'Verhindert das Standardauswahlfenster
If Target.Row > 6 And Target.Column = 10 Then
UserForm2.Show
End If
Vielleicht eine doofe Frage, aber wo muss dein geschriebener Code hin? und mit welchem Ereignis?
Vielen Dank schon mal für die Mühe
Gruß
Andreas
Holger schrieb am 22.01.2008 09:33:44:
Hallo Gasr1980,
ich gehe davon aus, dass du eine MultiSelect-ListBox, z.B. ListBox1, erzeugt hast, aus der du die Werte abrufen willst. Das kannst du mit der Selected- und List-Eigenschaft der ListBox erreichen. Im Beispiel erzeuge ich in der String-Variablen a eine zeilenweise Darstellung der selektierten ListBox-Einträge und schreibe das Ergebnis in die durch Zeile und Spalte bezeichnete Zelle der aktiven Tabelle.
a = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then a = a + ListBox1.List(i) + vbCrLf
Next i
Cells(Zeile,Spalte)=a
Ich hoffe, dir geholfen zu haben.
Holger
Gast1980 schrieb am 21.01.2008 14:54:44:
Hallo ich brauche dringend Hilfe.
Ich muss aus einer Listbox mit vorgebenen Werten, selektierte Werte in eine Zelle übertragen. Bei klicken der rechten Mousetaste, wird das Userform geöffnet.
Wenn ein oder mehrere Einträge makiert sind, soll die in die Target.cell übertragen werden.
Kann mir jemand bitte helfen?
Vielen Dank im Voraus
Gruß Andreas |
- 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
|
|
21.01.2008 14:54:44 |
Gast1980 |
|
|
|
22.01.2008 09:33:44 |
Holger |
|
|
Aw:Aw:Werte aus einer Listbox in Zeile |
22.01.2008 13:17:02 |
Gast1980 |
|
|
|
22.01.2008 15:59:44 |
Holger |
|
|
|
25.01.2008 10:54:08 |
Gast1980 |
|
|