Matrix umwandeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Matrix() Dim objM As Object, lngRow As Long, lngCol As Long Dim arrM(), arrItems, lngI As Long, arrData Set objM = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False arrData = Cells(1, 1).CurrentRegion For lngRow = 2 To UBound(arrData) For lngCol = 2 To UBound(arrData, 2) objM(arrData(lngRow, 1) & "-" & arrData(1, lngCol)) = _ Array(arrData(lngRow, 1), arrData(1, lngCol), arrData(lngRow, lngCol)) Next Next arrItems = objM.items ReDim arrM(1 To objM.Count + 1, 1 To 2) arrM(1, 1) = "Datum" arrM(1, 2) = "Wert" For lngI = 0 To UBound(arrItems) arrM(lngI + 2, 1) = arrItems(lngI)(0) + arrItems(lngI)(1) arrM(lngI + 2, 2) = arrItems(lngI)(2) Next With Worksheets.Add .Cells(1, 1).Resize(UBound(arrM), UBound(arrM, 2)) = arrM .Columns(1).NumberFormat = "DD.MM.YYYY hh:mm" End With End Sub

Hallo,
so geht's auch:

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB
1		00:00	01:00	02:00	03:00	04:00	05:00	06:00	07:00	08:00	09:00	10:00	11:00	12:00	13:00	14:00	15:00	16:00	17:00	18:00	19:00	20:00	21:00	22:00	23:00		Zeit	Wert
2	06.09.2011	22	23	24	25	26	27	28	29	210	211	212	213	214	215	216	217	218	219	220	221	222	223	224	225		06.09.2011 00:00	22
3	07.09.2011	32	33	34	35	36	37	38	39	310	311	312	313	314	315	316	317	318	319	320	321	322	323	324	325		06.09.2011 01:00	23
4	08.09.2011	42	43	44	45	46	47	48	49	410	411	412	413	414	415	416	417	418	419	420	421	422	423	424	425		06.09.2011 02:00	24
5	09.09.2011	52	53	54	55	56	57	58	59	510	511	512	513	514	515	516	517	518	519	520	521	522	523	524	525		06.09.2011 03:00	25
6	10.09.2011	62	63	64	65	66	67	68	69	610	611	612	613	614	615	616	617	618	619	620	621	622	623	624	625		06.09.2011 04:00	26
7	11.09.2011	72	73	74	75	76	77	78	79	710	711	712	713	714	715	716	717	718	719	720	721	722	723	724	725		06.09.2011 05:00	27
8	12.09.2011	82	83	84	85	86	87	88	89	810	811	812	813	814	815	816	817	818	819	820	821	822	823	824	825		06.09.2011 06:00	28
9	13.09.2011	92	93	94	95	96	97	98	99	910	911	912	913	914	915	916	917	918	919	920	921	922	923	924	925		06.09.2011 07:00	29
10	14.09.2011	102	103	104	105	106	107	108	109	1010	1011	1012	1013	1014	1015	1016	1017	1018	1019	1020	1021	1022	1023	1024	1025		06.09.2011 08:00	210

Zelle	Formel
AA2	=INDEX(A:A;ABRUNDEN((ZEILE(A1)-1)/24;0)+2)+INDEX($B$1:$Y$1;REST((ZEILE()-2);24)+1)
AB2	=INDEX($B$2:$Y$10;ABRUNDEN((ZEILE(A1)-1)/24;0)+1;REST((ZEILE()-2);24)+1)
AA3	=INDEX(A:A;ABRUNDEN((ZEILE(A2)-1)/24;0)+2)+INDEX($B$1:$Y$1;REST((ZEILE()-2);24)+1)
AB3	=INDEX($B$2:$Y$10;ABRUNDEN((ZEILE(A2)-1)/24;0)+1;REST((ZEILE()-2);24)+1)

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

	K	L	M
10	01.01.2011 00:00	1,00	0,00
11	01.01.2011 01:00	1,00	1,00
12	01.01.2011 02:00	1,00	2,00

Zelle	Formel
L10	=TAG(K10)
M10	=STUNDE(K10)
K11	=K10+1/24
L11	=TAG(K11)
M11	=STUNDE(K11)
K12	=K11+1/24
L12	=TAG(K12)
M12	=STUNDE(K12)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread