2 Dimensionales Array transponieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: 2 Dimensionales Array transponieren
von: Nike
Geschrieben am: 03.07.2002 - 00:34:04

Hi,
ich hab da ein Array mit den Dimensionen (9, lngZeil)
der Teil lngZeil ist Variabel
nun möchte ich dieses Array in eine Listbox einlesen,
Me.ComboBox1.List() = arrList
dummerweise muß ich dafür aber den Inhalt zuerst transponieren
um die Darstellung in der Listbox korrekt hinzubekommen...
Wie kann ich das nun am besten hinbekommen,
da ich mit ubound wohl Probleme bekomme, wenn ich weniger
Zeileneinträge habe, als Spalten im Array...

Bei einer anderen UF muß ich den ggf geänderten Array
auch wieder auslesen und wieder zurücktransponieren...

Tips wären nett.

Bye

Nike

P.S. Warum muß ich denn jetzt ne gültige E-mail Adresse eingeben?
Ging das nicht auch ohne???


nach oben   nach unten

Re: 2 Dimensionales Array transponieren
von: L.Vira
Geschrieben am: 03.07.2002 - 01:26:41

mir ist nicht so recht klar, wo das Problem ist. Wie "fütterst" du den das Array?

nach oben   nach unten

Re: 2 Dimensionales Array transponieren
von: Nike
Geschrieben am: 03.07.2002 - 01:36:34

Hi,
das ursprüngliche Array?
so:

Set wksBasis = ActiveWorkbook.Worksheets("DB")
lngLZeil = wksBasis.Cells(wksBasis.Rows.Count, 1).End(xlUp).Row
lngArr = 0
For lngZeil = 2 To lngLZeil
    If Now() - wksBasis.Cells(lngZeil, 7) > intTagesdiff _
    And wksBasis.Cells(lngZeil, 8) = "nein" Then
        
        ReDim Preserve arrList(9, lngArr)
        For intArr = 0 To 8
            arrList(intArr, lngArr) = _
            wksBasis.Cells(lngZeil, intArr + 1)
        Next
        arrList(9, lngArr) = lngZeil
        lngArr = lngArr + 1
    End If
Next

Anschliessend möchte ich es aber transponiert mit
Me.ComboBox1.List() = arrList
der Combobox zuschustern...

Wenn ich dann in der bzw einer anderen Userform
eine Änderung am Datenfeld gemacht habe, muss ich es ja wieder
zurücktransponieren...

Bye

Nike

nach oben   nach unten

Re: 2 Dimensionales Array transponieren
von: Hans W. Herber
Geschrieben am: 03.07.2002 - 06:17:17

Hallo Nike,

lies das Array statt mit:
ComboBox1.List = arrList

als:
ComboBox1.Column = arrList

ein.

hans

nach oben   nach unten

Re: Danke...
von: Nike
Geschrieben am: 03.07.2002 - 14:36:23

Hi Hans,
danke für den Tip,
ich werd ihn mal ausprobieren.

Bye

Nike


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2 Dimensionales Array transponieren"