Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array in Listbox

Array in Listbox
25.02.2005 20:08:08
Manfred
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array in Listbox
Horst
Anrede
Frage
Gruß
mfg Horst
AW: Array in Listbox
25.02.2005 20:21:46
Ma
Idxxxxxt du kannst ..................mal
AW: Array in Listbox
25.02.2005 20:24:47
Matthias
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
AW: Array in Listbox
25.02.2005 20:21:38
Matthias
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
Anzeige
AW: Sorry, sorry und vielen Dank
25.02.2005 21:08:06
Manfred
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
An Horst und Matthias Posting Ma nicht von mir
25.02.2005 21:17:33
mir
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
AW: An Horst und Matthias Posting Ma nicht von mir
25.02.2005 21:31:36
mir
Hallo Manfred,
akzeptiert, es ist scheinbar wieder ein Troll unterwegs.
Ich sollte mit solchen Zuordnungen in Zukunft vorsichtiger sein...
Gruß Matthias
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige