Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
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
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrzeilige Listbox mit strings füllen

Mehrzeilige Listbox mit strings füllen
Dieterlem
Hallo Excelfreunde,
ich möchte eine mehrzeilige Listbox mit Variablen füllen. Die Variablen werden nach durchlaufen einer Schleife gebildet und sollen in bestimmte Spalten eingetragen werden. Mein Code lautet in etwa:
Private Sub userform_Activate()
Listbox.columnCoun=3
Listbox.ColumnWidths = "90;50;50"
End Sub

Private Sub Test()
Dim i as Byte
Dim str1 as String
Dim str2 as String
Dim str3 as String
For i = 1 to 20
If Sheets(1).Cells(i,1) = "X" Then
str1= Sheets(1).Cells(i,2) & "blabla"
str2= Sheets(1).Cells(i,3) & "blabla"
str3= Sheets(1).Cells(i,4) & "blabla"
Listbox.?
End if
Next i
End Sub
Wie bekomme ich die Listbox gefüllt?
Gruß
Dieterlem

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mehrzeilige Listbox mit strings füllen
24.02.2012 13:36:33
ransi
Hallo Dieter
Ich würds so machen:
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "90;50;50"
    Call Test
End Sub



Private Sub Test()
    Dim i As Byte
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim L As Long
    Redim arrIn(0)
    For i = 1 To 20
        If Sheets(1).Cells(i, 1) = "x" Then
            str1 = Sheets(1).Cells(i, 2) & "blabla"
            str2 = Sheets(1).Cells(i, 3) & "blabla"
            str3 = Sheets(1).Cells(i, 4) & "blabla"
            Redim Preserve arrIn(L)
            arrIn(L) = Array(str1, str2, str3)
            L = L + 1
        End If
    Next i
    arrIn = WorksheetFunction.Transpose(arrIn)
    arrIn = WorksheetFunction.Transpose(arrIn)
    ListBox1.List = arrIn
End Sub


ransi
Anzeige
AW: Mehrzeilige Listbox mit strings füllen
24.02.2012 14:09:08
Dieterlem
Hallo Ransi,
vielen Dank für deine Hilfe. Das klappt soweit ganz gut. Ich habe versucht den Code soweit anzupassen dass er auch in meiner Datei funktioniert. Damit es etwas einfacher zu verstehen war habe ich ein kleines Beispiel gepostet. Mein Code ist da etwas umfangreicher. Leider schaffe ich es nicht ihn für meine Bedürfnisse anzupassen. Vieleicht kannst du mir nochmal einen Tipp geben. Hier wieder mein Beispiel:
Option Explicit
Private str1 as String
Private str2 as String
Private str3 as String
Private Sub userform_Activate()
Listbox.columnCoun=3
Listbox.ColumnWidths = "90;50;50"
Call Test1
Call Test2
End Sub

Private Sub Test1()
Dim i as Byte
Dim iSheet as Byte
For iSheet = 1 to 5
For i = 1 to 20
If Sheets(1).Cells(i,1) = "X" Then
str1= Sheets(1).Cells(i,2) & "blabla"
str2= Sheets(1).Cells(i,3) & "blabla"
str3= Sheets(1).Cells(i,4) & "blabla"
Listbox.?
End if
Next i
Next iSheet
End Sub


Private Sub Test2()
Dim i as Byte
Dim iSheet as Byte
For iSheet = 5 to 10
For i = 21 to 40
If Sheets(1).Cells(i,1) = "X" Then
str1= Sheets(1).Cells(i,2) & "blabla"
str2= Sheets(1).Cells(i,3) & "blabla"
str3= Sheets(1).Cells(i,4) & "blabla"
Listbox.?
End if
Next i
Next iSheet
End Sub

