Range
27.05.2008 16:37:30
hary
Hier nur ein Auszug aus dem Makro.
In D1 wir eine Zahl per Formel ausgegeben(hier z.B. 4), ist aber veraenderbar. Mit der IF oder der Case Anweisung klappt es. Nun suche ich nach einer Moeglichkeit(wegen der vereinfachung) in der Zeile Range, B8 so geaendert wird, dass die Zelle ausgerechnet wird nach dem Motto: B4 plus Anzahl
Anzahl = Range("D1")
If Anzahl = 4 Then
For iAct = 1 To 4
iCounter = iCounter + Anzahl
Range("b5:b8").Copy Cells(iCounter, 8)
Next iAct
Habe schon im Archiv nachgesehen, aber wahrscheinlich die falschen Schluesselwoerter benutzt.
Gruss Hary
Anzeige