Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array mit mehrspaltiger Listbox füllen

Array mit mehrspaltiger Listbox füllen
Martin
Hallo liebe Excelianer,
eine Listbox kann sehr einfach mit einem Array gefüllt werden: ListBox1.List() = Arr
Leider geht das nicht umgekehrt: Arr = ListBox1.List()
Folgende Lösung habe ich mir geschrieben:
Sub Lösung
For i = 1 To ListBox1.ListCount
For j = 1 To 9
Arr(i, j) = ListBox1.List(i - 1, j - 1)
Next j
Next i
End Sub
Das klappt zwar wunderbar, aber trotzdem würde es mich interessieren, ob es auch eine einfache Lösung wie "Arr = ListBox1.List()" gibt. Ich würde mich über Antworten sehr freuen.
Viele Grüße
Martin
AW: Array mit mehrspaltiger Listbox füllen
21.08.2009 20:33:45
Gerd
Hallo Martin!
Private Sub test()
Dim vnt()
Dim vnt2()
Dim i
Dim j
vnt = Range("a1:c4").Value
ListBox1.ColumnCount = 3
ListBox1.List = vnt
vnt2 = ListBox1.List
For i = 0 To UBound(vnt2, 1)
For j = 0 To UBound(vnt2, 2)
MsgBox vnt2(i, j)
Next
Next
End Sub
Gruß Gerd
Deklariere die Array-Variable dimensionslos
21.08.2009 20:33:53
NoNet
Hallo Martin,
so sollte es funktionieren :
Private Sub CommandButton1_Click()
Dim arr()
arr = ListBox1.List
MsgBox arr(7, 1)
End Sub

Gruß, NoNet
VIELEN DANK! So klappt es! - Aber noch eine Frage
21.08.2009 21:04:43
Martin
Hallo NoNet,
ich frage mich, warum ich darauf nicht selbst gekommen bin. Trotzdem frage ich gleich weiter:
Bislang habe ich mein Array so angelegt, dass es bei (1, 1) begann:
Dim Arr()
ReDim Arr(1 To ListBox1.ListCount, 1 To 9)
Allerdings beginnt das Array bei Deiner Lösung mit (0, 0). Da ich das Array mit "prcSort" noch sortieren möchte, wäre mir (1, 1) als Startpunkt lieber. Besteht die Möglichkeit das Array bei (1, 1) beginnen zu lassen? Wenn es nicht geht, ist es auch nicht schlimm (schließlich habe ich ja eine Lösung).
Viele Grüße
Martin
Anzeige
AW: VIELEN DANK! So klappt es! - Aber noch eine Frage
21.08.2009 21:27:55
Gerd
Hallo Martin,
schicke das Datenfeld in einen Range u. hole es aus diesem wieder zurück.
Gruß Gerd
AW: VIELEN DANK! So klappt es! - Aber noch eine Frage
21.08.2009 21:42:21
Martin
Hallo Gerd,
vielen Dank für deine Antwort, dein Vorschlag funktioniert. Woran liegt es, dass eine einer Range-Zuweisung das Array bei (1, 1) beginnt, bei einer Listbox-Zuweisung jedoch bei (0, 0). Gibt es dafür einen bestimmten Grund?
Viele Grüße
Martin
AW: Indices mal 0- mal 1-basierend
21.08.2009 21:53:41
Gerd
Hallo Martin,
dies wäre eine Frage an die Programmierer von MS.
Gruß Gerd
AW: Indices mal 0- mal 1-basierend
22.08.2009 11:12:34
Nepumuk
Hallo,
weil es keine Zeile / Spalte 0 gibt.
Gruß
Nepumuk
AW: Indices mal 0- mal 1-basierend
22.08.2009 12:31:58
Gerd
Hallo Nepumuk,
... in Tabellen, o.K.
bei einer Listbox-Zuweisung jedoch bei (0, 0)
Dies hätte MS wohl genauso gut analog festlegen können.
Gruß Gerd
Anzeige
AW: Indices mal 0- mal 1-basierend
22.08.2009 12:53:40
Martin
Hallo Gerd, hallo Nepumuk,
auch ich finde es schade, dass die Array-Zuweisung auf (1, 1) bei Range und (0, 0) bei einer Listbox erfolgt. Ich hätte mir wenigstens eine zusätzliche Möglichkeit gewünscht, dass ich manuell Einfluss auf die Zuweisungsart habe (zum Beispiel durch Festlegung des Array-Bereiches). Das wäre zum Beispiele eine schöne Variante gewesen:
Sub Beispiel()
With ListBox1
Dim Arr()
'Festlegung der Zuweisungsart durch Vorgabe des Array-Bereiches
ReDim Arr(1 To .ListCount, 1 To .ColumnCount + 1)
arr = .List
End With
End Sub
Viele Grüße
Martin
Anzeige
AW: Indices mal 0- mal 1-basierend
22.08.2009 13:07:51
Nepumuk
Hallo Gerd,
ne Listbox fängt aber nun mal mit Listindex 0 und Column 0 an. Das ist in sich schon logisch.
Gruß
Nepumuk
Einfach akzeptieren, das ist nicht das Einzige,...
22.08.2009 14:00:14
Luc:-?
...was in xl/VBA diesen Index-Start-Unterschied aufweist, Leute!
In der Mathematik ist auch 0 üblich, anderswo oft auch, mitunter allerdings mit dem Touch einer Obergröße wie bei Gliederungen (bzw der Option fehlender Untergliederungen)...
Da hat jeder Zweck seine eigene Logik und damit jede Form ihre Berechtigung... ;-)
Gruß+schöWE,
Luc :-?
AW: Einfach akzeptieren, das ist nicht das Einzige,...
22.08.2009 15:13:02
Gerd
Hallo Martin,
da bleibt als Alternative nur eine Schleifen-Lösung übrig.
@Luc:
Kenntnis u. Akzeptanz, was sonst ? :-)
Gruß Gerd
Anzeige
Vielen Dank an alle!
22.08.2009 15:44:14
Martin
Hallo Gerd, Nepumuk & Co.,
vielen Dank für Eure Antworten. Meine Frage hatte ich ja eigentlich nur aus Interesse gestellt, obwohl mir eine alternative Lösung bereits vorlag. Für alle, die die Daten einer mehrspaltigen Listbox in ein mehrspaltiges Array mit Beginn bei (1, 1) übertragen wollen, hier noch einmal die Lösung:
Sub Beispiel()
With ListBox1
Dim Arr()
ReDim Arr(1 To .ListCount, 1 To .ColumnCount + 1)
For j = 1 To .ColumnCount + 1
Arr(i, j) = .List(i - 1, j - 1)
Next j
End With
End Sub
Wenn das Array bei (0, 0) beginnen darf, geht es einfacher:
Sub Beispiel2()
Dim Arr()
Arr = ListBox1.List
End Sub
Viele Grüße
Martin
Anzeige
Dein erster Code...
22.08.2009 16:05:50
Tino
Hallo,
müsste meiner Meinung nach so aussehen.
Die ...Count Eigenschaft der Listbox fängt bei 1 an.
Dim Arr()
Dim j As Long, i As Long
With ListBox1
ReDim Arr(1 To .ListCount, 1 To .ColumnCount)
For i = 1 To .ListCount
For j = 1 To .ColumnCount
Arr(i, j) = .List(i - 1, j - 1)
Next i
Next j
End With

Gruß Tino
Danke für den Hinweis, noch eine kleine Änderung
22.08.2009 16:37:47
Martin
Hallo Tino,
vielen Dank für den Hinweis. Der Fehler ist mir unterlaufen, weil ich eigentlich mit UBound arbeiten wollte, das aber vergessen hatte.
Da die ColumnCount-Eigenschaft lediglich die Anzahl der anzuzeigenden Spalten angibt, kann ColumnCount von der tatsächlichen Spaltenanzahl der Listbox abweichen. In der Excel-Hilfe zur ColumnCount-Eigenschaft steht: "Gibt die Anzahl der Spalten an, die in einem Listenfeld oder in einem Kombinationsfeld angezeigt werden sollen." Daher wäre es aus meiner Sicht sinnvoller die tatsächliche Spaltenanzahl mit "UBound(.List, 2) + 1" zu ermitteln:
Sub Beispiel()
Dim Arr()
Dim j As Long, i As Long
With ListBox1
ReDim Arr(1 To .ListCount, 1 To UBound(.List, 2) + 1)
For i = 1 To .ListCount
For j = 1 To UBound(.List, 2) + 1
Arr(i, j) = .List(i - 1, j - 1)
Next i
Next j
End With
End Sub
Viele Grüße
Martin
Anzeige
gleicher Fehler
22.08.2009 23:03:11
Tino
Hallo,
beim blind schreiben ist dir der gleiche Fehler wie mir unterlaufen.
In der Schleife i und j vertauscht.
Gruß Tino
AW: gleicher Fehler
24.08.2009 15:28:17
Martin
Hallo Tino,
richtig, aber jetzt haben wir es aber endgültig geschafft!
Nun noch einmal offiziell für alle die richtige Lösung:
Sub Beispiel()
Dim Arr()
Dim j As Long, i As Long
With ListBox1
ReDim Arr(1 To .ListCount, 1 To UBound(.List, 2) + 1)
For i = 1 To .ListCount
For j = 1 To UBound(.List, 2) + 1
Arr(i, j) = .List(i - 1, j - 1)
Next j
Next i
End With
End Sub

Viele Grüße
Martin

112 Forumthreads zu ähnlichen Themen

ComboBox mit Werten füllen - Dropdown
Jeron

Hallo liebe Excel - Freunde,
ich habe ein UserForm erstellt, auf der ich eine Combobox erstellt habe.
Jetzt möchte ich hier 3 Namen stehen haben, so dass ich über drop Down auswählen kann welcher Wert dann erscheinen soll. Eigentlich ganz einfach dachte ich:
Habe gedacht, das geht...
22.08.2009 17:37:03
Thread-ID: 1097958
5 Beiträge
Anzeige
Kombobox mit Werten füllen ohen Duplikate VBA
chrissey

Hallo Leut,
hab im Tabellenblatt "Daten" in Spalte K verschieden Referenznummern, die aber
öffter vorkommen können.
Nun würde ich gerne in einem anderen Tabellenblatt eine Kombobox mit diesen
Nummern aus Spalte K füllen, aber jeder Wert darf nur einmal in der Auswahl
vorkom...
17.03.2010 11:25:26
Thread-ID: 1146565
4 Beiträge
ComboBox mit den Werten aus 4 TextBoxen befüllen
Frank

Hallo am heiligen Sonntag!!!
Ich brauche wieder einmal eure Hilfe.
Auf einer UF befinden sich 4 TextBoxen welche mittels Code befüllt werden. Nun möchte ich gern, dass diese 4 Werte dann in eine ComboBox geschrieben werden! Ist das möglich und wenn ja - wie?
Danke und schönen Sonnta...
08.08.2010 12:43:44
Thread-ID: 1171147
3 Beiträge
Anzeige
bestimmte Spalten mit Werten füllen
strodti

Hallo liebe Excelianer,
ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopie...
16.11.2010 18:50:54
Thread-ID: 1187050
4 Beiträge
Zeile einfügen und mit Werten befüllen
Maris

Hallo Leute,
ich habe ein ziemlich difizilles Problemchen... was mir aber den letzten nervt raub und sehr Zeitaufwendig ist. Deswegen wäre ich euch super dankbar wenn ihr mir helfen könntet. Ich habe eine Exceltabelle und ich muß manuell immer eine Zeile einfügen in einer Tabelle und das 5...
23.03.2011 12:20:58
Thread-ID: 1207071
6 Beiträge
Array mit Werten aus Spalten aus füllen
Stefan

Hallo - schon wieder ein Problem.Ich möchte ein Array füllen mit verschiedenen Ausprägungen, die in einer Spalte untereinander stehen. Die Spalte ist aber (1) nicht immer gleich lang und (2) hat doppelte Einträge - jeder Eintrag soll aber nur einmal im Array auftauchen. Hat jemand eine Idee, wi...
13.05.2002 18:02:14
Thread-ID: 120580
2 Beiträge
ComboBox mit Werten füllen funktioniert nicht
Peter

Hallo zusammen,
habe ein Problem und weiß nicht, woran es liegt....
In einem Formular ("Master") habe ich eine ComboBox ("ComboBox2"), die ich mit Daten aus Zeile 1 aus einem Sheet ("WA") füllen möchte. Ich führe den Code aus, die ComboBox bleibt aber leer, obwohl im Sheet Daten stehen...
26.08.2011 13:45:34
Thread-ID: 1227668
9 Beiträge
Array mit Texten befüllen und dann sortieren?
Kasimir

Hallo an Alle!
Ich benötige Eure Hilfe, da ich mich mit Arrays (noch) nicht auskenne. Erst mal ein Beispiel, wie die Daten in einer Tabelle stehen:
Bestand

 A1Artikel2Büchsenmilch3Filtertüten4Kaffee5Aufbackbaguettbrötchen6Aufbackbaguettes7Aufbackbrötchen dunkel8Aufbackbrötc...
16.09.2011 09:33:42
Thread-ID: 1230116
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
9
3
2
1
3
5
1
8
2
2
4
6
4
1
13
2
6
8
8
8
2
7
6
1