Herbers Excel/VBA-Archiv

automatisch von Sheet zu sheet gehen

• automatisch von Sheet zu sheet gehen von Claudi vom 09.09.2004 11:45:47
• AW: automatisch von Sheet zu sheet gehen - von Marcl am 09.09.2004 12:00:23
  • Funktioniert schon, ABER!!! - von Claudi am 09.09.2004 14:12:22

Betrifft: automatisch von Sheet zu sheet gehen von: Claudi
Geschrieben am: 09.09.2004 11:45:47

Hallöchen,

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


Betrifft: AW: automatisch von Sheet zu sheet gehen von: Marcl
Geschrieben am: 09.09.2004 12:00:23

Hallo Claudi,

schreibe das
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Activate
Set WS7 = Worksheets("Start")"
....
Next Sh
End Sub

Jetzt sollte das ganze Makro durchlaufen und wechselt danach zum nächsten Blatt
habe es aber nicht grprüft!!!
Gruß
Marcl




Betrifft: Funktioniert schon, ABER!!! von: Claudi
Geschrieben am: 09.09.2004 14:12:22

In den Makro wird immer wieder gewechselt zwischen 2 Sheets, diese liegen zwar nebeneinander, aber ich weiß nicht wie ich zwischen ihnen wechseln soll!!!

Gruß Claudi

Beiträge aus den Excel-Beispielen zum Thema "automatisch von Sheet zu sheet gehen"