Array in Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Array in Listbox von: Manfred
Geschrieben am: 25.02.2005 20:08:08

Daten sollen aus einer Textdatei direkt(nicht über Tabellenblatt)in eine ListBox mit 3 Spalten eingelesen werden.
Aus der Textdatei werden aber nur die Daten der letzten Zeile eingelesen.
Was muß ich ändern damit alle Zeilen eingelesen werden?
Eine weiter Schleife?

Private Sub CommandButton2_Click()
Dim zeile As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim arr(0 To 0, 0 To 2) As String
Open "D:\Altakten\Etiketten1.txt" For Input As #1
Do While Not EOF(1)
Input #1, Text1, Text2, Text3
arr(0, 0) = Text1
arr(0, 1) = Text2
arr(0, 2) = Text3
ListBox1.List() = arr
Loop
Close #1
End Sub

Bild


Betrifft: AW: Array in Listbox von: Horst
Geschrieben am: 25.02.2005 20:14:55

Anrede
Frage
Gruß

mfg Horst


Bild


Betrifft: AW: Array in Listbox von: Ma
Geschrieben am: 25.02.2005 20:21:46

Idxxxxxt du kannst ..................mal


Bild


Betrifft: AW: Array in Listbox von: Matthias G
Geschrieben am: 25.02.2005 20:24:47

Hallo Manfred,

aufgrund deines verbalen Ausfalls würde ich meine Antwort gern zurückziehen - geht leider nicht.

Horst hat dich doch nur auf die Forumsregeln hingewiesen.

Grußlos
Matthias


Bild


Betrifft: AW: Array in Listbox von: Matthias G
Geschrieben am: 25.02.2005 20:21:38

Hallo Manfred,

wieso über den Umweg einer eigenen Arrayvariablen?

Du könntest es gleich so machen:
Private Sub CommandButton2_Click()
Dim zeile As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
ListBox1.Clear
Open "D:\Altakten\Etiketten1.txt" For Input As #1
Do While Not EOF(1)
Input #1, Text1, Text2, Text3
With ListBox1
    .AddItem
    .List(.ListCount - 1, 0) = Text1
    .List(.ListCount - 1, 1) = Text2
    .List(.ListCount - 1, 2) = Text3
End With
Loop
Close #1
End Sub
Gruß Matthias


Bild


Betrifft: AW: Sorry, sorry und vielen Dank von: Manfred
Geschrieben am: 25.02.2005 21:08:06

Hallo Matthias,

zuerst einmal sorry für die fehlende Nettiquette. Das gilt auch für Horst.
Fehler bestehen halt darin, daß man sie begeht. Wer ohne Fehler ist...

Für Deine Lösung und schnelle Anwort vielen Dank. Natürlich geht es so. Einfach ist immer das Beste.

Gruß Manni


Bild


Betrifft: An Horst und Matthias Posting Ma nicht von mir von: Manfred
Geschrieben am: 25.02.2005 21:17:33

Hallo Horst und Matthias
das Posting von Ma stammt nicht von mir.
Das ist nicht meine Art und Weise auf Hinweise zu reagieren. Die Einwände von Horst waren ja ok. Dass andere sich derart äußern kann ich nicht verhindern.
Nur damit kein falscher Eindruck entsteht.

Gruß
Manni


Bild


Betrifft: AW: An Horst und Matthias Posting Ma nicht von mir von: Matthias G
Geschrieben am: 25.02.2005 21:31:36

Hallo Manfred,

akzeptiert, es ist scheinbar wieder ein Troll unterwegs.
Ich sollte mit solchen Zuordnungen in Zukunft vorsichtiger sein...

Gruß Matthias


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Array in Listbox"