Thema Datum  Von Nutzer Rating
Antwort
19.12.2018 11:51:21 Hady
NotSolved
19.12.2018 16:10:14 Gast70117
NotSolved
30.01.2022 16:37:48 Hady
NotSolved
30.01.2022 18:07:28 xlKing
NotSolved
30.01.2022 19:58:55 Hady
NotSolved
30.01.2022 20:02:46 Hady
NotSolved
30.01.2022 21:59:43 Gast9187
NotSolved
30.01.2022 22:06:32 Hady
NotSolved
30.01.2022 22:12:54 Gast57784
NotSolved
30.01.2022 23:06:07 Gast89427
NotSolved
30.01.2022 22:08:52 Gast9187
NotSolved
30.01.2022 23:08:29 Gast24553
NotSolved
31.01.2022 01:30:31 xlKing
NotSolved
Blau Der TE hätte eigentlich nur folgendes tun müssen...
31.01.2022 13:37:44 Gast33627
NotSolved
31.01.2022 18:19:24 Hady
NotSolved
31.01.2022 18:56:16 Gast45997
NotSolved
31.01.2022 19:02:25 Gast45997
NotSolved
31.01.2022 19:19:05 Hady
NotSolved
31.01.2022 19:57:25 Gast98221
NotSolved
01.02.2022 15:29:22 Hady
NotSolved
01.02.2022 15:58:36 Hady
NotSolved
01.02.2022 15:58:37 Hady
NotSolved
01.02.2022 15:58:39 Hady
NotSolved
02.02.2022 11:50:44 Gast63249
NotSolved
03.02.2022 19:46:40 Hady
NotSolved

Ansicht des Beitrags:
Von:
Gast33627
Datum:
31.01.2022 13:37:44
Views:
788
Rating: Antwort:
  Ja
Thema:
Der TE hätte eigentlich nur folgendes tun müssen...

... sich das Makro - plus der kleinen Anpassung - von hier schnappen:

'für einspaltige Listenfelder
Private Function GetSelectedListItems() As Variant
   
  Dim vntSelectedItems As Variant
  Dim i As Long
  Dim j As Long

  If ListBox1.ListCount = 0 Then
    GetSelectedListItems = Split(vbNullString) ' = Dim array(0 To -1)
    Exit Function
  End If
   
  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

Anmerkung:

Dim vntSelectedItems As Variant
ReDim vntSelectedItems(...)

Wer hier nicht versteht warum das erste Dim wichtig ist, der soll das mal auskommentieren und dann den Fall durchspielen, wenn in der ListeBox zwar Einträge existieren, davon jedoch kein einziger ausgewählt wurde (Zeile 25 *hust*).

 

Dann erstellt er sich in der UserForm eine Property

Public Property Get SelectedListItems() as Variant
    SelectedListItems = GetSelectedListItems()
End Public

 

Dann schließt er seine UserForm - er muss sie stattdessen ausblenden, um anschl. Werte aus der UF abzufragen zu können - per Me.Hide.

In dem Modul, von wo er zuvor die UF aufgerufen hat, ruft er dann über die zuvor genannte Property die Liste ab.

BäM! Fertsch.

 

Aber stattdessen meldet er sich nicht zurück, fragt nicht zurück, zerreißt alles in der Luft und beschäftigt hier ganze Völker.

angry

 

 

 


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
19.12.2018 11:51:21 Hady
NotSolved
19.12.2018 16:10:14 Gast70117
NotSolved
30.01.2022 16:37:48 Hady
NotSolved
30.01.2022 18:07:28 xlKing
NotSolved
30.01.2022 19:58:55 Hady
NotSolved
30.01.2022 20:02:46 Hady
NotSolved
30.01.2022 21:59:43 Gast9187
NotSolved
30.01.2022 22:06:32 Hady
NotSolved
30.01.2022 22:12:54 Gast57784
NotSolved
30.01.2022 23:06:07 Gast89427
NotSolved
30.01.2022 22:08:52 Gast9187
NotSolved
30.01.2022 23:08:29 Gast24553
NotSolved
31.01.2022 01:30:31 xlKing
NotSolved
Blau Der TE hätte eigentlich nur folgendes tun müssen...
31.01.2022 13:37:44 Gast33627
NotSolved
31.01.2022 18:19:24 Hady
NotSolved
31.01.2022 18:56:16 Gast45997
NotSolved
31.01.2022 19:02:25 Gast45997
NotSolved
31.01.2022 19:19:05 Hady
NotSolved
31.01.2022 19:57:25 Gast98221
NotSolved
01.02.2022 15:29:22 Hady
NotSolved
01.02.2022 15:58:36 Hady
NotSolved
01.02.2022 15:58:37 Hady
NotSolved
01.02.2022 15:58:39 Hady
NotSolved
02.02.2022 11:50:44 Gast63249
NotSolved
03.02.2022 19:46:40 Hady
NotSolved