verwijzing in macro relatief maken

[nmeijer]

Beste,

Ik heb bijgevoegd bestand en bijbehorende macro die ik voor mijn werk gebruik. Ik weet allleen niet precies hoe deze werkt .
waar ik nu tegenaanloop is dat ik de namen voor de grafiek niet veranderd kunnen worden, hoe doe ik dat?
En hoe zorg ik ervoor dat de gegevens die ik in de tabel invoer automatisch worden aangepast? Nu moet ik eerst alles verwijderen voordat ik een vroegere tijd kan gebruiken.

Bvd,
Niels

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  ' If Target.Value <> "" Then
  
  Dim Lastcol As Integer
  Dim rij As Integer
  Dim VergelijkRij As Integer
  Dim beginkolom As Integer
  Dim eindkolom As Integer
  
  VergelijkRij = 2
  
  rij = Target.Row
  rij2 = Target.Row
  rij2 = rij2 - 18
  
  
  Lastcol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
  
  For c = 3 To Lastcol
    If Left(Cells(2, c), 5) = Left(Cells(rij, "C"), 5) Then
      beginkolom = c
      'Range("A2").Value = beginkolom
      
    End If
  Next c
  
  For d = 3 To Lastcol
    If Right(Cells(2, d), 5) = Left(Cells(rij, "D"), 5) Then
      eindkolom = d
      'Range("A2").Value = beginkolom
      
    End If
  Next d
  
  If eindkolom > 0 And beginkolom > 0 Then
    
    For e = beginkolom To eindkolom
      Cells(rij2, e).Interior.ColorIndex = 16
    
    
    Next e
  Else
  ' er is geen eindkolom, alleen de eerste invullen
    For c = 3 To Lastcol
      Cells(rij2, c).Interior.ColorIndex = xlNone
    Next c
  End If
  
  
  
' End If

  
End Sub

Private Sub Macro1()
  Application.EnableEvents = True
End Sub

 

[Elsendoorn2134]

Aanpassen Macro.

Niels,

Ik heb de macro wat aangepast, zo heb ik beschreven wat de macro precies doet.
Je kunt de namen voor de grafiek alleen aanpassen als je dat ook doet in de lijst onder de grafiek.
De macro kijkt namelijk niet naar de naam voor de genoteerde tijden maar gaat gewoon 18 regels
naar boven en gaat er van uit dat daar dezelfde naam staat.

Verder heb ik de macro zo ingesteld dat hij alleen als er tijden worden uitgevoerd de grafiek aanpast.
Hierdoor kan je gewoon andere tijden invoeren.

Veel Succes.

Bekijk bijlage HelpMijLoodsbezetting.xls

 

[nmeijer]

bedankt, zo kom ik er wel uit