frage zu schleifen
19.03.2007 12:19:01
daniel
ich möchte folgenden Code (mit Markorecorder erzeugt) als Schleife via vba realisieren.
hierbei ändern sich jeweils immer nur die hier fett dargestellten zellbezüge/Spalten (also erst B85, C85, D85 ... bis zur 1. Spalte in der die erste zelle leer ist) und die Offset Option ( ActiveCell.Offset(0, 1).Range("A1").Select) von Offset(0, 1) auf Offset(0, 2) usw...)
habe mir die do loop schleife angeschaut, komme aber leider nicht recht weiter -
bitte um hilfe.
danke
gruß daniel
Columns("A:A").Select
Selection.Find(What:="c 0", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Copy ([b85])
Columns("A:A").Select
Selection.Find(What:="c16", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Copy ([b86])
Columns("A:A").Select
Selection.Find(What:="c18", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Copy ([b87])
Range("B84").Select
ActiveCell.FormulaR1C1 = "=R[1]C/(R[2]C+R[3]C)"
Range("B85").Select