Listbox einer UF mit bestimmten Werten füllen

Private Sub UserForm_Initialize() Application.ScreenUpdating = False 'flackern abschalten Dim AppExcel As Object Dim Pfad As String Dim Datei As String Dim arrWerte As Variant Pfad = "W:\Omni_KFZ\" Datei = "PFV_Liste_kpl.xlsm" ListBox1.ColumnCount = 30 ListBox1.ColumnWidths = "2cm;4cm;3cm;4cm;1cm;1,5cm;4cm;0cm;0cm;0cm;0cm;0cm;0cm;0cm;0cm;2cm; _ 4cm;0cm;2cm;2cm" Set AppExcel = GetObject(Pfad & Datei) arrWerte = AppExcel.Sheets("Liste").[A2:AD1000] ListBox1.List = arrWerte AppExcel.Close False Set AppExcel = Nothing Application.ScreenUpdating = True End Sub

Private Sub ListBox1_Change() If ListBox1.Tag "" Then Exit Sub T0 = ListBox1.List(ListBox1.ListIndex, 0) T1 = ListBox1.List(ListBox1.ListIndex, 1) T2 = ListBox1.List(ListBox1.ListIndex, 2) T3 = ListBox1.List(ListBox1.ListIndex, 3) T4 = ListBox1.List(ListBox1.ListIndex, 4) T5 = ListBox1.List(ListBox1.ListIndex, 5) T6 = ListBox1.List(ListBox1.ListIndex, 6) T7 = ListBox1.List(ListBox1.ListIndex, 7) T8 = ListBox1.List(ListBox1.ListIndex, 8) T9 = ListBox1.List(ListBox1.ListIndex, 9) T10 = ListBox1.List(ListBox1.ListIndex, 10) T11 = ListBox1.List(ListBox1.ListIndex, 11) T12 = ListBox1.List(ListBox1.ListIndex, 12) T13 = ListBox1.List(ListBox1.ListIndex, 13) T14 = ListBox1.List(ListBox1.ListIndex, 14) T15 = ListBox1.List(ListBox1.ListIndex, 15) T16 = ListBox1.List(ListBox1.ListIndex, 16) T17 = ListBox1.List(ListBox1.ListIndex, 17) T18 = ListBox1.List(ListBox1.ListIndex, 18) T19 = ListBox1.List(ListBox1.ListIndex, 19) T20 = ListBox1.List(ListBox1.ListIndex, 20) T21 = ListBox1.List(ListBox1.ListIndex, 21) T22 = ListBox1.List(ListBox1.ListIndex, 22) T23 = ListBox1.List(ListBox1.ListIndex, 23) T24 = ListBox1.List(ListBox1.ListIndex, 24) T25 = ListBox1.List(ListBox1.ListIndex, 25) T26 = ListBox1.List(ListBox1.ListIndex, 26) T27 = ListBox1.List(ListBox1.ListIndex, 27) T28 = ListBox1.List(ListBox1.ListIndex, 28) T29 = ListBox1.List(ListBox1.ListIndex, 29) End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dirk,
mit Vorgabe der Kunden-Nr. in einer Textbox kann es etwa wie folgt aussehen.
Beachte, dass das die Variable arrWerte nicht mehr in der Initialisierungs-Prozedur deklariert wird, sondern übergeordnet für das Userform-Modul.
Gruß
Franz

