[vba, word & excel] blijft maar komen met with

[Jarcol]

Ik heb een beetje raar probleem,

de ene keer gaat dit goed:

Dim wshF
Set xlsF = CreateObject("Excel.Application")
Set wkbF = xlsF.Workbooks.Open("O:\02 Applicatiebeheer\001 Documentatie\" & cobCategorie.Value & "\" & cboBetreft.Value & "\paspoort.xls")
wkbF.Worksheets("Paspoort").Activate

'With ActiveSheet
ActiveSheet.Range("E" & LastRow).Replace What:="=A", Replacement:="=A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


'End With
ActiveWorkbook.Save
xlsF.Workbooks.Close: Set xlsF = Nothing
Set wkbF = Nothing

en de volgende keer niet.
Als het niet goed gaat krijg ik de melding 'Objectvariabele of blokvariabele With niet ingesteld'

Als ik de quotes bij With en End With weg haal is het precies andersom maar krijg ik wel dezelfde foutmelding.

Weet iemand waar dit aan ligt?

 

[Jan van Asseldonk]

Dit is maar een stukje uit je code, probleem kan al eerder of later staan.
Kun je de volledige code plaatsen of een voorbeeldbestanje (zonder prive gegevens) gezipt hier plaatsen?

 

[Jarcol]

Dit is maar een stukje uit je code, probleem kan al eerder of later staan.
Kun je de volledige code plaatsen of een voorbeeldbestanje (zonder prive gegevens) gezipt hier plaatsen?

Het doet het al...

Wat heb ik gedaan:

Set xls = CreateObject("Excel.Application")
Set wkb = xls.Workbooks.Open("O:\02 Applicatiebeheer\001 Documentatie\" & cobCategorie.Value & "\" & cboBetreft.Value & "\paspoort.xls")
wkb.Worksheets("Paspoort").Activate

With ActiveSheet
wkb.ActiveSheet.Range("E" & LastRow).Replace What:="=A", Replacement:="=A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'wkbF.ActiveSheet.Cells.Replace What:="=A", Replacement:="=A", LookAt:=xlPart, SearchOrder _
 '       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End With
'wkb.Worksheets.Close
wkb.Save
'xlsF.DisplayAlerts = False
xls.Workbooks.Close: Set xls = Nothing
Set wkb = Nothing

dus alles gewoon helemaal uit benoemd

 

[Jan van Asseldonk]

Dan mag je het nog even op opgelost zetten.