Macro geeft geen fout maar werkt niet
Geplaatst: vr okt 28, 2016 4:01 pm
Hallo allen
Ik klop hier weer eens aan omdat ik er niet uit kom (kennis van StarBasic is ontoereikend)
Het probleem: ik probeer een macro te maken met als doel het berekenen van bepaalde kosten wanneer men een nieuwe maand ingaat
Dus als ik op de button druk "nieuwe maand" dan worden allerlei bedragen gekopieerd naar de nieuwe maand maar er moet ook gerekend worden.
Voor als de vraag komt, de button kan maar 1 keer per maand worden gebruikt dan word deze disable.
In de onderstaande macro staat een vast bedrag in E9 (mk_1) en nu moet F9 telkens wanneer de macro wordt gebruikt worden opgehoogd met E9 (mk_1), maar wat is er nu fout
Met VBA is het voor mij geen probleem alleen loopt de rest in de soep omdat ik "Option VBASupport 1" gebruik, maar zo lukt het mij wel.
Graag een tip van jullie kant.
Ik klop hier weer eens aan omdat ik er niet uit kom (kennis van StarBasic is ontoereikend)
Het probleem: ik probeer een macro te maken met als doel het berekenen van bepaalde kosten wanneer men een nieuwe maand ingaat
Dus als ik op de button druk "nieuwe maand" dan worden allerlei bedragen gekopieerd naar de nieuwe maand maar er moet ook gerekend worden.
Voor als de vraag komt, de button kan maar 1 keer per maand worden gebruikt dan word deze disable.
In de onderstaande macro staat een vast bedrag in E9 (mk_1) en nu moet F9 telkens wanneer de macro wordt gebruikt worden opgehoogd met E9 (mk_1), maar wat is er nu fout
Code: Selecteer alles
Sub OptellenJaarkosten
Dim mk_1 as String
Dim Range as string
Doc = ThisComponent
Sheets = Doc.Sheets()
Sheet = Sheets.getByName("Jaarkosten")
mk_1 = Range("E9")
Range("F9") = Range("F9") +mk_1
mk_2 = Range("E10")
Range("F10") = Range("F10") +mk_2
End sub
Code: Selecteer alles
Option VBASupport 1
Sub OptellenJaarkosten
mk_1 = Sheets("Jaarkosten").Range("E9")
Sheets("Jaarkosten").Range("F9") = Sheets("Jaarkosten").Range("F9") +mk_1
mk_2 = Sheets("Jaarkosten").Range("E10")
Sheets("Jaarkosten").Range("F10") = Sheets("Jaarkosten").Range("F10") +mk_2
End sub