Option Explicit
Private arrWerte  As Variant
Private Sub prcUpdateListbox1(varKndNr)
Dim Zeile As Long, Spalte As Long, Zeile_L As Long
Dim arrListe() As Variant
'anzahl Treffer ermitteln
Zeile_L = 0
For Zeile = LBound(arrWerte, 1) To UBound(arrWerte, 1)
If varKndNr = arrWerte(Zeile, 1) Then Zeile_L = Zeile_L + 1
Next
ListBox1.Clear
If Zeile_L > 0 Then
ReDim arrListe(1 To Zeile_L, LBound(arrWerte, 2) To UBound(arrWerte, 2))
Zeile_L = 0
For Zeile = LBound(arrWerte, 1) To UBound(arrWerte, 1)
If varKndNr = arrWerte(Zeile, 1) Then
Zeile_L = Zeile_L + 1
For Spalte = LBound(arrWerte, 2) To UBound(arrWerte, 2)
arrListe(Zeile_L, Spalte) = arrWerte(Zeile, Spalte)
Next
End If
Next
ListBox1.List = arrListe
Erase arrListe
Else
MsgBox "Keine Daten zur Kunden-Nummer"
End If
End Sub
Private Sub TextBox_KndNr_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Textbox zur Eingabe der Kundennummer, deren Daten angezeigt werden sollen
ListBox1.Tag = "X"
If Me.TextBox_KndNr  "" Then
Call prcUpdateListbox1(IIf(IsNumeric(Me.TextBox_KndNr), _
Val(Me.TextBox_KndNr), Me.TextBox_KndNr))
Else
ListBox1.List = arrWerte
End If
ListBox1.Tag = ""
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False 'flackern abschalten
Dim AppExcel  As Object
Dim Pfad      As String
Dim Datei     As String
Pfad = "W:\Omni_KFZ\"
Pfad = "D:\Test\"
Datei = "PFV_Liste_kpl.xlsm"
ListBox1.ColumnCount = 30
ListBox1.ColumnWidths = "2cm;4cm;3cm;4cm;1cm;1,5cm;4cm;0cm;0cm;0cm;0cm;0cm;0cm;0cm;" _
& "0cm;2cm;4cm;0cm;2cm;2cm"
Set AppExcel = GetObject(Pfad & Datei)
arrWerte = AppExcel.Sheets("Liste").[A2:AD1000]
ListBox1.List = arrWerte
AppExcel.Close False
Set AppExcel = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub ListBox1_Change()
If ListBox1.Tag  "" Then Exit Sub
T0 = ListBox1.List(ListBox1.ListIndex, 0)
T1 = ListBox1.List(ListBox1.ListIndex, 1)
T2 = ListBox1.List(ListBox1.ListIndex, 2)
T3 = ListBox1.List(ListBox1.ListIndex, 3)
T4 = ListBox1.List(ListBox1.ListIndex, 4)
T5 = ListBox1.List(ListBox1.ListIndex, 5)
T6 = ListBox1.List(ListBox1.ListIndex, 6)
T7 = ListBox1.List(ListBox1.ListIndex, 7)
T8 = ListBox1.List(ListBox1.ListIndex, 8)
T9 = ListBox1.List(ListBox1.ListIndex, 9)
T10 = ListBox1.List(ListBox1.ListIndex, 10)
T11 = ListBox1.List(ListBox1.ListIndex, 11)
T12 = ListBox1.List(ListBox1.ListIndex, 12)
T13 = ListBox1.List(ListBox1.ListIndex, 13)
T14 = ListBox1.List(ListBox1.ListIndex, 14)
T15 = ListBox1.List(ListBox1.ListIndex, 15)
T16 = ListBox1.List(ListBox1.ListIndex, 16)
T17 = ListBox1.List(ListBox1.ListIndex, 17)
T18 = ListBox1.List(ListBox1.ListIndex, 18)
T19 = ListBox1.List(ListBox1.ListIndex, 19)
T20 = ListBox1.List(ListBox1.ListIndex, 20)
T21 = ListBox1.List(ListBox1.ListIndex, 21)
T22 = ListBox1.List(ListBox1.ListIndex, 22)
T23 = ListBox1.List(ListBox1.ListIndex, 23)
T24 = ListBox1.List(ListBox1.ListIndex, 24)
T25 = ListBox1.List(ListBox1.ListIndex, 25)
T26 = ListBox1.List(ListBox1.ListIndex, 26)
T27 = ListBox1.List(ListBox1.ListIndex, 27)
T28 = ListBox1.List(ListBox1.ListIndex, 28)
T29 = ListBox1.List(ListBox1.ListIndex, 29)
End Sub

Beliebteste Forumthreads (12 Monate)

Listbox einer UF mit bestimmten Werten füllen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox einer UF mit bestimmten Werten füllen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread