Excel Vba code

Software die niet past in bovenstaande onderwerpen
Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 28 Okt 2016, 21:32

Screenshots lukken niet om te plaatsen.

In de vba editor kun je ergens een debug print of zo laten lopen om variabelen in een window te printen.
Ga daar eens verder mee klooien, maar eerst zoeken waar die window zit

Advertisement

Gebruikers-avatar
Berichten: 5043
Geregistreerd: 13 Mei 2013, 20:57
Woonplaats: Heemskerk

Re: Excel Vba code

Berichtdoor nicoverduin » 28 Okt 2016, 21:58

Je weet waar hij stukloopt omdat die geel is gekleurd.
Docent HBO Technische Informatica, Embedded ontwikkelaar & elektronicus
http://www.verelec.nl

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 28 Okt 2016, 22:00

Ja dat klopt en dat is op de regel waar ik HIER loopt het fout bijgeschreven heb
heb toch een screenshot gemaakt in Word maar hoe plak ik deze in dit vak?

Gebruikers-avatar
Berichten: 5043
Geregistreerd: 13 Mei 2013, 20:57
Woonplaats: Heemskerk

Re: Excel Vba code

Berichtdoor nicoverduin » 28 Okt 2016, 22:50

Dan kan je toch zien hoe die gevuld is?
Docent HBO Technische Informatica, Embedded ontwikkelaar & elektronicus
http://www.verelec.nl

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 28 Okt 2016, 23:14

Heb zitten zoeken,zij vult MaxSpeed met Nothing en dit is het probleem
Nu heb ik de declaratie verandert van Variant naar Long en de code loopt ,maar is niet juist omdat hij MaxSpeed de waarde
0,0 toekent
Eigenlijk zou ik willen declareren as Decimal maar dit aanvaard ze niet.
Het rare van de zaak is wanneer ik de sub uitvoer en daarna de module dat het lukt zonder problemen

De regel
MaxSpeed = WorksheetFunction.Max(Range("D2:" & "D" & CStr(lastrow)))
wordt blijkbaar niet goed uitgevoerd.(syntax?? maar daar krijg ik geen fouten op)

Gebruikers-avatar
Berichten: 5043
Geregistreerd: 13 Mei 2013, 20:57
Woonplaats: Heemskerk

Re: Excel Vba code

Berichtdoor nicoverduin » 29 Okt 2016, 08:39

Dat hij niets vindt verbaast me eigenlijk niet en verklaard de fout die je krijgt. Dat hoeft echter niet de oorzaak te zijn. Die ligt ervoor. Je moet sowieso de sheet waarop je werkt active maken. Immers nu is dat niet aangegeven. Vandaar mijn eerdere opmerking van die 2 regels die ervoor ontbreken. Daarnaast zoek je naar een Name. Die zou dus moeten voorkomen in die sheet waarop je deze functie wilt doen. Als die er niet is dan vindt hij niets en klopt de fout wederom.
Docent HBO Technische Informatica, Embedded ontwikkelaar & elektronicus
http://www.verelec.nl

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 29 Okt 2016, 09:41

Goed morgen Nico,

Het probleem kan ik natuurlijk omzeilen,
ik plaats een Call MaximumSpeed op het einde van imgBereken.
Dan lukt het wel goed maar eigenlijk is het zaakje dan niet opgelost en heb ik niets bijgeleerd.
Wat ik vandaag zal doen is ik neem er een bakje troost bij en schrijf de gehele Worksheet opnieuw zonder knippen en plakken
want daar sluipen de fouten in en hou rekening met je aanbevelingen.

Gebruikers-avatar
Berichten: 5043
Geregistreerd: 13 Mei 2013, 20:57
Woonplaats: Heemskerk

Re: Excel Vba code

Berichtdoor nicoverduin » 29 Okt 2016, 09:46

Niet mijn voorkeur(symptoom bestrijding) maar wat je wilt
Docent HBO Technische Informatica, Embedded ontwikkelaar & elektronicus
http://www.verelec.nl

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 29 Okt 2016, 09:56

Bedoel je dan verder pleuren met het bestaande?
Ik kies ook niet voor de oplossing met de Call instructie.
Maar de bedoeling is om mijn gedachten opnieuw te ordenen en alzo starten met een vers blad

Gebruikers-avatar
Berichten: 631
Geregistreerd: 15 Nov 2015, 11:54

Re: Excel Vba code

Berichtdoor Gij Kieken » 29 Okt 2016, 13:31

Nico, 'k heb hem
Dit heb ik gewijzigd,
vb code
'Bereken de Maximum snelheid
Worksheets("RpmAchteras").Select
Worksheets("RpmAchteras").Activate

lastrow = Sheets("RpmAchteras").Cells(Rows.Count, 4).End(xlUp).Row
MaxSpeed = Application.WorksheetFunction.Max(Worksheets("RpmAchteras").Range("D2:" & "D" & CStr(lastrow)))

'MaxSpeed = WorksheetFunction.Max(Range("D2:" & "D" & CStr(lastrow)))

Set BestSpeed = Application.Worksheets("RpmAchteras").Range("D2:" & "D" & CStr(lastrow)).Find(what:=MaxSpeed)
Set LapMaxSpeed = BestSpeed.Offset(0, -2)
valMaxSpeed = LapMaxSpeed.Value - 1 'Calculate Lap of TopSpeed

Worksheets("Lap Time").Select
Worksheets("Lap Time").Activate
lastrow = Sheets("Lap Time").Cells(Rows.Count, 1).End(xlUp).Row
Set rngTopSpeed = Range("B2:" & "B" & CStr(lastrow)).Find(what:=valMaxSpeed)

C/C++ vind ik al een ambetant taaltje wat betreft syntax
maar vba is er toch nog een schepje bovenop

Op naar de volgende uitdaging.

VorigeVolgende

Terug naar Overige Software

Wie is er online?

Gebruikers in dit forum: Geen geregistreerde gebruikers en 6 gasten