Min en Max bepalen in excel !!

[heetheid]

hey,

weet iemand hoe je de min en max kan bepalen in excel

als je weet dat ik programmeer in vba
en de gegevens doorstuur naar excel
door middel van cells(of(range))

en ik gebruik een array hiervoor

bv

for intA = 1 to 6 
     intgetal(inta) = cint(inputbox("geef getal : " & cint(inta)))

     waarde = intgetal(intaA) 

next intA

vanaf hier weet ik niet wat ik precies moet doen ik dacht

for intA = 1 to 6 

    intgetal(inta) = cint(inputbox("geef getal : " cint(inta)))

    waarde = intgetal(intaA) 

cells(inta,1)

next intA

for intb = 1 to 6 

    intgetal2(intb) = cint(inputbox("geef getal : " & cint(intb)))

   test = intgetal2(intb) 

cells(intb,1)

next intb

if waarde> test then 

   max = waarde and min = test 
else 
max = test and min = waarde 

end if 
end sub

(blijkbaar is dit fout)

hij vraag een getal dubbel maar noteer ze niet er maar een paar, weergeef de max en de min niet

iemand enig idee hoe ik dit kan oplossen ?

Alvast bedankt

 

[Interface]

je kan het beter via de worksheetfunction.max/min gebruiken

Geef in je code je range door in de worksheetfunction.max of min.

Dat ziet er bijvoorbeeld zo uit:

WorksheetFunction.Max(Sheets(1).Range("a1:a10"))

 

[heetheid]

ik krijg een "fout 5 tijdens uitvoering"

"ongeldige procedure oproep of ongeldige argument "

en als ik op foutopsporing drukt staat u functie int geel
enig idee ?

 

[heetheid]

Oplossing Min Max bepalen in excell

oh
blijkbaar moest die sheet (1) er niet bij range was genoeg

uiterst bedank voor u hulp


voor degene die zich afvragen wat het juiste oplossing was hier is het code opnieuw geschreven

Option Explicit
Sub ArrayInRangeMinMax()

Dim Intgetal1(6) As Double
Dim intA As Integer

Dim waarde As Double

Dim Min As Double
Dim Max As Double



For intA = 1 To 6


 
    Intgetal1(intA) = CDbl(InputBox(" geef getal " & CStr(intA)))
      waarde = Intgetal1(intA)
     
Range("A" & intA) = waarde


Next intA


Min = WorksheetFunction.Min(Range("A1:A6"))
Max = WorksheetFunction.Max(Range("A1:A6"))

Range("c4") = "Minimum : "
Range("c5") = "Maximum : "

Range("d4") = Min
Range("d5") = Max



End Sub

Ik wil graag "Interface " voor zijn hulp

 

[snb]

of

sub snb()
 Dim db_getal(5) As Double
 for j=0 to 5
   db_getal(0)=cdbl(inputbox "geef getal " & j+1
 next

 cells(4,3)="maximum " & application.max(db_getal)
 cells(5,3)="minimum " & application.min(db_getal)
End Sub

 

[Warme bakkertje]

Gebruik hem zo en hij werkt perfect

Sub snb()
 Dim db_getal(5) As Double
 For j = 0 To 5
   db_getal([COLOR="red"]j[/COLOR]) = CDbl(InputBox[COLOR="red"]([/COLOR]"geef getal " & j + 1[COLOR="red"]))[/COLOR]
   Range("A" & j + 1) = db_getal(j)
 Next

 Cells(4, 3) = "maximum " & Application.Max(db_getal)
 Cells(5, 3) = "minimum " & Application.Min(db_getal)
End Sub

 

[snb]

nog 'perfecter' ? (minimaliseer de schrijfbewerkingen in Excel)

Sub snb()
 Dim db_getal(5) As Double
 For j = 0 To 5
   db_getal(j) = CDbl(InputBox("geef getal " & j + 1))
 Next

 cells(1).resize(ubound(db_getal) + 1) = application.transpose(db_getal)
 Cells(4, 3).resize(2) = application.transpose(array("maximum " & Application.Max(db_getal), "minimum " & Application.Min(db_getal)))
End Sub

 

[heetheid]

amai
ik moet zeggen dat je goed ben
maar ik ben nog student en ik mag enkel eigenschappen gebruiken die ik geleerd heb.
.resize , .unbound, .tronspose heb ik nog jammer genoeg niet geleerd.



Ik dank u uiterst voor u inzet om mij te helpen, maar ik kan deze code niet gebruiken voor mijn lessen (maar ik kan er wel uit leren )
IK zal gebruik maken van u vorig code.

Ps. kunt u mij uitleggen wat .unbound , .resize , .tronspose doen (kan ik er later meer gebruik van maken )

Alvast bedankt voor de moeite en sorry voor mijn Nederlands ( ik ben Engelstalig van natuur )

 

[Warme bakkertje]

Ubound = bovenste grens v/e matrix
Resize = bereik uitbreiden naar bepaalde grootte
Transpose = vertikaal bereik of matrix omzetten naar horizontaal bereik en omgekeerd.
Al deze eigenschappen kan je terugvinden in de VBA-helpfiles.