• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

hoogste waarde in ene kolom zoeken

Status
Niet open voor verdere reacties.
R

rocknroadie

Gebruiker
Lid geworden
5 sep 2016
Berichten
184
Hallo,

hoe kan ik in vba de hoogste waarde in een kolom zoeken? ik heb een tabel. in die tabel is een kolom "ID" hoe kan ik gaan zoeken wat het hoogste ID nummer is? de tabel zal niet altijd op ID Nummer gesorteerd staan, vandaar mijn vraag.

de bedoeling is uiteindelijk om een nieuwe lijn via een form in vba te kunnen gaan toevoegen én bewaren via vba.... zie excelbestand in bijlage. eens ik de hoogste waarde in mijn kolom ID weet kan ik die waarde met 1 gaan verhogen en die in mijn variabele ID gaan zetten en dat wordt dan het ID nummer van de nieuwe venue.

ik heb voor het ingeven van de gegevens die in de tabel moeten komen te staan een formulier gemaakt.

het is de bedoeling dus dat wanneer je op save klikt, de gegevens uit het formulier in de tabel opgeslagen worden op een nieuwe lijn....

hoe kan ik via vba gegevens gaan opslaan op een nieuwe lijn in mijn tabel? ook daar ga ik vermoedelijk met een variabele moeten gaan werken die met het rijnummer overeenkomt of zo maar ik geraak er niet wijs uit

hopelijk kan er iemand mij helpen.....

Bekijk bijlage venuelijstvba.xlsm
 
Laatst bewerkt:
Code: 
application.max
 
harry,

dank voor de tip, ik ga er mee aan de slag. nog iemand een tip hoe ik de data kan gaan wegschrijven op een nieuwe lijn in de tabel?
 
hmmmmm...

volgens wat ik vond op het internet zou dit de juiste manier moeten zijn:

Code: 
Option Explicit
Dim id As Integer
Dim answer As String
Dim rng As Range


Private Sub UserForm_Initialize()
Set rng = Worksheets("blad1").Range("A6:A1000")
id = Application.WorksheetFunction.Max(rng)
End Sub

maar toch blijft de inhoud van de variabele ID = 0


.....
 
Je moet je zogenaamde getallen vermenigvuldigen met 1, het is nl. tekst.

Code: 
Private Sub UserForm_Initialize()
'eerst moet de hoogste reeds bestaande id nummer gezocht worden in de tabel Venuegegevens, daar oet 1 bij opgeteld worden en dat wordt dan de nieuwe IDnummer
Dim id As Long
Dim rng As Range


Set rng = Worksheets("blad1").Range("A6:A1000")
id = Application.Max(rng)
End Sub
 
Laatst bewerkt:
ik vrees dat ik niet volledig kan volgen Harry....

ik heb de "cel eigenschap" van de betrokken kolom op "getal" gezet

ik heb de code toegepast zoals je ze plaatste en nog blijft de variabele id de waarde 0 behouden
 
Laatst bewerkt:
De ID nummer is als text geformateerd.
Dus zou ik de volgende matrix formule gebruiken onde het blokje Initialize:
PHP: 
T1.Value = Evaluate("=MAX(VALUE(A6:A99999))") + 1
 
Code: 
T1 = Application.Max(Columns(1))+1
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan