Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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
  wenn Zelle leer dann nichts wenn aber Zelle Datum enthält dann nickita 1 171 03.09.2016, 06:03
Letzter Beitrag: schauan
  transponieren, löschen per vba Dude85 5 344 02.08.2016, 13:33
Letzter Beitrag: Dude85
  Vom Senkrechte ins Waagerechte (kein Transponieren) FerdinandSchuster 18 592 01.08.2016, 12:29
Letzter Beitrag: radagast
  Zellen Transponieren Nukleus 6 372 15.06.2016, 18:51
Letzter Beitrag: Jockel
  Array Formel mit SVERWIES Jacko 1 212 24.05.2016, 08:57
Letzter Beitrag: steve1da
  Tabelle; Spalten/Zeilen ändern - aber nicht transponieren b-trilogie 5 568 29.03.2016, 12:06
Letzter Beitrag: snb
  Excel VBA: Suchen und ersetzen mittels Array sharky51 17 2.607 15.12.2015, 14:10
Letzter Beitrag: Rabe
  Transponieren und Teilen? anana 4 403 10.12.2015, 15:43
Letzter Beitrag: anana
  Kürze Schreibweise für Array gesucht Schülerin 4 697 01.09.2015, 18:52
Letzter Beitrag: BoskoBiati
  VBA Berichtsfilter / Array's Look4Fun 1 494 02.08.2015, 16:58
Letzter Beitrag: schauan

Gehe zu:


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