Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array transponieren

Array transponieren
30.10.2004 13:31:09
Werner
Hallo miteinander,
habe noch immer das Problem ein Array(1 to 2, 1 to x), wobei das x dynamisch ermittelt wird, in ein Array(1 to x, 1 to 2) zu transponieren, ohne dabei
auf eine Tabelle oder die Worksheetfunction.Transpose zu nutzen. Das ganze
muss auch in VB 6.0 lauffähig sein.
mfg Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array transponieren
30.10.2004 13:54:20
Nepumuk
Hallo Werner,
Beispiel:


Option Explicit
Private Const intDimension As Integer = 100 'zu testzwecken. Stellt die dynamische Dimension von Array1 dar
Public Sub test()
    Dim Array1(), Array2()
    Dim intIndex1 As Integer, intIndex2 As Integer
    ReDim Array1(1 To 2, 1 To intDimension)
    ReDim Array2(1 To UBound(Array1, 2), 1 To UBound(Array1, 1))
    For intIndex1 = 1 To UBound(Array1, 1)
        For intIndex2 = 1 To UBound(Array1, 2)
            Array2(intIndex2, intIndex1) = Array1(intIndex1, intIndex2)
        Next
    Next
End Sub


Gruß
Nepumuk
Anzeige
AW: Array transponieren
Werner
Hi Nepumuk,
eigentlich ganz einfach, wenn man die Lösung sieht, danke dir.
mfg Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige