Thema Datum  Von Nutzer Rating
Antwort
29.01.2022 17:24:13 Hady
NotSolved
29.01.2022 18:40:05 Gast7777
NotSolved
29.01.2022 19:00:54 Hady
NotSolved
Blau Array über Listfbox befüllen
 29.01.2022 19:14:39 Gast36741
NotSolved
29.01.2022 19:23:49 Gast36741
NotSolved

Ansicht des Beitrags:
Von:
Gast36741		 Datum:
29.01.2022 19:14:39		 Views:
995		 Rating:
     
Antwort:
  Ja
Thema:
Array über Listfbox befüllen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'für einspaltige Listenfelder
Private Function GetSelectedListItems() As Variant
   
  Dim vntSelectedItems As Variant
  Dim i As Long
  Dim j As Long
   
  ReDim vntSelectedItems(1 To ListBox1.ListCount)
   
  For j = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(j) Then
      i = i + 1
      vntSelectedItems(i) = ListBox1.List(j)
    End If
  Next
   
  If i > 0 Then
    ReDim Preserve vntSelectedItems(1 To i)
  Else
    vntSelectedItems = Split(vbNullString) ' = Dim array(0 To -1)
  End If
   
  GetSelectedListItems = vntSelectedItems
  Erase vntSelectedItems
   
End Function
?
1
2
'Verwendung: Ausgabe als Beispiel
Debug.Print "{'"; Join(GetSelectedListItems(), "', '"); "'}"

 

Grüße

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
29.01.2022 17:24:13 Hady
NotSolved
29.01.2022 18:40:05 Gast7777
NotSolved
29.01.2022 19:00:54 Hady
NotSolved
Blau Array über Listfbox befüllen
 29.01.2022 19:14:39 Gast36741
NotSolved
29.01.2022 19:23:49 Gast36741
NotSolved