Ik heb hier al heel wat vragen gesteld, en dacht dat mijn excelletje nu in orde was, maar er verschijnt een inputbox - opgeroepen door een macro - die ik niet wil.
Dit is de macro:
ActiveSheet.Unprotect "LoekaNomi2"
Range("I2") = Range("I2") + Range("B5").Value
Range("I5") = Range("I5") + Range("B7").Value
For t = 13 To 49
Range("H" & t) = Range("H" & t) + Range("C" & t)
Next
Range("E11,B7,E5,C13:C49").Select
Range("C13").Activate
Selection.ClearContents
Range("I1").Select
Dim pathnaam(2) As String
pathnaam(1) = "C:\Parochie"
pathnaam(2) = "D:\Parochie"
For i = 1 To 2
ActiveWorkbook.SaveAs pathnaam(i) & InputBox("parochiefeesten2018")
Next
ActiveSheet.Protect "LoekaNomi2"
End Sub
Als ik die uitvoer verschijnt er dus:
Aan de macro is te zien dat ik op 2 plaatsen opsla, maar ik wil niet dat de inputbox verschijnt. Kan ik dat stukje in de macro dan gewoon verwijderen (dit dus: & Inputbox("parochiefeesten2018") ?
Dit is de macro:
ActiveSheet.Unprotect "LoekaNomi2"
Range("I2") = Range("I2") + Range("B5").Value
Range("I5") = Range("I5") + Range("B7").Value
For t = 13 To 49
Range("H" & t) = Range("H" & t) + Range("C" & t)
Next
Range("E11,B7,E5,C13:C49").Select
Range("C13").Activate
Selection.ClearContents
Range("I1").Select
Dim pathnaam(2) As String
pathnaam(1) = "C:\Parochie"
pathnaam(2) = "D:\Parochie"
For i = 1 To 2
ActiveWorkbook.SaveAs pathnaam(i) & InputBox("parochiefeesten2018")
Next
ActiveSheet.Protect "LoekaNomi2"
End Sub
Als ik die uitvoer verschijnt er dus:
Aan de macro is te zien dat ik op 2 plaatsen opsla, maar ik wil niet dat de inputbox verschijnt. Kan ik dat stukje in de macro dan gewoon verwijderen (dit dus: & Inputbox("parochiefeesten2018") ?