Hallo,
Ik zoek een manier om onderstaande code te halen totdat er geen "einde" meer voorkomt in mijn bestand.
Helaas kom ik er zelf niet uit.
Wie zou mij kunnen helpen?
Ik zoek een manier om onderstaande code te halen totdat er geen "einde" meer voorkomt in mijn bestand.
Helaas kom ik er zelf niet uit.
Wie zou mij kunnen helpen?
Code:
Cells.Find(What:="Einde", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Tot"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Tijd"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Incl Pauze"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Excl Pauze"
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "Van"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Tot"
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "Van"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Tot"