Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrspalt. Tabellenlistbox

mehrspalt. Tabellenlistbox
07.01.2005 11:14:01
Peter
Hallo,
ich möchte Daten aus Tabelle2, Spalte B und Spalte D und ohne Leerzellen
in eine in Tabelle 1 erstellte mehrspaltige Tabellenlistbox übernehmen.
Wie macht man das per VBA?
Oder gibt es eine Möglichkeit dies durch direkte Bezüge im Eigenschaftsfeld
Der Listbox festzulegen?
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrspalt. Tabellenlistbox
08.01.2005 08:47:09
Rolf
Hallo Peter,
bei einem zusammenhängenden Bereich ist's einfach;
sonst musst du ein paar Umwege machen.
F.G.
Rolf

Sub matrixanzeige_listbox()
Dim A As Variant
Dim quelle As Range, ziel As Range
Set quelle = Union(Range("B1:B10"), Range("D1:D10"))
Set ziel = Cells(1, ActiveSheet.UsedRange.Columns.Count + 3)
ziel.Select
quelle.Copy ziel
A = ziel.CurrentRegion
With UserForm1
.ListBox1.ColumnCount = 2
.ListBox1.ColumnWidths = "60;150"
.ListBox1.List = A
.ListBox1.ListIndex = 0
.Show
If .result = False Then Exit Sub
MsgBox .ListBox1.List(.ListBox1.ListIndex, 0) '1.Listelement=0,0
End With
ziel.CurrentRegion.Clear
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige