Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Komplette ListBox an Tabelle

Komplette ListBox an Tabelle
13.08.2008 07:33:00
Chris
Hallo Zusammen,
Ich habe eine Mehrspaltige ListBox in einer UserForm ( 6Spalten) Wie kann ich die komplette ListBox mit allen Spalten an eine Tabelle übergeben?
Gruß
Christian

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Komplette ListBox an Tabelle
13.08.2008 08:17:00
Luschi
Hallo Christian
mit ActiveSheet.Range("A12:F16").Value = Me.ListBox1.List sollte es klappen.
Dabei sollten die Spalten- und Zeilenzahl der Listbox mit der Angabe im Rangebereich
übereinstimmen.
Diese Angaben kann man so ermitteln:
Dim n1 As Long, n2 As Long
'Anzahl der Spalten
n1 = Me.ListBox1.ColumnCount - 1
'Anzahl der Zeilen
n2 = Me.ListBox1.ListCount - 1
ActiveSheet.Range(Cells(12, 1), Cells(12 + n2, 1 + n1)).Value = Me.ListBox1.List
Gruß von Luschi
aus klein.Paris

Anzeige
AW: Komplette ListBox an Tabelle
13.08.2008 08:24:00
Reinhard
Hi Christian,
ein Beispiel für 2spaltig, mußte dir erweitern durch Range("A1:F" & ListBox1.ListCount) = arr auf 6 Spalten

Option Explicit
Private Sub UserForm_Initialize()
Dim arr
Call tt 'Listbox wird 2spaltig befüllt
arr = ListBox1.List
Range("A1:B" & ListBox1.ListCount) = arr
End Sub
Sub tt()
With UserForm1
.ListBox1.AddItem "1"
.ListBox1.List(.ListBox1.ListCount - 1, 1) = "eins"
.ListBox1.AddItem "2"
.ListBox1.List(.ListBox1.ListCount - 1, 1) = "zwei"
.ListBox1.AddItem "3"
.ListBox1.List(.ListBox1.ListCount - 1, 1) = "drei"
'.Show
End With
End Sub


Gruß
Reinhard

Anzeige
Danke funktioniert!!
13.08.2008 15:50:31
Chris
Hallo Ihr zwei,
Vielen Dank für eure Hilfe das war genau das was ich gesucht habe!
Gruß
Christian
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige