005
07.07.2005, 13:20 Uhr
Veasel
|
ich nehme mal an, dass deine pwortliste eine exceltabelle ist, dann schreibst ein makro was ca so lauten könnte...
| Visual Basic: |
Lz = Range("A65536").End(xlUp).Row 'letzte Zeile finden
Cells(Lz + 1, 1).Formula = "Ende" 'dort dann ENDE reinschreiben als Abbruchbedingung
I=0
z=1
Do Until Cells(z, 1).Value = "Ende"
If Cells(z, 1).Value = Cells(z + 1, 1).Value Then 'ist Zelle A1=A2; A2=A3;...
Cells(z + 1, 1).Select
Selection.Delete
z = z + 1
Else
z = z + 1
End If
Loop
|
oder so ähnlich!!! :-)
setzt vorraus, dass die passworte in der Spalte A stehen. Sonst mußt es noch anpassen...
z = aktuelle Zeile
hilft dir das weiter?
--
MFG Veasel |
