5100/5000/2000,2000,100
5200/4000/2010,2020,275
.....
die Werte in eine mehrspaltige Listbox einlesen, so daß
in der ersten Spalte 5100/5000/2000
in der zweiten Spalte 2000
in der dritten Spalte 100
steht?
Hat jemand einen Rat.
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