Hallo Rainer,
bcc: Thomas
Kein Problem an sich, ähem was issen ein FlexGrid?
das sieht etwa aus, wie das Tabellenblatt in Excel.
ich hatte den Code nicht genauer angeschaut, du hattest es ja sogar reingeschrieben, danach zu Hause war alles klar mit dem Flexgrid.
In dem Zusammenhang, ich las im Internet, ListView bietet
andere=bessere Möglichkeiten als ListBox, schön, ich versuchte
also in eine Form (in Excel Userform) ein Listview einzubauen,
ich konnte es in Excel auch aus der Liste der Steuerelemente
auswählen, aber danach war Schluß, ich konnte es nicht
einfügen usw.
Kam irgendeine bescheuerte fehlermeldung 
Braucht man dafür einen speziellen Verweis o.ä.?
Nein, nur die richtige Syntax, aber die ist nicht so einfach.
Gut, demnächst neuer Versuch, dazu warte ich ab bis mal wieder eine Anfrage zu Listbox kommt, dann habe ich was konkretes zum Üben.
Sieh’s noch mal an, die Variante ist schön. 
Ja, schön kurz und clever. Richtig umsetzen konnte ich sie noch nicht so ganz.
Ich habe nachfolgend etwas gebastelt, aber ist mir alles nicht kurz gelungen, eher aufwendig, aber funktioniert, naja so einigermaßen.
ExcelDateienErzeugen() erzeugt im angegeben Testverzeichnis x Dateien mit jeweiligen Namen „Datei0000x.xls“
Freq2Txt() erzeugt 250 Textdateien mit jeweils x Zeilen und dem Namen Freq00x.txt
Txt2xls() erzeugt aus den Dateien Freq00x.txt 250 Exceldateien mit dem Namen Freq00x.xls
Ein Problem mit der Bytelänge von „Satz“ habe ich noch,
Option Base 1
Private Type Satz
Frequenz As Byte
Messwert(4) As Single
End Type
Nach meiner Berechnung müßte ein Satz 17 Bytes groß sein.
100 Sätze in Freq00x.txt ergeben die Dateigröße 2100 Bytes, was ja auf eine Satzlänge von 21 deutet.
mache ich es so:
Option Base 1
Private Type Satz
Messwert(4) As Single
End Type
ist das meinem Code egal, die Dateigröße bliebt bei 2100 Bytes.
Gruß
Reinhard
Option Explicit
Option Base 1
Private Type Satz
Frequenz As Byte
Messwert(4) As Single
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias \_
"RtlMoveMemory" (lpTo As Any, lpFrom As Any, \_
ByVal lLen As Long)
'
Private Sub Command1\_Click()
Dim aa$, l&
Open "DeinFile" For Binary As #1
aa = Input(LOF(1), #1)
Close #1
l = Len(aa) - 1
ReDim b(0 To l)
Call CopyMemory(b(0), ByVal aa, l + 1)
End Sub
'
Sub Freq2Txt()
Dim a(100, 250) As Satz, b(250, 100) As Satz, N As Integer, Z As Byte, S As Byte
Dim W As Byte, Bereich, Satzkurz As Satz, FF
On Error GoTo Fehler
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "C:\FreqTest"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For N = 1 To .FoundFiles.Count
Application.StatusBar = "Lese Datei " & N & " / " & .FoundFiles.Count
Workbooks.Open .FoundFiles(N)
Bereich = Range("A1:E250")
For Z = 1 To 250
Satzkurz.Frequenz = Bereich(Z, 1)
For S = 1 To 4
Satzkurz.Messwert(S) = Bereich(Z, S + 1)
Next S
a(CByte(Mid(ActiveWorkbook.Name, 6, 5)), Z) = Satzkurz
Next Z
ActiveWorkbook.Close savechanges:=False
Next N
'Call CopyMemory(b, ByVal a, 10 \* 250 \* 4) 'schhade klappt nicht
For Z = 1 To 250
Application.StatusBar = "Schreibe Datei " & Z & " / " & 250
FF = FreeFile
Open "C:\FreqTest\Freq" & Right("000" & Z, 3) & ".txt" For Binary As #FF
For N = 1 To .FoundFiles.Count ' 14.000 ?
Put #FF, , a(N, Z)
Next N
Close #FF
Next Z
End With
Fehler:
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
'
Sub Txt2xls()
Dim N As Integer, Anz, FF, a(100) As Satz, Z, S, Merker, Freq
Const Pfad As String = "C:\FreqTest\"
'On Error GoTo Fehler
Application.ScreenUpdating = False
Merker = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
With Application.FileSearch
.NewSearch
.LookIn = "C:\FreqTest"
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For N = 1 To .FoundFiles.Count ' 14.000 ?
If Right(Dir(.FoundFiles(N)), 4) = ".txt" Then
Anz = Anz + 1
Application.StatusBar = "Lese/Schreibe Datei " & Anz & " / " & 250
Freq = Mid(Dir(.FoundFiles(N)), 6, 5)
FF = FreeFile
ReDim f(FileLen(.FoundFiles(N)) / 20) As Satz '20Bytes = 5\*4 Bytes
Open .FoundFiles(N) For Binary As #FF
Get #FF, , f()
Close #FF
Workbooks.Add
For Z = 1 To UBound(f, 1)
Cells(Z, 1) = f(Z).Frequenz
For S = 1 To 4
Cells(Z, S + 1) = f(Z).Messwert(S)
Next S
Next Z
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=Pfad & "Freq" & Mid(Dir(.FoundFiles(N)), 5, 3)
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
Next N
End With
Fehler:
Application.DisplayAlerts = True
Application.StatusBar = ""
Application.SheetsInNewWorkbook = Merker
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
'
Sub ExcelDateienErzeugen()
Dim N As Byte, Merker As Byte, Z As Byte, S As Byte
Const Anz As Byte = 100, Pfad As String = "C:\FreqTest\"
On Error GoTo Fehler
Application.ScreenUpdating = False
Merker = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
For N = 1 To Anz
Application.StatusBar = "Erzeuge Datei " & N & " / " & Anz
Workbooks.Add
With ActiveSheet
For Z = 1 To 250
.Cells(Z, 1) = Z
For S = 2 To 5
.Cells(Z, S) = CSng(Rnd() \* 100)
Next S
Next Z
End With
ActiveWorkbook.SaveAs FileName:=Pfad & "Datei" & Right("00000" & N, 5)
ActiveWorkbook.Close
Next N
MsgBox "done"
Fehler:
Application.StatusBar = ""
Application.ScreenUpdating = True
Application.SheetsInNewWorkbook = Merker
End Sub
