Option Explicit
Sub Einlesen()
Dim x#, xx#, y%, i#, k#, s
'Ausgabe starten in Zelle x,y
x = 3
y = 3
k = 1
xx = x
s = Application.GetOpenFilename(, , "Datei wählen")
If VarType(s) = vbBoolean Then Exit Sub 'Abbrechen gedrückt
On Error GoTo Hell
Application.ScreenUpdating = False
Open s For Input As #1
While Not EOF(1)
Line Input #1, s
For i = k To s - 1
Cells(xx, y) = i
xx = xx + 1
If xx = 65537 Then xx = x: y = y + 1
Next i
k = s + 1
Wend
Close
Hell:
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
Sub Erzeugen()
'nur zum testen- erzeugt eine Zahlenreihe von bis zu
'1.000.000 Zahlen, bei der jede Zahl mit einer Wahrscheinlichkeit von
'1/10 fehlt.
Dim i#
Randomize
Open Application.GetOpenFilename(, , "Datei wählen") For Output As #1
For i = 1 To 1000000
If Int(Rnd * 10) + 1 <> 5 Then Print #1, CStr(i)
Next
Close
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen