SpinButton und ListBox

Private Sub SpinButton1_SpinDown() If ListBox1.ListIndex > 0 Then ListBox1.Selected(ListBox1.ListIndex - 1) = True Else ListBox1.Selected(ListBox1.ListCount - 1) = True SpinButton1.Value = ListBox1.ListCount - 1 End If ListBox2.ListIndex = ListBox1.ListIndex ListBox3.ListIndex = ListBox1.ListIndex ListBox6.ListIndex = ListBox1.ListIndex End Sub Private Sub SpinButton1_SpinUp() If ListBox1.ListIndex + 1

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Antonio,
hier, versuch mal
https://www.herber.de/bbs/user/122744.xlsm (vergiss die Spalten D:E + alles an Code, was mit Spalte E zu tun hat; das war für eine andere Frage)
Dein SpinDown/Up-Code macht genau, was er soll.
-SpinDown so lange, bis letzte Zeile in Listbox erreicht; dann wieder erste Zeile, egal, ob in Listbox 3,9,20 Einträge
-SpinUp so lange, bis erste Zeile in Listbox erreicht; dann wieder letzte Zeile, egal, ob in Listbox 3,9,20 Einträge
Der Fehler in deiner Datei muss an der Stelle sein, wo du festlegst, wieviel Zeilen in Listbox1 verfügbar sein sollen.
In meiner Datei wird Anzahl für Zeilen von Listbox mit dem Autofilter in Tabelle1 festgelegt.
In Listbox sind nur so viele Zeilen verfügbar, wie in Tabelle1 Zeilen sichtbar sind (abhängig vom Autofilter).
Hilfts?
Ciao
Thorsten

Hallo Thorsten,
stimmt, es liegt an die Festlegung der Zeilen.

 With ws2
 For I = 12 To 101 Step 6
Set rngFind = ws2.Columns("A:A").Find(TextBox5.Value, lookat:=xlWhole)
ListBox1.AddItem .Cells(rngFind.Row, I)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(rngFind.Row, I + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(rngFind.Row, I + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(rngFind.Row, I + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(rngFind.Row, I + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(rngFind.Row, I + 5)
Next I

hier fett markiert.
Zu Erklärung:
in Tabelle1 sind Zeilen mit 90 Spalten und diese werden dann in ListBox geladen, nacheinander je nach Bedarf.
ListBox -> 6 column, 9o:6 sind 15 Zeilen,
Problem erkannt, DANKE,
Aber wenn nur 36 Spalte belegt sind wie kann ich den Code:

For I = 12 To 101 Step 6

ändern das es funzt.
Die Zeilen werden nach und nach in Tabelle1 eingefügt daher können verschidene Längen haben, so kommt ein Filter für mich nicht in Frage.
Thorsten Danke in Voraus
Antonio

With ws2 For I = 12 To 101 Step 6 Set rngFind = ws2.Columns("A:A").Find(TextBox5.Value, lookat:=xlWhole) If .Cells(rngFind.Row, I) "" Then ListBox1.AddItem .Cells(rngFind.Row, I) ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(rngFind.Row, I + 1) ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(rngFind.Row, I + 2) ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(rngFind.Row, I + 3) ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(rngFind.Row, I + 4) ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(rngFind.Row, I + 5) End If Next I

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SpinButton und ListBox

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread