Thema Datum  Von Nutzer Rating
Antwort
Rot mehrere Listboxen auffüllen
 25.12.2015 05:25:34 Marco_B
Solved
25.12.2015 11:22:45 Gast2840
NotSolved
25.12.2015 11:40:10 Barco_B
NotSolved
25.12.2015 11:56:38 Gast3017
NotSolved
25.12.2015 12:28:50 Marco_B
NotSolved
25.12.2015 21:57:44 Gast30374
NotSolved
26.12.2015 12:39:12 Holger
Solved
26.12.2015 13:44:21 Gast48990
NotSolved
26.12.2015 18:11:30 Marco_B
Solved
26.12.2015 19:32:32 Gast17133
NotSolved
27.12.2015 10:29:06 Holger
NotSolved
27.12.2015 11:04:08 Gast14610
NotSolved
29.12.2015 17:39:37 Marco_B
Solved

Ansicht des Beitrags:
Von:
Marco_B		 Datum:
25.12.2015 05:25:34		 Views:
2833		 Rating:
     
Antwort:
 Nein
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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot mehrere Listboxen auffüllen
 25.12.2015 05:25:34 Marco_B
Solved
25.12.2015 11:22:45 Gast2840
NotSolved
25.12.2015 11:40:10 Barco_B
NotSolved
25.12.2015 11:56:38 Gast3017
NotSolved
25.12.2015 12:28:50 Marco_B
NotSolved
25.12.2015 21:57:44 Gast30374
NotSolved
26.12.2015 12:39:12 Holger
Solved
26.12.2015 13:44:21 Gast48990
NotSolved
26.12.2015 18:11:30 Marco_B
Solved
26.12.2015 19:32:32 Gast17133
NotSolved
27.12.2015 10:29:06 Holger
NotSolved
27.12.2015 11:04:08 Gast14610
NotSolved
29.12.2015 17:39:37 Marco_B
Solved