Hallo!
Ich habe einen Code geschrieben (s.u.), der innerhalb eines Bereiches alle Leeren Zellen mit dem Wert darüber füllt (für Mengeneinheiten einer Preisliste).
Derzeit wird der Code auf Spalte 3 und 4 angewendet.
Er soll aber auch auf die Saplten 6 und 8-13 angewendet werden.
Ich kann den natürlich noch 7 mal kopieren und 7 weitere Zähler zuweisen aber lieber wäre mir, wenn ich den Spaltenindex auch als Variable definiere und dann die eine Programmierzeiele einfach für die 9 Zeilen druchlaufen lasse.
Ich weiß aber nicht, wie ich verschiedene Zahlen (für Spalten) nacheinander der Variablen zuweise.
Würden sie fortlaufend sein (z.B. Spalte C bis K) würde ich einfach "for k = 3 to 11" nehmen, aber leider hängen die Spalten nicht aneinander.
Danke im Voraus für Hinweise.
Der derzeitige Code (ohne Deklaration):
Set ActS = ActiveSheet
lastline = ActS.Cells(Rows.Count, 1).End(xlUp).Row
'Spalte C auffüllen
For i = 4 To lastline
If Cells(i, 3).Value = "" Then _
Cells(i, 3).Value = Cells(i - 1, 3)
Next i
'Spalte D auffüllen
For j = 4 To lastline
If Cells(j, 4).Value = "" Then _
Cells(j, 4).Value = Cells(j - 1, 4)
Next j