For schleife in anderem Tab
06.11.2007 12:51:00
FM
eine kleine Frage. Ich vergleiche in einem Tab Daten miteinander. Diese Daten kommen aus 2 anderen tabs. Zum Vergleichen muss ich in beiden Tabs die Werte runden, bzw. die Nachkommastellen abschneiden.
Wie kann ich das bewerkstelligen das es in den jeweiligen tabs berechnet wird ohne auf diese wechseln zu müssen. Bis jetzt sieht dieser Teil des Codes so aus:
Sub rounder()
Dim rndv
Dim a
Dim rounded
For rndv = 252 To 200 Step -1
a = Cells(rndv, 2).Value
rounded = Round(a)
Cells(rndv, 2).Value = rounded
Next rndv
End Sub
Das funktioniert aber nur wenn die Zahlen im aktiven Tab stehen... das ist aber nicht der Fall.
Der Punikt is der. Ich mag das ganze Skript von einem einzigen Tab aus steuern. Die anderen Tabs sind nur für die Archivierung der Daten zuständig.
Danke im voraus
Anzeige