Excel Vba code
21 berichten
• Pagina 2 van 3 • 1, 2, 3
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
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
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
- nicoverduin
- Berichten: 5043
- Geregistreerd: 13 Mei 2013, 20:57
- Woonplaats: Heemskerk
Re: Excel Vba code
Je weet waar hij stukloopt omdat die geel is gekleurd.
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
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?
heb toch een screenshot gemaakt in Word maar hoe plak ik deze in dit vak?
- nicoverduin
- Berichten: 5043
- Geregistreerd: 13 Mei 2013, 20:57
- Woonplaats: Heemskerk
Re: Excel Vba code
Dan kan je toch zien hoe die gevuld is?
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
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)
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)
- nicoverduin
- Berichten: 5043
- Geregistreerd: 13 Mei 2013, 20:57
- Woonplaats: Heemskerk
Re: Excel Vba code
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.
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
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.
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.
- nicoverduin
- Berichten: 5043
- Geregistreerd: 13 Mei 2013, 20:57
- Woonplaats: Heemskerk
Re: Excel Vba code
Niet mijn voorkeur(symptoom bestrijding) maar wat je wilt
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
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
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
- Gij Kieken
- Berichten: 632
- Geregistreerd: 15 Nov 2015, 11:54
Re: Excel Vba code
Nico, 'k heb hem
Dit heb ik gewijzigd,
vb code
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.
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.
21 berichten
• Pagina 2 van 3 • 1, 2, 3
Wie is er online?
Gebruikers in dit forum: Geen geregistreerde gebruikers en 0 gasten