1 macro met dimensie die wordt gebruikt bij andere macros

Status
Niet open voor verdere reacties.

Lexie1982

Nieuwe gebruiker
Lid geworden
8 okt 2020
Berichten
2
Ik ben een Excelsheet aan het automatiseren waar ik meerdere boekingen exporteer. dat wil ik doen met VBA
ik wil dat graag doen dmv één macro waar ik alle dimensies benoem.
ik zou dan in de specifieke macros voor de boekingen willen verwijzen naar de macro waar alle dimensie in benoemd zijn.

Ik heb daar voor de run optie en call optie geprobeerd hij neemt echter de gegevens dan niet over.

Ik kom er niet uit. wie heeft een tip?
 
Code

Sub Dimensies()
'
' Dimensies Macro
'
'In deze routine wordt verwezen naar de bestandsnamen en locaties waar de boekingen opgeslagen moeten worden.
'
Calculate

'Eerst worden er dimensies benoemd die later gebruikt gaan worden
Dim Filename As String
Dim PathExcel1 As String
Dim PathExcel2 As String


Dim Path1 As String
Dim Path2 As String

Dim SheetBoeking1 As String
Dim SheetBoeking2 As String

Dim BsnrBoeking1 As String
Dim BsnrBoeking2 As String

'Hieronder staat de verwijzing naar waarden in de sheet die een dimensie zijn
Filename = Worksheets("Control Blad").Range("B5")
PathExcel1 = Worksheets("Control Blad").Range("B6")
PathExcel2 = Worksheets("Control Blad").Range("B6")

Path1 = Worksheets("BOEKING template").Range("O3")
Path2 = Worksheets("BOEKING").Range("P58")

SheetBoeking1 = "BOEKING template"
SheetBoeking2 = "BOEKING"


BsnrBoeking1 = Path & Worksheets("BOEKING template").Range("O4")
BsnrBoeking2 = Path & Worksheets("BOEKING").Range("P59")


End Sub
 
Declareer je variabelen Buiten de Sub.
Gebruik dan eventueel ook Public in plaats van Dim.
 
Door die splitsing maak je het jezelf onnodig moeilijk.
Toon eens zo'n exportmacro.
Reduceer het aantal te gebruiken variabelen tot een minimum.
En lees ook nog eens de basisbeginselen van VBA door.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan