UserForm Parameterübergabe
braleta
ich arbeite mit UserForms und komme über eine Hürde nicht weg, obwohl ich behaupte, nicht der Schlechteste in Excel und VBA zu sein.
Ich bitte um Eure Hilfe:
In der "Initialize"-Funktion einer UserForm erstelle ich ein Array der Länge "X" und der Breite 16.
Einige Werte (genau genommen sind es drei Werte) daraus schreibe ich in eine ListBox, die ich dem Benutzer zum Auswählen eines Eintrages anbiete.
Die Zeile, die er anklickt, will ich in der "Cklick"-Methode weiter verarbeiten und möchte dazu das Array an diese "Click"-Funktion weitergeben.
Wie mache ich das?
Beispiel:
Private Sub Userform_Initialize()
..
..
..
Dim arrPatienten As Variant
..
..
arrPatienten(Instanzen, 1) = ActiveCell.Offset(Zaehler, 0) 'Nachname
arrPatienten(Instanzen, 2) = ActiveCell.Offset(Zaehler, 1) 'Vorname
arrPatienten(Instanzen, 3) = ActiveCell.Offset(Zaehler, 2) 'Titel
..
..
For Zaehler = 1 To UBound(arrPatienten)
FensterZeile = ""
FensterZeile = arrPatienten(Zaehler, 1) & "|" & arrPatienten(Zaehler, 2)
.AddItem FensterZeile
Next Zaehler
..
..
..
Private Sub ListBox1_Click()
.....hier möchte ich das Array "arrPatienten" aus der "Userform_Initialize"-Funktion verwenden
Könnt Ihr mir da helfen?
Das wäre super!
...bruno