Schleife in VBA

Forumthread: Schleife in VBA

Schleife in VBA

13.08.2003 17:24:37

Achim

Hallo,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife in VBA

13.08.2003 17:37:23

ChrisL
AW: Schleife in VBA

13.08.2003 17:39:51

Ramses
AW: Schleife in VBA

14.08.2003 17:01:27

Achim
AW: Schleife in VBA

13.08.2003 17:40:52

Jens

AW: Schleife in VBA

13.08.2003 17:37:23

ChrisL

Hi Achim
Nicht getestet, aber versuch mal so...
For i = 1 to 500
Rows(i + 7).Replace What:="P" & i, Replacement:="P" & (i + 1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next i
Gruss
Chris

AW: Schleife in VBA

13.08.2003 17:39:51

Ramses

Hallo,
kannst du das bitte erklären ?
"...Selection.Replace What:=" usw."
Was bedeutet "usw." 500 Zeilen und 500 Tabellenblätter, oder warum schreibst du " .. Bei 500 Blättern wird das Makro zu groß!..."
Und in wlecher Zeile beginnt der Datenbereich ?
Gruss Rainer

AW: Schleife in VBA

14.08.2003 17:01:27

Achim

Hallo Rainer,
das skizzierte Mako geht bis Reihe 500 daher zu Groß, usw. heißtm, daß die Anweisungen sich 500* wiederholen.
Die Datenbereiche sind jeweils pro Zeile zu sehen!
Gruß Achim

AW: Schleife in VBA

13.08.2003 17:40:52

Jens

Hallo
Mal ein Versuch, kurz genug?


Sub Replace_Daten()
For i = 9 to 506
Rows(i).Replace What:="P1", Replacement:="P" & i - 7, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
next
End Sub

Gruß Jens

Beliebteste Forumthreads (12 Monate)

Forumthread: Schleife in VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread