dringendes VBA Problem, bitte Beschreibung lesen
01.12.2004 18:45:54
Christine
Habe folgenden VBA Code, der auch gut funktioniert und mir in Spalte B die Kalenderwoche des Datums in Spalte A einträgt.
Ich möchte nun aber festlegen, dass es nicht bis Spalte B30 ausfüllt, sondern so lange wie in Spalte A ein Datum steht.
Mit Range B1:B65536 geht es auch nicht, da dann jede Zelle in Spalte B 1 enthält, auch wenn in A schon lange kein Datum mehr steht.
Hier der Code:
Private Sub CommandButton1_Click() Range("B1").Select ActiveCell.FormulaR1C1 = "=WeekNum(RC[-1],2)" Range("B1").Select Selection.AutoFill Destination:=Range("B1:B30"), Type:=xlFillDefault Range("B1:B30").Select End Sub
Wär super, wenn ihr mir helfen könntet.
Vielen Dank
Christine