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

Kann man das einfacher/kürzer schreiben ?

Kann man das einfacher/kürzer schreiben ?
27.02.2004 22:45:53
Juergen
Hallo Leute. Kann man folgende Routine einfacher bzw. kürzer schreiben oder geht das nur in dieser langen form ??
Open "C:\fibu2004\kunden.dat" For Input As 1
Input #1, kdnrmax
For i = 1 To kdnrmax
Input #1, kd1(i)
Input #1, kd2(i)
Input #1, kd3(i)
Input #1, kd4(i)
Input #1, kd5(i)
Input #1, kd6(i)
Input #1, kd7(i)
Input #1, kd8(i)
Input #1, kd9(i)
Input #1, kd10(i)
Input #1, kd11(i)
Input #1, kd12(i)
Input #1, kd13(i)
Input #1, kd14(i)
Input #1, kd15(i)
Input #1, kd16(i)
Input #1, kd17(i)
Input #1, kd18(i)
Input #1, kd19(i)
Input #1, kd20(i)
Input #1, kd21(i)
Input #1, kd22(i)
Input #1, kd23(i)
Input #1, kd24(i)
Input #1, kd25(i)
Input #1, kd26(i)
Input #1, kd27(i)
Input #1, kd28(i)
Input #1, kd29(i)
Input #1, kd30(i)
Input #1, kd31(i)
Input #1, kd32(i)
Input #1, kd33(i)
Input #1, kd34(i)
Input #1, kd35(i)
Input #1, kd36(i)
Input #1, kd37(i)
Input #1, kd38(i)
Next i
Close #1

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kann man das einfacher/kürzer schreiben ?
28.02.2004 07:53:22
andre
hallo jürgen,
so etwa:


Dim kd(1 To 38, 1 To xxx) 'hier deinen bisherigen wert eintragen
Open "C:\fibu2004\kunden.dat" For Input As 1
Input #1, kdnrmax
For i = 1 To kdnrmax
For j = 1 To 38
Input #1, kd(j, i)
Next j
Next i
Close #1

     Code eingefügt mit Syntaxhighlighter 2.5

gruss andre
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige