Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Komplette ListBox an Tabelle

Betrifft: Komplette ListBox an Tabelle von: Chris
Geschrieben am: 13.08.2008 07:33:38

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

  

Betrifft: AW: Komplette ListBox an Tabelle von: Luschi
Geschrieben am: 13.08.2008 08:17:59

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


  

Betrifft: AW: Komplette ListBox an Tabelle von: Reinhard
Geschrieben am: 13.08.2008 08:24:14

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


  

Betrifft: Danke funktioniert!! von: Chris
Geschrieben am: 13.08.2008 15:50:31

Hallo Ihr zwei,

Vielen Dank für eure Hilfe das war genau das was ich gesucht habe!


Gruß
Christian


 

Beiträge aus den Excel-Beispielen zum Thema "Komplette ListBox an Tabelle"