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:
646		 Rating:
     
Antwort:
  Ja
Thema:
Array über Listfbox befüllen		 
'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

'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:



  • 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