problem mit schleife
20.03.2007 11:47:00
daniel
will folgenden code als schleife realisieren:
(wobei sich lediglich die fett dargestellten stellen jeweils um 1 erhöhen (von 1 auf, von b auf c usw.)
hab es schon ohne schleife versucht, aber der code wird dann zu lang (mehr als 64kb).
bin für jede hilfe dankbar.
gruß daniel
'schreibt den namen des quotienten in zeile A84'
'und soll nur ein mal durchlaufen'
'1. Quotient'
Range("A84").Select
ActiveCell.FormulaR1C1 = "AC C0 / (C16 + C18)"
'folgendes soll alles einmal durchlaufen (bis z.b. DD), fett dargestelltest ändert sich um einen wert'
'1'
Columns("A:A").Select
Selection.Find(What:="c 0").Activate
ActiveCell.Offset(0, 1).Range("A1").Select 'beim nächsten durchlauf 2'
ActiveCell.Copy ([b85]) 'beim nächsten durchlauf c'
Columns("A:A").Select
Selection.Find(What:="c16").Activate
ActiveCell.Offset(0, 1).Range("A1").Select 'beim nächsten durchlauf 2'
ActiveCell.Copy ([b86]) 'beim nächsten durchlauf c'
Columns("A:A").Select
Selection.Find(What:="c18").Activate
ActiveCell.Offset(0, 1).Range("A1").Select 'beim nächsten durchlauf 2'
ActiveCell.Copy ([b87]) 'beim nächsten durchlauf c'
Range("B84").Select 'beim nächsten durchlauf c'
ActiveCell.FormulaR1C1 = "=R[1]C/(R[2]C+R[3]C)"
Range("B85").Select 'beim nächsten durchlauf c'