TextBox um eine Zelle erhöhen
08.02.2004 18:20:25
Volker
Ich habe folgenden Code der mir die Werte von einer Zelle (z.B. A1) wiedergibt, die ich in eine TextBox1 mit A1 TextBox2 mit B1 eingegeben habe.
...
Me.TextBox1.Value = Range(Me.TextBox1.Value).Value
a = Me.TextBox1.Value
Me.TextBox2.Value = Range(Me.TextBox2.Value).Value
b = Me.TextBox2.Value
Dann rechne ich den Average der zwei Zahlen aus mit
ActiveCell.FormulaR1C1 = Application.WorksheetFunction.Average(a, b)
Nun will ich die Zellen um jeweils eine Zelle erhöhen, also aus A1->A2 und aus B1->B2 aber wie mache ich das???
In Excel selbst kann ich einfach das Formelergebnis in der linken unteren Zellecke anklicken und nach unten ziehen und somit werden die weiteren Zellen automatisch ausgefüllt aber mit dem Ergebnis im VBA geht das leider nicht.
Kann mir jemand weiterhelfen?
Ich bräuchte also eine Alternative für
Selection.AutoFill Destination:=Range("..."), Type:=xlFillDefault