declaratie variabele wijzigen

[duco243]

opgelost

 

[edmoor]

Je verteld niet wat er mis gaat, maar de opdracht Set Blad = Nothing zal in ieder geval fout gaan omdat blad een string variabele is en niet een object.
De variabele "blad" kun je direct een andere waarde geven zonder deze eerst leeg te maken.

 

[duco243]

Edmoor bedankt voor je snelle reactie.
Ik wilde de vraag snel weghalen omdat ik al een oplossing vond door steeds naar een nieuwe macro te verwijzen.


zo dus:

Dim Filename1 As String
Dim Blad As String
Dim Uren As String


Blad = "A1"
Uren = (Blad & " 1.xls")

Const FilePath = "C:\Users\duco\Documents\"

'ScreenUpdating = False
Filename1 = ActiveWorkbook.Name
Windows(Filename1).Activate
Sheets(Blad).Select
Rows("75:125").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
'-------------------------------------------------------------------------------------------------------
Workbooks.Open FileName:=Dir(FilePath & Uren)
Cells.Select

' data kopieren van "A1 1.xls" naar actieve blad

macro2

end sub

-------------------
sub macro2()

Dim Filename1 As String
Dim Blad As String
Dim Uren As String


Blad = "B1"
Uren = (Blad & " 1.xls")

Const FilePath = "C:\Users\duco\Documents\"

'ScreenUpdating = False
Filename1 = ActiveWorkbook.Name
Windows(Filename1).Activate
Sheets(Blad).Select
Rows("75:125").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
'-------------------------------------------------------------------------------------------------------
Workbooks.Open FileName:=Dir(FilePath & Uren)
Cells.Select

' data kopieren van "B1 1.xls" naar actieve blad



Maar als volgens jou dat overgaan naar een andere macro niet nodig is dan wil ik graag weten hoe het dan zou moeten
Met de volgende oplossing werk het niet:


Dim Filename1 As String
Dim Blad As String
Dim Uren As String


Blad = "A1"
Uren = (Blad & " 1.xls")

Const FilePath = "C:\Users\duco\Documents\"

'ScreenUpdating = False
Filename1 = ActiveWorkbook.Name
Windows(Filename1).Activate
Sheets(Blad).Select
Rows("75:125").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
'-------------------------------------------------------------------------------------------------------
Workbooks.Open FileName:=Dir(FilePath & Uren)
Cells.Select

' data kopieren van "A1 1.xls" naar actieve blad

Blad = "B1" '<----------------------variabele wordt hier opnieuw gedeclareerd

'-------------------------------------------------------------------------------------------------------
Workbooks.Open FileName:=Dir(FilePath & Uren)
Cells.Select

' data kopieren van bestand "B1 1.xls" naar actieve blad

 

[edmoor]

Prima, maar 1 ding qua naamgeving. Die variabele wordt daar niet opnieuw gedeclareerd maar van een andere waarde voorzien. Het declareren van de variabele heb je al eerder gedaan met de Dim opdracht.