ich deklariere in modul1 mehrere globale variable mit z.B. "public pubLexArtNr" .
dann wird eine userform mit textbox aufgerufen, die enthält einen text aus
einer dieser variablen - das klappt
2-dimensionale globale variable bestückt mir meine listbox - auch okay
dann will ich 2 werte aus der angeklickten zeile der listbox
(einfach-auswahl) an das aufrufende modul übergeben:
Private Sub CommandButton1_Click()
Dim i%, LöschNr%, j%, pubLexArtNr&, pubLexKdNr&
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
pubLexArtNr = ListBox1.List(i, 1)
pubLexKdNr = ListBox1.List(i, 2)
If pubLexArtNr = 0 Then
MsgBox "Leeres Feld angeklickt! => Nochmal auswählen!"
Exit Sub
End If
End If
Next i
Unload Kundenzuordnung
End Sub
pubLexArtNr und pubLexKdNr werden manchmal übergeben, manchmal nicht ...
was mach ich falsch