Hallo zusammen,
ich benötige mal wieder eure Hilfe!
Mit dem folgenden Befehlscode schreibe ich 7 Werte in eine Exceltabelle:
[highlight=vb.net] exWB2.Worksheets("tabelle1").Range("B" & izeile).Value() = PSA
exWB2.Worksheets("tabelle1").Range("C" & izeile).Value() = fPSA
exWB2.Worksheets("tabelle1").Range("D" & izeile).Value() = Testo
exWB2.Worksheets("tabelle1").Range("E" & izeile).Value() = Resth
exWB2.Worksheets("tabelle1").Range("F" & izeile).Value() = PVol
exWB2.Worksheets("tabelle1").Range("G" & izeile).Value() = Miktio
exWB2.Worksheets("tabelle1").Range("H" & izeile).Value() = Notiz[/highlight]
Für diese 7 Werte benötigt mein PC ca. 3 sec.
Da das bis zu 100 Zeilen sind, die mit "izeile" eingetragen werden müssen, ist das natürlich extrem lang.
Kennt jemand eine Möglichkeit, dies zu verkürzen?
vG
fredyx
ich benötige mal wieder eure Hilfe!
Mit dem folgenden Befehlscode schreibe ich 7 Werte in eine Exceltabelle:
[highlight=vb.net] exWB2.Worksheets("tabelle1").Range("B" & izeile).Value() = PSA
exWB2.Worksheets("tabelle1").Range("C" & izeile).Value() = fPSA
exWB2.Worksheets("tabelle1").Range("D" & izeile).Value() = Testo
exWB2.Worksheets("tabelle1").Range("E" & izeile).Value() = Resth
exWB2.Worksheets("tabelle1").Range("F" & izeile).Value() = PVol
exWB2.Worksheets("tabelle1").Range("G" & izeile).Value() = Miktio
exWB2.Worksheets("tabelle1").Range("H" & izeile).Value() = Notiz[/highlight]
Für diese 7 Werte benötigt mein PC ca. 3 sec.
Da das bis zu 100 Zeilen sind, die mit "izeile" eingetragen werden müssen, ist das natürlich extrem lang.
Kennt jemand eine Möglichkeit, dies zu verkürzen?
vG
fredyx
Comment