Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Matrix in Spalten

Matrix in Spalten
15.11.2004 18:07:11
Andy Philipp
hallo
wie kann man eine matrix von werten der form
2 4 5 6
7 8 9 1
. . . .
. . . .
.
.
.
in die form
1 1 2
1 2 4
1 3 5
1 4 6
2 1 7
2 2 8
2 3 9
2 4 1
.......
umwandeln? dabei soll in den ersten beiden spalten die matrix-position stehen (erst zeilennummer, dann spaltennummer) und un der dritten der wert. das ganze soll für beliebig (im rahmen von excel) grosse matrizen funktionieren...
vielen dank im voraus
andy philipp

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Matrix in Spalten
15.11.2004 19:08:22
Josef Ehrensberger
Hallo Philipp!
ZB. so:
Option Explicit
Option Base 1

Sub Matrix()
Dim RowEnd As Long
Dim ColEnd As Integer
Dim lRow As Long
Dim iCol As Integer
Dim myArr() As Variant
RowEnd = Range("A65536").End(xlUp).Row
ColEnd = Range("IV1").End(xlToLeft).Column
ReDim myArr(RowEnd, ColEnd)
For lRow = 1 To RowEnd
For iCol = 1 To ColEnd
myArr(lRow, iCol) = Cells(lRow, iCol)
Next
Next
End Sub

Gruß Sepp
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige