Thema Datum  Von Nutzer Rating
Antwort
19.12.2018 11:51:21 Hady
NotSolved
19.12.2018 16:10:14 Gast70117
NotSolved
Rot Array von Userform an Modul übergeben
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
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:
Hady
Datum:
30.01.2022 16:37:48
Views:
675
Rating: Antwort:
  Ja
Thema:
Array von Userform an Modul übergeben

Hallo,

leider klappt es so nicht. Das Array wird korrekt befüllt und auch in der Userform die verschiedenen Einträge angezeigt. Sobald der Code in der Userofrm fertig ist, wechsle ich in eine andere Userform und von dort in das Modul zurück. Wenn ich also im Modul angekommen bin, ist mein Array bereits in der zweiten Userform geschweige denn im Modul nicht mehr vorhanden.

Sub CommandButton1_Click()
Auswahl.Hide

Dim i As Integer
Dim AuswahlPerson()

ReDim AuswahlPerson(0 To ListBox1.ListCount - 1)
    
    For i = 0 To Auswahl.ListBox1.ListCount - 1          'für jede Zeile der Listbox1
        ReDim AuswahlPerson(i)
    
        If ListBox1.Selected(i) Then
                         
             AuswahlPerson(i) = ListBox1.List(i)
        End If
              
    Next i
End Sub

Das Array "AuswahlPerson(i) soll bis ans Modul übergeben. Im Modul selbst habe ich Public AuswahlPerson deklariert.

 

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
19.12.2018 11:51:21 Hady
NotSolved
19.12.2018 16:10:14 Gast70117
NotSolved
Rot Array von Userform an Modul übergeben
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
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