Hallo,
habe folgende Prozedur geschrieben, die auch lauffaehig ist:
Private Sub UserForm_Initialize()
Dim wert1 As Integer
Dim intletzteZeile As Integer
Const constSpaltennummer As Integer = 4
Const constZeileLetzterSchritt As Integer = 12
wert1 = Tabelle1.Range("A1:A1000").Find("end").Row
intletzteZeile = wert1 - 1
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox1.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox2.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox3.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox4.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox5.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox6.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox7.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox8.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
End Sub
Es muesste doch moeglich sein, dass mit Hilfe einer For Each ... Next Schleife und der ListObjects-Auflistung nicht mehr 8 mal dasselbe geschrieben werden muss:
For Each objListBox in ListObjects
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
objListBox.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
Next objListBox
Hatte mir das so gedacht, klappt aber nicht. Weiss jemand warum
Wie muss z.B. objListBox deklariert werden?
habe folgende Prozedur geschrieben, die auch lauffaehig ist:
Private Sub UserForm_Initialize()
Dim wert1 As Integer
Dim intletzteZeile As Integer
Const constSpaltennummer As Integer = 4
Const constZeileLetzterSchritt As Integer = 12
wert1 = Tabelle1.Range("A1:A1000").Find("end").Row
intletzteZeile = wert1 - 1
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox1.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox2.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox3.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox4.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox5.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox6.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox7.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
ListBox8.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
End Sub
Es muesste doch moeglich sein, dass mit Hilfe einer For Each ... Next Schleife und der ListObjects-Auflistung nicht mehr 8 mal dasselbe geschrieben werden muss:
For Each objListBox in ListObjects
For intZaehlvariable = constZeileLetzterSchritt To intletzteZeile
objListBox.AddItem Cells(intZaehlvariable, constSpaltennummer).Value
Next intZaehlvariable
Next objListBox
Hatte mir das so gedacht, klappt aber nicht. Weiss jemand warum
Wie muss z.B. objListBox deklariert werden?