Listbox mit 2 Spalten aus untersch. Tabellenblätte

Forumthread: Listbox mit 2 Spalten aus untersch. Tabellenblätte

21.08.2017 20:29:55

Sigi

Hallo zusammen,
ich habe ein Problem:
ich möchte eine Liste mit 2 nebeneinander liegenden Spalten füllen. Aber nicht nur aus einem Tabellenblatt sondern aus mehreren.
Sprich z.B. "B7:C100" aus Tabelle 1 und "B7:C100" aus Tabelle 2
Irgendwie klappt es nicht...
Vielen Dank für eure Hilfe
Gruß Sigi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Listbox mit 2 Spalten aus untersch. Tabellenblätte

21.08.2017 21:09:49

Crazy

Hallo
eine Möglichkeit

Private Sub UserForm_Initialize()
Dim lngAnzahl As Long
Dim lngZeile As Long
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "75;75"
ListBox1.Clear
With Sheets("Tabelle1")
For lngZeile = 7 To 100
ListBox1.AddItem .Cells(lngZeile, 2).Value
lngAnzahl = ListBox1.ListCount
ListBox1.List(lngAnzahl - 1, 1) = .Cells(lngZeile, 3).Value
Next lngZeile
End With
With Sheets("Tabelle2")
For lngZeile = 7 To 100
ListBox1.AddItem .Cells(lngZeile, 2).Value
lngAnzahl = ListBox1.ListCount
ListBox1.List(lngAnzahl - 1, 1) = .Cells(lngZeile, 3).Value
Next lngZeile
End With
End Sub

MfG Tom

AW: Listbox mit 2 Spalten aus untersch. Tabellenblätte

21.08.2017 21:24:25

Sepp

Hallo Sigi,
z.B. so.

' **********************************************************************
' Modul: UserForm1  Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Initialize()
Dim varA As Variant, varB As Variant, varlist() As Variant
Dim lngR As Long, lngA As Long, lngB As Long

varA = Sheets("Tabelle1").Range("B7:C100")
varB = Sheets("Tabelle2").Range("B7:C100")

Redim varlist(1 To UBound(varA, 1), 1 To UBound(varA, 2) + UBound(varB, 2))

For lngR = LBound(varlist, 1) To UBound(varlist, 1)
  For lngA = 1 To UBound(varA, 2)
    varlist(lngR, lngA) = varA(lngR, lngA)
  Next
  For lngB = 1 To UBound(varB, 2)
    varlist(lngR, lngB + UBound(varA, 2)) = varB(lngR, lngB)
  Next
Next

ListBox1.List = varlist
End Sub

Gruß Sepp

AW: Listbox mit 2 Spalten aus untersch. Tabellenblätte

21.08.2017 21:44:29

Sigi

Hallo Sepp,
vielen Dank für den Code ich werde in morgen ausprobieren
Vielen Dank und Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Listbox mit 2 Spalten aus untersch. Tabellenblätte

Forumthread: Listbox mit 2 Spalten aus untersch. Tabellenblätte

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Listbox mit 2 Spalten aus untersch. Tabellenblätte

Forumthread: Listbox mit 2 Spalten aus untersch. Tabellenblätte

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread