Mehrfach Auswahl in Listenbox an Word senden

[emmit]

Wie kann ich in einer Listenbox mehrere Datensätze markieren und nurdie markirten dann zwecks Serienbrieferstellung an Word schicken ?

Habe bereits ein Listenfeld mit Einträgen aus einer Tabelle !
Es sollen aber nur die ausgewählten übernommen werden.

Vielen Dank im Voraus

emmit

 

[Retlaw]

Beispiel zum auslesen von Markierten Daten aus Listen
Die ListBox hat hier den Namen lst.

Private Sub UserForm_Click()
    Dim daten As String
    For i = 0 To lst.ListCount - 1  'Alle Einträge der Liste durchlaufen
        If lst.Selected(i) = True Then  'Wenn ein Eintrag markiert ist...
            daten = daten & lst.List(i) & vbCrLf  '...speicher ihn ab.
        End If
    Next
    MsgBox daten
End Sub

Private Sub UserForm_Initialize()
    'Ein paar Beispieldaten einfügen
    lst.MultiSelect = fmMultiSelectMulti
    For i = 0 To 9
        lst.AddItem "Eintrag " & i
    Next
End Sub

 

[emmit]

listenfeld

danke schon mal für die schnelle antwort..

hab den code mal ausprobiert, bekomme jedoch eine fehlermeldung:

Der Befehl "List" bei "lst.List (i)..." wird nicht erkannt!

daten = daten & lst.List(i) & vbCrLf '...speicher ihn ab.

ich arbeite mit access 2000, vielleicht liegt es daran.

 

[Retlaw]

Beim Listenfeld von Access heißen manche Dinge anders, solltest in Zukunft immer dazuschreiben mit was du arbeitest.
Versuchs mal anstatt List(i) mit ItemData(i), könnte das Access-Equivalent dazu sein.

 

[emmit]

listenbox

danke, hat erstmal funktioniert...

kann jetzt die datensätze in der listbox selektieren und bei click auf den button bekomme ich die werte in einer messagebox ausgegeben.

wie bekomme ich denn jetzt diese werte in word für einen seriendruck ?

sorry, wenn es sich blöd anhört, bin aber access neuling und versuche mich grade an meiner ersten datenbank ; )

gruß emmit

 

[Ein_Freund]

Deinem Seirenbrief liegt doch ein Datenquelle zu Grunde (Excel-Tabelle, Access-Datenbank usw). Die selektierten Werte müssen also in diese Datenquelle geschrieben werden.
...

 

[emmit]

listbox

ich kann doch mit diesem word assistenten daten an word übergeben aus einer tabelle unter access 2000.

das möchte ich jetzt halt mit den selektierten daten aus der listbox

emmit

 

[Julian Maicher]

Das funktioniert bei mir einfach nicht.
Ich versuche, mir alle selektierten Daten aus einem Listenfeld(Werteliste) mit Mehrfachauswahl anzuzeigen. Aber es geht nicht!
Folgender Code:

Dim daten As String
For i = 0 To lst_suchkriterien.ListCount - 1
If lst_suchkriterien.Selected(i) = True Then
daten = daten & lst_suchkriterien.ItemData(i) & ";"
End If
Next
MsgBox daten

Wenn ich 2 Datensätze anwähle, erscheint in der msgbox lediglich ;; .
Es funktioniert also folgender Codeabschnitt nicht: lst_suchkriterien.ItemData(i)
Ich habs schon mit .List(i), mit Coloum(i) versucht, geht auch nicht.

Das eigentliche Problem besteht also darin, einen einzelne Zeile anzuwählen.
Wenn ich eine bestimmte Zeile direkt mit einer msgbox ausgeben will (msgbox lst_suchkriterien.ItemData(2)) kommt unzulässige Verwendung von Null.

Ich bin wirklich am verzweifeln, Access kostet mich teilweise den letzten Nerv