Hieronder zie je wat VBA-code die ik aan het schrijven ben.
Workbooks.Open pad & "/docent.xls"
pad = Left(pad, Len(pad) - 9)
pad = pad & "/verzenden/"
Workbooks("docent.xls").Worksheets("invullen").Activate
Application.DisplayStatusBar = True
For rij = EersteNaam To LaatsteNaam
ActiveSheet.Cells(1, 1).Value = Personeelsleden(rij)
ActiveSheet.Cells(5, 3).Value = WtfPerPersoon(rij)
ActiveWorkbook.SaveCopyAs pad & Personeelsleden(rij) & ".xls"
Application.StatusBar = Personeelsleden(rij)
Next rij
In docent.xls is er een invulveld cell(6,3) waarin gekozen kan worden uit een lijst getallen. De lijst is ingevoerd als 0,25;0,50;0,75 enz. De komma is als nederlandse komma bedoeld en de puntkomma is het scheidingsteken. In de werkboeken die bewaard worden (2 na laatste regel) is de lijst veranderd. De komma's zijn verdwenen en zijn nu verandert in scheidingstekens. Ik gebruik Excel2003 NL.
Wie weet hoe dit opgelost moet worden?
Workbooks.Open pad & "/docent.xls"
pad = Left(pad, Len(pad) - 9)
pad = pad & "/verzenden/"
Workbooks("docent.xls").Worksheets("invullen").Activate
Application.DisplayStatusBar = True
For rij = EersteNaam To LaatsteNaam
ActiveSheet.Cells(1, 1).Value = Personeelsleden(rij)
ActiveSheet.Cells(5, 3).Value = WtfPerPersoon(rij)
ActiveWorkbook.SaveCopyAs pad & Personeelsleden(rij) & ".xls"
Application.StatusBar = Personeelsleden(rij)
Next rij
In docent.xls is er een invulveld cell(6,3) waarin gekozen kan worden uit een lijst getallen. De lijst is ingevoerd als 0,25;0,50;0,75 enz. De komma is als nederlandse komma bedoeld en de puntkomma is het scheidingsteken. In de werkboeken die bewaard worden (2 na laatste regel) is de lijst veranderd. De komma's zijn verdwenen en zijn nu verandert in scheidingstekens. Ik gebruik Excel2003 NL.
Wie weet hoe dit opgelost moet worden?