|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 mehrere Listboxen auffüllen |
25.12.2015 05:25:34 |
Marco_B |
|
|
|
25.12.2015 11:22:45 |
Gast2840 |
|
|
|
25.12.2015 11:40:10 |
Barco_B |
|
|
|
25.12.2015 11:56:38 |
Gast3017 |
|
|
|
25.12.2015 12:28:50 |
Marco_B |
|
|
|
25.12.2015 21:57:44 |
Gast30374 |
|
|
|
26.12.2015 12:39:12 |
Holger |
|
|
|
26.12.2015 13:44:21 |
Gast48990 |
|
|
|
26.12.2015 18:11:30 |
Marco_B |
|
|
|
26.12.2015 19:32:32 |
Gast17133 |
|
|
|
27.12.2015 10:29:06 |
Holger |
|
|
|
27.12.2015 11:04:08 |
Gast14610 |
|
|
|
29.12.2015 17:39:37 |
Marco_B |
|
|
Von:
Marco_B |
Datum:
25.12.2015 05:25:34 |
Views:
2372 |
Rating:
|
Antwort:
|
Thema:
mehrere Listboxen auffüllen |
|
Hallo,
folgendes Problem:
In einer Userform sollen mehrere Listboxen mit Daten aufgefüllt werden.
Über folgenden Code funktioniert es zwar, aber man kann das sicherlich eleganter lösen.
Documents.Open (dir1 & "ausstattung.docx") 'dir1 = Pfad zu den Listen
For Each aCell In ActiveDocument.Tables(1).Columns(1).Cells 'Ausstattungsvarianten
Set ausst_range = aCell.Range 'werden eingelesen
ausst_range.MoveEnd Unit:=wdCharacter, Count:=-1
ListBox2.AddItem (ausst_range.Text)
Next aCell
For Each aCell In ActiveDocument.Tables(2).Columns(1).Cells 'Ausstattungsvarianten
Set ausst_range = aCell.Range 'werden eingelesen
ausst_range.MoveEnd Unit:=wdCharacter, Count:=-1
ListBox3.AddItem (ausst_range.Text)
Next aCell
For Each aCell In ActiveDocument.Tables(3).Columns(1).Cells 'Ausstattungsvarianten
Set ausst_range = aCell.Range 'werden eingelesen
ausst_range.MoveEnd Unit:=wdCharacter, Count:=-1
ListBox4.AddItem (ausst_range.Text)
Next aCell
ActiveDocument.Close
Vielen Dank für die Hilfe im Voraus
Marco
|
- 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
|
mehrere Listboxen auffüllen |
25.12.2015 05:25:34 |
Marco_B |
|
|
|
25.12.2015 11:22:45 |
Gast2840 |
|
|
|
25.12.2015 11:40:10 |
Barco_B |
|
|
|
25.12.2015 11:56:38 |
Gast3017 |
|
|
|
25.12.2015 12:28:50 |
Marco_B |
|
|
|
25.12.2015 21:57:44 |
Gast30374 |
|
|
|
26.12.2015 12:39:12 |
Holger |
|
|
|
26.12.2015 13:44:21 |
Gast48990 |
|
|
|
26.12.2015 18:11:30 |
Marco_B |
|
|
|
26.12.2015 19:32:32 |
Gast17133 |
|
|
|
27.12.2015 10:29:06 |
Holger |
|
|
|
27.12.2015 11:04:08 |
Gast14610 |
|
|
|
29.12.2015 17:39:37 |
Marco_B |
|
|