Sub MatrixToVector
dim z%, s%, r0%, vIndex%
dim wsM as worksheet, wsV as Worksheet
wsV=Worksheets("Tabelle1") 'bitte korrekten Namen einsetzen
wsM=Worksheets("Tabelle2") 'bitte korrekten Namen einsetzen
r0=2 ' Zeilennummer des ersten Vektorfeldes aus dem Arbeitsblatt
for z=0 to maxZ-1
for s=1 to 31
vIndex=31*z+s
wsV.Cells(r0+vIndex,"E")=wsM.Cells(31+z,6+s)
next s
next z
End Sub
Sub transponieren()
Dim arr(30, 0) As String
Dim r As Integer
Dim r1 As Integer
Dim sp As Integer
Dim spp As Long
Dim we As Integer
' daten einlesen
For r = 31 To 232
spp = -1
For sp = 7 To 37
spp = spp + 1
arr(spp, 0) = Worksheets("Matrix_Eint_Dienste").Cells(r, sp)
Next sp
' Daten zurückschreiben
we = (r - 31) * 31
Worksheets("Einteilung").Range(Cells(2 + we, 14), Cells(32 + we, 14)) = arr
Next r
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen