Daten übernehmen und per Checkbox auswählen

Hallo zusammen,
da mir schon oft hier geholfen wurde Frage ich euch wieder :)
Ich hoffe mir kann jemand helfen einen Lösungsansatz zu finden.
Ich würde gerne Daten aus einem bestimmten Tabellenblatt ("Z") auslesen um diese dann per Checkbox auszuwählen und wieder auszugeben.
Ich habe eine Tabelle mit Artikeln, in der Spalte A steht die "Artikelnummer", Spalte C der "Bestand", Spalte E "Vorbestellungen", Spalte F "Bestellt" und in Spalte H der "Preis" (alles in einer Reihe)
Diese Daten möchte ich in eine Liste (Listbox vielleicht?) übernehmen und mit einer Checkbox versehen.
Danach sollen gewisse Artikel per Checkbox ausgewählt werden und in ein anderes Tabellenblatt übernommen werden (Am Ende vielleicht mit einem Command Button der den Übertrag in ein anderes Tabellenblatt macht).
Die Anzahl der Daten variiert deshalb habe ich einen maximalen Bereich von A2:A200.
Wie die Daten ausgegeben werden möchte ich auch noch definieren, aber das später.
Ich habe jetzt schon das Problem, wenn eine ListBox wirklich die beste Variante ist, meine Daten da reinzubekommen.
Ich hoffe es hat jemand Lust mir zu helfen,
Vielen Dank vorab.
Grüße Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub UserForm_Activate() Dim arrList, rngC As Range, i As Integer With Sheets("Z") ReDim arrList(1 To Application.CountA(.Columns(1)), 1 To 5) For Each rngC In .Columns(1).SpecialCells(xlCellTypeConstants) i = i + 1 arrList(i, 1) = rngC arrList(i, 2) = rngC.Offset(, 2) arrList(i, 3) = rngC.Offset(, 4) arrList(i, 4) = rngC.Offset(, 5) arrList(i, 5) = rngC.Offset(, 7) Next End With With ListBox1 .ColumnCount = 5 .MultiSelect = fmMultiSelectMulti .ListStyle = fmListStyleOption .List = arrList End With End Sub

Hallo Rudi,
vielen Dank klappt einwandfrei!
Und wie ich sehe hätte ich das selbst nicht lösen können da mir einige Befehle gänzlich unbekannt sind.
Da komme ich auch gleich zum nächsten Problem.
Jetzt habe ich eine Selektion getroffen, möchte zur Selektierten Auswahl bestimmte Angaben in ein weiteres Tabellenblatt einfügen.
Die Listbox ermöglich mir eine Artikelnummer mit dessen Bestand zu sehen und zudem bestimmte Artikel zu selektieren. Mit Click auf den Button möchte ich alle selektierten Artikel in "Tabelle3" schreiben.
Dazu sollen aber wieder nur bestimmte Informationen verwendet werden.
Beispiel : Meine Listbox enthält nun Artikel1, Artikel2 und Artikel3 und deren Bestandsinformationen.
Artikel 2 und 3 haben ausreichen Bestand welches ich durch meine Selektion festlege. Nun soll von diesen Artikeln aus dem Tabellenblatt "Z" folgende Zellen in "Tabellenblatt3" geschrieben werden.
Artikel2 steht in Reihe 3 von "Z"
Also soll zu diesem Artikel A3, B3,H3 und K3 in "Tabelle3" geschrieben werden.
Ich habe wieder im Forum gesucht und bin nicht fündig geworden, anscheinend zu doof vorhandene Vorschläge anzupassen.
Wenn du ein wenig Zeit hast wäre es sehr nett (muss aber nicht) wenn du kurz sagen könntest warum du einen Schritt so machst wie du ihn machst. Das würde mich sehr interessieren.
Nochmals Vielen Dank vorab!

Private Sub CommandButton1_Click() Dim i As Long, iRow, iRowZ As Integer, wksZ As Worksheet Set wksZ = Sheets("Z") For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then 'ausgewählt? iRowZ = Application.Match(ListBox1.List(i, 0), wksZ.Columns(1), 0) 'Zeile Artikel in Z With Sheets("Tabelle3") iRow = Application.Match(ListBox1.List(i, 0), .Columns(1), 0) 'Artikel in Tab3 _ vorhanden? If IsError(iRow) Then iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'Artikel nicht in _ Tab3 vorhanden .Cells(iRow, 1) = wksZ.Cells(iRowZ, 1) 'A .Cells(iRow, 2) = wksZ.Cells(iRowZ, 2) 'B .Cells(iRow, 3) = wksZ.Cells(iRowZ, 8) 'H .Cells(iRow, 4) = wksZ.Cells(iRowZ, 11) 'K ListBox1.Selected(i) = False 'Auswahl aufheben End With End If Next ListBox1.ListIndex = 0 'an den Anfang der LB End Sub

Private Sub UserForm_Activate() Dim arrList, rngC As Range, i As Integer With Sheets("Z") 'Datenfeld neu dimensionieren ReDim arrList(1 To Application.CountA(.Columns(1)), 1 To 5) 'Daten aus Z in Datenfeld (Array) einlesen, finde ich besser als .AddItem 'nur Zellen mit Konstanten in A For Each rngC In .Columns(1).SpecialCells(xlCellTypeConstants) i = i + 1 arrList(i, 1) = rngC arrList(i, 2) = rngC.Offset(, 2) arrList(i, 3) = rngC.Offset(, 4) arrList(i, 4) = rngC.Offset(, 5) arrList(i, 5) = rngC.Offset(, 7) Next End With With ListBox1 'Listbox-Eigenschaften festlegen, könnte man auch direkt machen .ColumnCount = 5 .MultiSelect = fmMultiSelectMulti .ListStyle = fmListStyleOption 'Datenfeld in Listbox schreiben .List = arrList End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten übernehmen und per Checkbox auswählen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten übernehmen und per Checkbox auswählen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread