automatisch von Sheet zu sheet gehen
09.09.2004 11:45:47
Sheet
gibt es dir Möglichkeit alle Sheet in einer Mappe nacheinander abzuarbeiten mit dem gleichen Makro derzeit habe ich für jedes Sheet auch jeweils ein Makro und dieses sieht wie folgt aus:
Sub CHF()
Dim WS30, WS7, WS16 As Worksheet
Dim j As Integer
Set WS7 = Worksheets("Start")
j = WS7.Cells(3, 7)
'Auslesen der neuen Daten
If j <> 0 Then
'Set WS10 = Worksheets("DkkRt")
'WS10.Activate
'Call NeueWerte
Set WS30 = Worksheets("CHF")
WS30.Activate
'Löscht die nicht benötigten Zinssätze
Range(Cells(257 - j + 1, 1), Cells(257, 14)).Select
Selection.ClearContents
'Versetzt den gesamten vorhandenen Block um eine Spalte nach rechts
Range(Cells(8, 1), Cells(257 - j + 1, 14)).Select
Selection.Cut
Cells(8 + j, 1).Select
ActiveSheet.Paste
Set WS16 = Worksheets("ChfRt")
'Fügt die neuen Werte in die Zinsstruktur ein
WS16.Activate
Range(Cells(9, 2), Cells(j + 8, 15)).Copy
WS30.Activate
Range("A8").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Datenblatt bereinigen
WS16.Activate
Range(Cells(9, 1), Cells(j + 8, 16)).Select
Selection.ClearContents
End If
'Berechnung der Korrelationen
Set WS1 = Worksheets("DKK")
WS1.Activate
Call KorrBerechnung
End Sub
Und am liebsten wäre mir ja dann wenn ich das ganze in einem lösen könnte, das problem ist nur das ich immer mal wieder springen muss von einem Sheet zum nächsten. Denn es stehen immer 2 miteinander in Verknüpfung. Diese liegen jedoch immer neben einander.
Gruß Claudi