|
Hallo Leute
Ich habe vorgehendes Problem:
Ich habe ein Projekt im den bestimmte Daten aus einer Zeile abgeändert werden. Das habe ich auch hinbekommen mit dem folgenden Programm:
Sub GanzeMappen()
Dim sh As Worksheet
Dim ah As Worksheet
Dim dh As Worksheet
Dim Zelle As Range
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
For Each Zelle In sh.UsedRange
Zelle.value = Replace(Zelle.value, "SPS", "PLC")
Next Zelle
Next
For Each ah In ActiveWorkbook.Worksheets
ah.Activate
For Each Zelle In ah.UsedRange
Zelle.value = Replace(Zelle.value, "Einheit", "Unit")
Next Zelle
Next
For Each dh In ActiveWorkbook.Worksheets
dh.Activate
For Each Zelle In dh.UsedRange
Zelle.value = Replace(Zelle.value, "HMI Symbolname", "WW Tagname")
Next Zelle
Next
End Sub
Jetzt ist das Problem, dass ich ein großes Projekt habe, dadurch ist die Bearbeitungszeit deutlich länger ist als davor.
Darum ist meine Frage ob man der For-Schleife zuweisen kann, dass Sie nur bis zur Zeile (12) im aktivem Blatt gehen soll und dann zum nächsten Blatt. Bis das ganze Projekt abgefertigt ist ist?
Ich weiß, dass man es auch in den Arbeitsspeicher schieben kann und dann wird das Programm auch wieder schneller aber ich möchte dies ohne verschieben erledigen.
Danke für die mir bei meinem Problem helfen
Fabian
|