Schleife in VBA
13.08.2003 17:24:37
Achim
wie läuft folgende VBA als Schleife zum Ersetzen von
P1,P2, P3, P4, P5 usw als Schleife bis P500?
Bei 500 Blättern wird das Makro zu groß!
Mit jeder Reihe muß die Pnummer und die row nummer um 1 steigen! bis row=506,dann ende sub
Selection.Replace What:="P1", Replacement:="P2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("9:9").Select
Selection.Replace What:="P1", Replacement:="P3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("10:10").Select
Selection.Replace What:="P1", Replacement:="P4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("11:11").Select
Selection.Replace What:="P1", Replacement:="P5", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("12:12").Select
Selection.Replace What:="P1", Replacement:="P6", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("13:13").Select
Selection.Replace What:="P1", Replacement:="P7", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Rows("14:14").Select
Selection.Replace What:=" usw.
Danke Gruß Achim