Met macro gegevens plaatsen op niet active tabblad

[Paul-RT]

In een werkend document wordt met een code automatisch een klantnummer aangemaakt in een cel, op een active blad tijdens het openen van het document.
Nu wil ik, op een niet actief tabblad van hetzelfde document in 1 cel dat zelfde nummer plakken.

Hoe verwerk ik dat in de volgende code?
Het gaat om het 2e deel ervan ("Locatie gegevens")
Ik open dat tabblad niet, daar worden met een ander document alleen gegevens uit opgehaald.

Private Sub Workbook_Open()
  Dim kn As Integer
  
  kn = 2
  With ActiveWorkbook.Sheets("KlantenRECR")
    Do
      kn = kn + 1
      If IsEmpty(.Range("H" & kn)) Then .Range("E" & kn) = "REC" & Format(Date, "yymm") & Format(kn - 3, "000"): .Range("H" & kn).Select: Exit Do
    Loop
  End With
  

  With ActiveWorkbook.Sheets("Locatie gegevens")
      Range("C22") = "REC" & Format(Date, "yymm") & Format(kn - 3, "000")
  End With
End Sub

 

[Wigi]

Ik vermoed dat je het . (punt) vóór Range("C22") vergeten bent.

 

[Paul-RT]

Wigi, je bent weer fantastisch !

Vergeten? Eerder onwetend.....
Ik klooi maar wat met die code's en probeer een en ander met elkaar te mixen.
Meeste code's komen van jou en Richard.

Maareh, het werkt weer :thumb:
Ik puzzel weer verder