Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
ListenFelder füllen aus Spalten
02.02.2009 16:41:17
Andre´
Hallo alle zusammen,
ich möchte vom aktiven Tabellenblatt die Spalten A, B, C, D in eine UserForm einlesen, beginnend ab Zeile 2 bis zu der Zeile, wo der letzte Eintrag in der Spalte A vorhanden ist.
Jede der genannten Spalten soll in einen eigenen Listenfeld erscheinen.
Ziel soll es sein, dass jede Zeile ein Kontrollkästchen zugewiesen bekommt.
Wenn dort eine Häckchen gesetzt wird, soll in das Tabellenblatt (Spalte E) zu der entsprechenden Zeile "ja" geschrieben werden.
Wenn mehr Daten aufgelistet sind und man muss scrollen, dann muss man sicherlich in jedem ListenFeld scrollen dass sollte natürlich nicht so sein. Entweder die Scrollfunktion wird von einem bestimmten Listenfeld auf alle übertragen oder wenn dies nicht zu realisieren ist wäre es sicherlich einfacher mit einem ListenFeld zu arbeiten.
Wenn dies der Fall sein sollte, muss die Ansicht so sein, dass eine klare Trennung zwischen den einzelnen Spalten ersichtlich ist.
Ich habe mal ein Bsp. angehängt mit mehreren ListenFeldern.
https://www.herber.de/bbs/user/59013.xls
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListenFelder füllen aus Spalten
02.02.2009 16:52:00
Andre´
Hallo alle zusammen,
für ein ListenFeld habe ich folgenden Code gefunden,

Private Sub UserForm_Initialize()
Dim Zeile As Long
Dim I As Long
Dim letzte As Long
With ActiveSheet
ListBox1.ColumnCount = 4
letzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 0
For I = 1 To letzte
If Rows(I).EntireRow.Hidden = False Then
ListBox1.AddItem .Cells(I, 1)
ListBox1.List(Zeile, 1) = .Cells(I, 2)
ListBox1.List(Zeile, 2) = .Cells(I, 3)
ListBox1.List(Zeile, 3) = .Cells(I, 4)
Zeile = Zeile + 1
End If
Next I
End With
End Sub


Jetzt muss eigentlich nur noch die Bestätigung für die Spalte E erfolgen
MFG Andre

Anzeige
AW: ListenFelder füllen aus Spalten
02.02.2009 19:54:56
Hajo_Zi
Hallo Anfre,
Reicht da nicht das Change Ereignis der Listbox.
Cells(listbox1.listindex+1,5)="Ja"

AW: ListenFelder füllen aus Spalten
02.02.2009 20:32:56
Andre´
Hallo Hajo,
danke für den Tipp, ich werde es über DblClick Ereignis der Listbox aufbauen.
MFG Andre

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige