Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige