dim persnr as string
dim row as integer, row2 as integer
row = 2 'header nicht mitnehmen
row2 = 2
do while tabelle1.cells (row, 1) <> ""
persnr = tabelle1.cells (row, 1)
do while tabelle1.cells (row2, 1) <> ""
if tabelle1.cells (row2, 1) = persnr then
'zeile löschen (kenn den befehl nich ausm kopf, zur not n makro aufzeichnen...)
endif
row2 = row2 + 1
enddo
row = row + 1
enddo[/PHP]
so sähe das IMHO in VB aus, müsstest du nur noch für deine zwecke anpassen ( die 1 in dem cells befehl steht für die spalte) er sucht also die personalnummer in den spalten durch und wenn doppelte dabei sind löscht er sie (der teil muss noch gemacht werden, sollte aber nur ein kleiner befehl sein...)
ist aber nicht getestet und ich verweise mal auf die uhrzeit falls fehler drinstecken