Goedenmorgen,
Hopelijk kan iemand mij helpen met het volgende probleem.
Onderstaande code werkt, tot zover geen probleem .
De bereiken die met deze code worden gedefinieerd die roep ik aan vanuit een ander excel document, door middel van een hyperlink/bookmark. Daarmee wordt het bestand geopend en bij het openen van het bestand wordt ook deze code gedraaid omdat ik deze heb opgenomen in de Workbook_open() routine. Dit omdat de bereiken kunnen varieren in het bestand en op deze manier is dat altijd actueel. Dit gaat allemaal goed totdat de code aankomt bij "ActiveWorkbook.Names.Add Name:=WOnr, RefersToR1C1:=Adres". Hierin volgt de volgende foutmelding:
Wanneer ik vervolgens op foutopsporing klik en vervolgens ook op F8 en F5 dan loopt de code gewoon door, dus er lijkt niets mis te zijn. Ik heb het al geprobeerd met "On error resume Next" maar dan worden de bereiken niet gedefinieerd. Dus de concrete vraag, hoe zorg ik er voor dat de code blijft werken zoals hij nu doet, maar dat ik de foutmelding niet meer krijg.
Alvast bedankt,
Patrick Brouwer
Hopelijk kan iemand mij helpen met het volgende probleem.
Onderstaande code werkt, tot zover geen probleem .
De bereiken die met deze code worden gedefinieerd die roep ik aan vanuit een ander excel document, door middel van een hyperlink/bookmark. Daarmee wordt het bestand geopend en bij het openen van het bestand wordt ook deze code gedraaid omdat ik deze heb opgenomen in de Workbook_open() routine. Dit omdat de bereiken kunnen varieren in het bestand en op deze manier is dat altijd actueel. Dit gaat allemaal goed totdat de code aankomt bij "ActiveWorkbook.Names.Add Name:=WOnr, RefersToR1C1:=Adres". Hierin volgt de volgende foutmelding:
Wanneer ik vervolgens op foutopsporing klik en vervolgens ook op F8 en F5 dan loopt de code gewoon door, dus er lijkt niets mis te zijn. Ik heb het al geprobeerd met "On error resume Next" maar dan worden de bereiken niet gedefinieerd. Dus de concrete vraag, hoe zorg ik er voor dat de code blijft werken zoals hij nu doet, maar dat ik de foutmelding niet meer krijg.
Code:
Sub NamenBenoemen()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim n As Name
Dim Adres As Variant
For Each n In ActiveWorkbook.Names
If Left(n.Name, 2) = "WO" Then n.Delete
Next n
Sheets("Regels").Select
Rij = 3
Do
If Cells(Rij, 1) = "x" Then
Else
WOnr = Cells(Rij, 1) & "_"
Start = Rij
Do
If Cells(Rij, 1) = Cells(Rij + 1, 1) Then
Rij = Rij + 1
End If
Loop Until Cells(Rij, 1) <> Cells(Rij + 1, 1)
Eind = Rij
Range(Cells(Start, 1), Cells(Eind, 1)).Select
Adres = "=Regels!R" & Start & "C1:R" & Eind & "C20"
ActiveWorkbook.Names.Add Name:=WOnr, RefersToR1C1:=Adres
End If
Rij = Rij + 1
Loop Until Cells(Rij, 1) = ""
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Alvast bedankt,
Patrick Brouwer
Laatst bewerkt door een moderator: