Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Recordset in Array dann transponieren
#1
Hallo,

kann mir bitte jemand weiterhelfen?
Ich habe ein Recordset welches ich in ein Array überführen möchte

Überschrift:
RS =ProdNr., Bezeichnung, Preis

Datensätze:
RS1= 16, Apfel 1,5€
RS2=21, Birne, 2,0 €
RS3= 5, Orange, 3,0€


Die Recordsets werden so in ein Array überführt
Array = RS.GetRows(RS.RecordCount)

seltsamerweise sind im Array die Zeilen und Spalten vertauscht

Ergebnis
Array(0,0)=16
Array(1,0)=Apfel
Array(2,0)=1,5
Array(0,1)=21
Array(1,1)=Birne
Array(2,1)=20
Array(0,2)=5
Array(1,2)=Orange
Array(2,2)=3,0

Ich möchte aber das Array so haben:

Array(0,0)=16
Array(0,1)=Apfel
Array(0,2)=1,5
Array(1,0)=21
Array(1,1)=Birne
Array(1,2)=20
Array(2,0)=5
Array(2,1)=Orange
Array(2,2)=3,0


MIt workscheetfunction.transpose funktioniert es nicht richtig, da das Array sehr klein ist und die Felder Bezichnung und Preis manchmal nicht gefüllt sind.
Dann bekomme ich statt ein 2 Dimensionales Array mit leeren Feldern ein 1 Dimensionales Array zurück.

Ich benötige aber unbedingt ein 2 Dimensionales Array auch wenn die Felder leer sind.

LG

Klaus
to top
#2
Hab inzwischen was gefunden

Code:
Public Function Transponieren(arQ)
    Dim arT As Variant
    Dim i As Long
    Dim k As Long
    
    ReDim arT(0 To UBound(arQ, 2), 0 To UBound(arQ))
    
    For i = 0 To UBound(arT)
        For k = 0 To UBound(arT, 2)
            arT(i, k) = arQ(k, i)
        Next
    Next
    Transponieren = arT
End Function
to top
#3
Hi Klaus,

die Frage ist ja:
warum ist das Transponieren überhaupt notwendig, warum wird das nicht in der richtigen Reihenfolge ans Array übergeben?

Mit dem Transponieren beseitigst Du ja nur das Symptom und nicht die Ursache.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question FormulaLocal -> Array angebbar? o0Julia0o 9 178 21.03.2017, 08:37
Letzter Beitrag: Steffl
  Transponieren abhängig von Werten: wie mache ich das? chilly_bang 9 293 08.12.2016, 16:46
Letzter Beitrag: lupo1
  Mehrere TXT-Files transponieren und zusammenfahren AlexJesse 1 136 08.12.2016, 15:41
Letzter Beitrag: Gast 123
  wenn Zelle leer dann nichts wenn aber Zelle Datum enthält dann nickita 1 343 03.09.2016, 06:03
Letzter Beitrag: schauan
  transponieren, löschen per vba Dude85 5 489 02.08.2016, 13:33
Letzter Beitrag: Dude85
  Vom Senkrechte ins Waagerechte (kein Transponieren) FerdinandSchuster 18 948 01.08.2016, 12:29
Letzter Beitrag: radagast
  Zellen Transponieren Nukleus 6 516 15.06.2016, 18:51
Letzter Beitrag: Jockel
  Array Formel mit SVERWIES Jacko 1 301 24.05.2016, 08:57
Letzter Beitrag: steve1da
  Tabelle; Spalten/Zeilen ändern - aber nicht transponieren b-trilogie 5 735 29.03.2016, 12:06
Letzter Beitrag: snb
  Excel VBA: Suchen und ersetzen mittels Array sharky51 17 3.412 15.12.2015, 14:10
Letzter Beitrag: Rabe

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste