Autofüllen automatisieren
05.08.2008 18:45:30
Christian
ich habe eine Excel Datei die wie folgt aufgebaut ist
A
1 123
2
3
4
5 678
6
7
8 247
9
10 369
11
12
13
Nun möchte ich, dass die Felder zwischen 2 Zahlen mit der ersten Zahl automatisch gefüllt wird, so dass nachher das Ergebnis wie folgt aussieht.
A
1 123
2 123
3 123
4 123
5 678
6 678
7 678
8 247
9 247
10 369
11 369
12 369
13 369
Normalerweise macht Autofüllen das ja soweit ganz gut. Also auf die Zahl raufklicken dann doppelklick und schon werden die Zellen bis zur nächsten Zahl gefüllt. Das möchte ich gerne automatisieren. Ich habe schon versucht ein Makro aufzunehmen, leider ohne Erfolg?
Nun hatte ich die Idee, dass mit VBA zu lösen, in dem ich eine Schleife schreibe. Meine Idee wäre wie folgt:
Eine Schleife, die das Feld abfragt und mit dem nächsten vergleicht. Wenn das Feld leer ist, soll der Wert des vorigen Feldes reingeschrieben werden. Wenn das Feld nicht leer ist soll der neue Wert der Zelle gespeichert werden und die Schleife neu durchlaufen werden.
Ich weiß leider nicht ganz genau, wie ich das realisieren kann.
Wie kann ich einen Schleifendurchlauf von A1 - A52000 realisieren?
Vielen Dank im Voraus für die Hilfe
Martin