MAX-waarde wegschrijven in andere sheet

[ivanhoo]

Hey,
ik ben bezig met het schrijven van een macro, het volgende moet gebeuren, maar dat lukt me niet, misschien dat u mij kunt helpen??

In "sheet 1" wordt de MAX-waarde bepaalt van D2 t/m D673. Dit moet voor iedere 672 cellen naar beneden gebeuren (waarschijnlijk met een loop).
Deze MAX-waarde moet worden weggeschreven naar "sheet 2", in cel G5. De daarop volgende MAX-waarden moeten daarnaast komen in de opvolgende lege cel, dus H5, I5 enz.

Ik hoop dat u mij kunt helpen

 

[erik.van.geit]

Hallo, ivanhoo,

bedoel je
maximum van Sheet1!D2:D673 gaat naar sheet2!G5
maximum van Sheet1!D674:D1345 gaat naar sheet2!I5

dan zal dit in de buurt komen van wat je nodig hebt

Option Explicit

Sub copy_max_values()
Dim rng As Range
Dim PasteToCell As Range
Dim LR As Long
Dim I As Long

Set PasteToCell = Sheets("sheet2").Range("I5")
Const FR As Long = 2        'first row
Const NrRows As Long = 672  'number of rows per loop
Const CC As Integer = 4     'check column

LR = Cells(Rows.Count, CC).End(xlUp).Row
Do
    With Sheets("sheet1")
    Set rng = .Range(.Cells(FR + I * NrRows, CC), .Cells(FR + (I + 1) * NrRows - 1, CC))
    End With
PasteToCell.Offset(0, I) = Application.Max(rng)
I = I + 1
Loop While I * NrRows + FR < LR

End Sub

beste groeten,
Erik

 

[Bruno_x]

Hallo ivanhoo,

'k ben net terug, vandaar dat ik nu pas je posting zie
Als ik het niet verkeerd begrepen heb, dan kan je die maximum waarde toch gewoon met een formule opvragen ?!?

Zet de volgende formule in het werkblad "sheet 2", cel G5
=MAX(Sheet 1!D2:D673)

 

[erik.van.geit]

Bruno,

Fijn je hier te ontmoeten!
ivanhoo vraagt naar een "loop" aangezien er meerdere reeksen zijn waarvan het maximum berekend moet worden

als formula zou ik eerder dit gebruiken (in G5)
=MAX(INDIRECT("Sheet1!D" & 672*(KOLOM()-7) + 2 &":D" & 672*(KOLOM()-6)+1))
deze kan naar rechts worden gecopieerd om de volgende maxima te kennen
hier een klein voorbeeld, waarbij eerste rij en aantal items per groep kunnen gewijzigd worden
C4: =MAX(INDIRECT("Sheet1!A" & $D$1*(KOLOM()-3) + $D$2 &":A" & $D$1*(KOLOM()-2)+1))

Map1.xls
	A	B	C	D	E
1			nr items	4
2			first row	3
3	44
4	55		55	76	8
5	1
6	66
7	12
8	43
9	76
10	89
11	2
12	5
13	8
14	4
sheet1

beste groeten,
Erik

 

[Bruno_x]

Erik, je hebt (weeral) gelijk

Ik heb de vraag "Deze MAX-waarde moet worden weggeschreven naar "sheet 2", in cel G5. De daarop volgende MAX-waarden moeten daarnaast komen in de opvolgende lege cel, dus H5, I5 enz." niet helemaal goed gelezen...

De tekst "De daarop volgende MAX-waarden" was me ook niet volledig duidelijk.

 

[erik.van.geit]

Bruno,

Heel lief en sportief van jou. Je laat me bl zen. (de amerikanen zullen nu denken dat er iets in mijn post niet klopt )
Als we zo doorgaan, wordt het hier een Belgische reünie. Misschien kunnen we dat eens "life" organiseren...

beste groeten,
Erik

 

[Bruno_x]

Ik check zeer regelmatig dit 'internationale' stukje van het forum. Om dan te zien dat er weinig of geen vlaamse vragen zijn. Dat wil m.a.w. zeggen de vlaamse excel gebruikers hun ding EXCELlent kennen zeker ???

Ivanhoo, is je probleem ondertussen opgelost ?

vriendelijke groeten,
Bruno

 

[ivanhoo]

Hoi Erik en Bruno,

Hier kan ik weer even mee aan de slag.
Bedankt voor jullie hulp. Misschien dat ik later nog
meer vragen heb.

Groetjes ivanhoo