Gruß
Dieterlem
Anzeige
AW: Mehrzeilige Listbox mit strings füllen
24.02.2012 18:20:14
fcs
Hallo Dieterlem,
mir ist unklar, ob du alle Daten in den Blättern 1 bis 10, die mit "X" in Spalte A markiert sind in einer Listbox anzeigen willst, oder mit den Daten von Zeile 21 bis 40 in Blatt 5 bis 10 eine 2. Listbox füllen willst.
Wenn alles in einer Listbox angezeigt werden soll, dann sieht es wie folgt aus.
Sollen 2 Listboxen gefüllt werden, dann sollten die Zeilen zum Re-Dimensionieren des Arrays und Füllen der Listbox jeweils in den beiden Test-Prozeduren eingefügt werden.
Gruß
Franz 
'Code Userform
Option Explicit
Private str1 As String
Private str2 As String
Private str3 As String
Private arrList(), L As Long
Private Sub userform_Activate()
ListBox.ColumnCount = 3
ListBox.ColumnWidths = "90;50;50"
ReDim arrList(0)
L = 0
ListBox.Clear
Call Test1
Call Test2
arrList = WorksheetFunction.Transpose(arrList)
arrList = WorksheetFunction.Transpose(arrList)
ListBox.List = arrList
Erase arrList
End Sub
Private Sub Test1()
Dim i As Byte
Dim iSheet As Byte
For iSheet = 1 To 5
With Sheets(iSheet)
For i = 1 To 20
If UCase(.Cells(i, 1)) = "X" Then
str1 = .Cells(i, 2) & "blabla"
str2 = .Cells(i, 3) & "blabla"
str3 = .Cells(i, 4) & "blabla"
ReDim Preserve arrList(L)
arrList(L) = Array(str1, str2, str3)
L = L + 1
End If
Next i
End With
Next iSheet
End Sub
Private Sub Test2()
Dim i As Byte
Dim iSheet As Byte
For iSheet = 5 To 10
With Sheets(iSheet)
For i = 21 To 40
If UCase(.Cells(i, 1)) = "X" Then
str1 = .Cells(i, 2) & "blabla"
str2 = .Cells(i, 3) & "blabla"
str3 = .Cells(i, 4) & "blabla"
ReDim Preserve arrList(L)
arrList(L) = Array(str1, str2, str3)
L = L + 1
End If
Next i
End With
Next iSheet
End Sub

Anzeige
AW: Mehrzeilige Listbox mit strings füllen
24.02.2012 13:41:56
Rudi
Hallo, 
Private Sub userform_Activate()
ListBox.ColumnCount = 3
ListBox.ColumnWidths = "90;50;50"
End Sub


Private Sub Test()
Dim i As Long, arrList(), n As Integer
Dim str1 As String
Dim str2 As String
Dim str3 As String
With Sheets(1)
ReDim arrList(1 To Application.CountIf(.Range("A1:A20"), "X"), 1 To 3)
For i = 1 To 20
If .Cells(i, 1) = "X" Then
n = n + 1
arrList(n, 1) = .Cells(i, 2) & "blabla"
arrList(n, 2) = .Cells(i, 3) & "blabla"
arrList(n, 3) = .Cells(i, 4) & "blabla"
End If
Next i
End With
ListBox.List = arrList
End Sub

Gruß
Rudi
Anzeige

61 Forumthreads zu ähnlichen Themen

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) = Lis...
21.08.2009 20:33:45
Thread-ID: 1097859
18 Beiträge
Anzeige
Combobox mit Werten füllen
Jeron

Hallo liebe Excel Freunde,
ich sitz gerade an einem Userform, dass Werte aus einer Tabelle über eine Combobox auslesen soll.
Ich möchte erreichen, dass die Spalte C, Zelle C8 - C56 auf Inhalt überprüft wird.
Wenn ein Wert vorhanden ist, soll die ComboBox aber nicht mit dem Wert aus...
29.08.2009 18:34:01
Thread-ID: 1099336
10 Beiträge
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
Anzeige
Combobox mit Werten füllen
Juliane

Hallo Leute,
ich bin gerade sowas von auf dem Kopf gefallen, ich versteh gar nichts mehr.... Also hab ne Combobox auf mein Tabellensheet gelegt. U jetzt möchte ich diese Combobox mit Werten aus einem anderen Tabellensheet füllen.
Hab es folgendermaßen probiert, aber funktioniert null :(...
12.08.2010 14:32:37
Thread-ID: 1171943
2 Beiträge
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
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

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
17
4
9
3
2
1
3
5
1
8
2
2
6
4
1
13
2
6
8
8
8
2
7
6
1