Excel Vba formules doorvoeren

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

Excel Vba formules doorvoeren

Berichtdoor Gij Kieken » 13 Sep 2017, 11:02

Ik werk met Ms Excel 2007.
Voor data loging , Arduino Uno Rev3 naar Excel 2007 via Usb wil ik een aantal zaken automatiseren via Vba code.
Ik heb het probleem herleid tot 1 test-werkblad waarbij ik een Module invoeg.
Bij het invullen van een formule, Product van de waarde in een cel met een getal loopt het fout. (Fout 1004)
Met de formule Som lukt het wel.
Wat zie ik over het hoofd of doe ik verkeerd?
Bijgevoegd de Vba code, deze is gecomentarieëerd.
Code: Alles selecteren
Sub Vermenigvuldigen_doorvoeren()
Dim rmax

'Activeer Blad1
Worksheets("Blad1").Activate

'Wis het blad
Range("A1:B20").Value = Null
Range("C3:C20").Value = Null

'Vul de Headers in rij1
Range("A1").Value = "Getallen"
Range("B1").Value = "Som"
Range("C1").Value = "Product"

'Vul kolom A met getallen
For i = 2 To 20             'We starten bij rij 2, rij 1 zijn de Headers
Range("A" & i).Value = i - 1
Next i

'Bepalen van de laatst gebruikte rij in kolom A
rmax = Range("A:A").SpecialCells(xlCellTypeLastCell).Row

'Formule in Cell plaatsen
Worksheets("Blad1").Cells(2, 2).Formula = "=Sum(A2:A3)"
'Worksheets("Blad1").Cells(2, 3).Formula = "=PRODUCT(A2;3)" 'Deze regel geeft fout 1004
'Als ik handmatig de formule <=PRODUCT(A2;3)> ingeef in cel C2 dan werkt het wel

'Formule Som doorvoeren
Set SourceRange = Worksheets("Blad1").Range("B2")
Set fillRange = Worksheets("Blad1").Range("B2:B" & rmax)
SourceRange.AutoFill Destination:=fillRange

'Formule Product doorvoeren
Set SourceRange = Worksheets("Blad1").Range("C2")
Set fillRange = Worksheets("Blad1").Range("C2:C" & rmax)
SourceRange.AutoFill Destination:=fillRange

'Geef de laatst gebruikte rij terug in berichtvenster
MsgBox ("De laatste gebruikte rij " & rmax)

End Sub

Advertisement

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

Re: Excel Vba formules doorvoeren

Berichtdoor Gij Kieken » 11 Okt 2017, 21:16

Opgelost
Worksheets("Blad1").Cells(2, 3).Formula = "=PRODUCT(A2,3)"

Berichten: 2179
Geregistreerd: 16 Okt 2013, 14:31
Woonplaats: s hertogenbosch

Re: Excel Vba formules doorvoeren

Berichtdoor shooter » 12 Okt 2017, 22:50

klein foutje, maar ach, ook voor excel net als voor arduino gebruik ik een cheat sheet
paul deelen
shooter@home.nl

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

Re: Excel Vba formules doorvoeren

Berichtdoor Gij Kieken » 13 Okt 2017, 12:43

Ja ik keek er gewoon over.
Des te meer als je de ingebouwde functies gebruikt (bovenaan de werkbalk f(x)) is de syntax met punt comma.

Terug naar Overige Software

Wie is er online?

Gebruikers in dit forum: Geen geregistreerde gebruikers en 1 gast