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

nicht zusammenhängende Zellbereiche

nicht zusammenhängende Zellbereiche
23.05.2007 12:43:00
julia
Hallo zusammen!
ich habe wieder mal da ein Problem und weiss nicht wie ich das lösen kann.
Ich muss aus 3 Matrizen Q, A und B eine neue Matrix bilden, d.h ich habe in 3 verschiedenen Zellbereichen die Matrizen Q, A und B, und diese müssen dann zu einer neuen Matrix
(Q A^t B^t) zusammen gefügt werden. An dieser neuen Matrix solle dann weitere Berechnungen
(A 0 0 ) durchgefürt werden
(B 0 0 ) Wenn jemand eine Idee hat, wei man das machen, meldet euch bitte!!
A^t , B^t heißt die zu A bzw zu B transponierte Matrix.
Ich gebe noch das, was ich schon habe:

Sub Matrix()
Dim A#(), Q#(), B#()
Dim i%, j%, n%, m%, k%
n=2
m=6
k=5
ReDim Q(n,n)  'Die Einträge der Marix Q
For i=1 To n
For j=1 To n
Q(i,j)=Cells(1+i, 1+j)
Next j
Next i
ReDim A(m,n) 'Die Einträge der Matrix A
For i=1 To n
For j=1 To m
A(i,j)=Cells(n+2+i, 1+j)
Next j
Next i
ReDim B(k,n) 'Die Einträge der Matrix B
For i=1 To n
For j=1 To k
B(i,j)=Cells(n+m+4+i, 1+j)
Next j
Next i
'Hier soll dann diese neue Matrix gebildet werden
End Sub


Gruß
Julia

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nicht zusammenhängende Zellbereiche
23.05.2007 18:01:57
michael
hi julia :-)
ein ansatz
nicht getestet,nicht nachgebaut
lass doch parallel ein array mit laufen wenn drei arrays nicht vermeidbar sind = im beispielcode
bzw. leg die daten doch gleich in ein grosses array und NICHT in drei kleine
gruss nighty

Sub Matrix()
Dim A#(), Q#(), B#()
Dim i%, j%, n%, m%, k%
Dim x1 As Integer
Dim y1 As Long
ReDim Q(2, 2) 'Die Einträge der Marix Q
ReDim A(6, 2) 'Die Einträge der Matrix A
ReDim B(5, 2) 'Die Einträge der Matrix B
ReDim MatrixNeu(13, 6)
For i = 1 To 2
x1 = x1 + 1
For j = 1 To 2
Q(i, j) = Range(Cells(1 + i, 1 + j), Cells(2, 2))
y1 = y1 + 1
MatrixNeu(y1, x1) = Q(i, j)
Next j
Next i
For i = 1 To 2
x1 = x1 + 1
For j = 1 To 6
y1 = y1 + 1
A(i, j) = Cells(2 + 2 + i, 1 + j)
MatrixNeu(y1, x1) = A(i, j)
Next j
Next i
For i = 1 To 2
x1 = x1 + 1
For j = 1 To 5
y1 = y1 + 1
B(i, j) = Cells(2 + 5 + 4 + i, 1 + j)
MatrixNeu(y1, x1) = B(i, j)
Next j
Next i
End Sub


Anzeige
AW: nicht zusammenhängende Zellbereiche
23.05.2007 18:57:00
julia
Hallo Michael,
danke Dir für Deine Mühe, ich werde dein Vorschlag ausprobieren,
es sieht gar nicht schlecht aus. Ich werde mich auf jedem Fall melden, aber nicht heute, hab noch
was anderes zu tun.
Leider sind 3 Arrys nicht vermeidbar, sonst wäre es für mich kein Problem gewesen alleine die Lösung zu finden. Die Sache es die, ich brauche nicht alle 3 Matrizen komplett, sonder nur einige Zeilen aus jeder Matrix, die nach einem Prinzip ausgewählt worden sind. Das ist ein Teil eines Algorithmus zur Lösung nicht linearer Optimierungsprobleme.
Danke nochmals.
Schöne Grüße aus Wuppertal!
Julia

Anzeige
AW: nicht zusammenhängende Zellbereiche
24.05.2007 16:38:00
julia
Hallo Michael,
ich danke Dir vielmals, dein Ansatz ist supper!!
Ich musste da etwas korregieren, aber die Idee in genial und genial einfach.
Jetzt bin ich etwas schlauer geworden!!
Schöne Grüße
Julia

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige