Thema Datum  Von Nutzer Rating
Antwort
Rot  Array Ausgabe in Workbook.Sheets
 14.11.2021 19:25:46 Florin
NotSolved
14.11.2021 20:19:14 xlKing
NotSolved
14.11.2021 22:12:41 Florin
NotSolved
14.11.2021 22:31:01 Florin
Solved

Ansicht des Beitrags:
Von:
Florin		 Datum:
14.11.2021 19:25:46		 Views:
299		 Rating:
     
Antwort:
  Ja
Thema:
Array Ausgabe in Workbook.Sheets

Ein Array KM soll in ein Workbook.Sheets "KM" ausgegeben werden.

Mit

Range("A2 :" & "K" & nDsKM) = KM()Range("A2 :" & "K" & nDsKM) = KM()

erhalte ich das Folgende

Wobei die Ausgabe nicht wie gewünscht bei Zelle A2, sondern A3 beginnt

Titel S-Zeile D-Zeile yymmdd Datum Open High Low EoD Volum  
                     
  ADS 21 6286 201217 17.12.20 294.40 299.30 293.20 295.00 618605
  ADS 22 6287 201218 18.12.20 294.40 295.40 289.70 289.90 1030491
  ADS 23 6288 201221 21.12.20 286.90 289.40 280.00 287.50 717154
  ADS 24 6289 201222 22.12.20 289.80 293.50 288.10 293.50 361682
  ADS 25 6290 201223 23.12.20 293.70 294.30 290.50 293.60 233813
  ADS 26 6291 201228 28.12.20 297.00 299.30 295.20 299.30 291816
  ADS 27 6292 201229 29.12.20 301.10 302.70 298.60 299.50 308570
  ADS 28 6293 201230 30.12.20 298.50 300.20 297.70 297.90 211083

 

Mit 

        For iy = 1 To nDsKM

           For ix = 1 To 10

               Cells(iy + 1, ix) = KM(iy, ix)

           Next ix

        Next iy

erhalte ich das gewünschte Resultat

Die Ausgabe beginnt in Zelle A2

Titel S-Zeile D-Zeile yymmdd Datum Open High Low EoD Volum
ADS 21 6286 201217 17.12.20 294.40 299.30 293.20 295.00 618605
ADS 22 6287 201218 18.12.20 294.40 295.40 289.70 289.90 1030491
ADS 23 6288 201221 21.12.20 286.90 289.40 280.00 287.50 717154
ADS 24 6289 201222 22.12.20 289.80 293.50 288.10 293.50 361682
ADS 25 6290 201223 23.12.20 293.70 294.30 290.50 293.60 233813
ADS 26 6291 201228 28.12.20 297.00 299.30 295.20 299.30 291816
ADS 27 6292 201229 29.12.20 301.10 302.70 298.60 299.50 308570
ADS 28 6293 201230 30.12.20 298.50 300.20 297.70 297.90 211083
ADS 29 6294 210104 04.01.21 300.00 300.50 293.00 295.40 440364
ADS 30 6295 210105 05.01.21 292.90 295.40 288.20 289.60 436591
 

Was mache ich falsch? Kann jemand helfen?

Herzlichen Dank zum Voraus.

Florin

 

 

 

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot  Array Ausgabe in Workbook.Sheets
 14.11.2021 19:25:46 Florin
NotSolved
14.11.2021 20:19:14 xlKing
NotSolved
14.11.2021 22:12:41 Florin
NotSolved
14.11.2021 22:31:01 Florin
Solved