3 gleiche parameter in 3 Zellen schreiben lassen: Fehlersuche

17/09/2008 - 14:57 von kai | Report spam
Hallo,

ich finde da meinen Fehler nicht. Ich habe den folgenden Code eingebaut:

dim k as long
dim k2 as long


k2 = 5
For k = 2 To 91 Step 3
' drei Formeln mit gleichem Parameterbezug auf einmal schreiben
.Cells(k, "M").Resize(3, 1).Formula = "=K" & k & "*Parameter!E$"
& k2
k2 = k + 1
Next k
.Range("M2:M91").AutoFill Destination:=Range("M2:M" & LRow)

An sich sollte das Resultat dann im Excelsheet in der Spalte M das folgende
sein:

=K2*Parameter!E$5
=K3*Parameter!E$5
=K4*Parameter!E$5

=K5*Parameter!E$6
=K6*Parameter!E$6
=K7*Parameter!E$6

=K8*Parameter!E$7
=K9*Parameter!E$7
=K10*Parameter!E$7

etc.

aber bei mir erscheint folgendes:

=K2*Parameter!E$5
=K3*Parameter!E$5
=K4*Parameter!E$5

=K5*Parameter!E$3
=K6*Parameter!E$3
=K7*Parameter!E$3

=K8*Parameter!E$6
=K9*Parameter!E$6
=K10*Parameter!E$6

Kann mir jemand sagen, warum?
Excel 2007
 

Lesen sie die antworten

#1 Claus Busch
17/09/2008 - 15:08 | Warnen spam
Hallo Kai,

Am Wed, 17 Sep 2008 05:57:47 -0700 schrieb kai:

k2 = 5
For k = 2 To 91 Step 3
' drei Formeln mit gleichem Parameterbezug auf einmal schreiben
.Cells(k, "M").Resize(3, 1).Formula = "=K" & k & "*Parameter!E$"
& k2
k2 = k + 1


^^^^^^^^^^^^^^^^^^^

sollte heißen:
k2 = k2 + 1


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen