Versuch es mal so:
Sub WennDann()
Aaaaabeeerrrrrr :-))
Da Du NICHT angegeben hast...
a)...welche Zelle die ZIELZELLE ist
b)...wieviel Durchl?ufe denn die Schleife machen soll
musst Du...
zu a)...in ALLEN Eintr?gen die Zelle A1 gegen DIE Zelle tauschen, wenn A1 nicht Ziel sein soll
zu b)...musst Du in der Zeile "For liZl = 3 to 20" die "20" gegen DIE Zahl tauschen, die dann angibt,wie oft der Durchlauf durchgef?hrt werden soll
Weiterhin hab ich diesen Code "nur" aufgeschrieben, aber NICHT testen k?nnen, weil ich ja keine Wert-Vorgaben von Dir habe.
Nun aber, viel Erfolg :-)
eine R?ckmeldung w?re auch bei Erfolg nett, da der Aufwand auch OHNE Testen nicht gering war ;-)
Ciao
Thorsten