Hallo Holger,
ich habe den Code in einem Modul gepackt und die Variablen global deklariert so das ich auf mehere
Arbeitsblätter bzw Tabellenblätter zugreifen kann.
Klappt wunderbar.
Danke für deine Hilfe.
LG
Holger schrieb am 10.01.2008 15:03:35:
Hallo Schönes Wetter,
ich habe leider noch einige Änderungen nach dem Ausprobieren durchgeführt, um das Makro allgemeiner zu fassen. Leider habe ich es dadurch nur "verschlimmbessert" - Entschuldigung! "Basis" heißt bei mir ein Worksheet! Es braucht dich nicht zu interessieren. Das sollte laufen:
Sub test()
Sheets(2).Activate
Set v = Range(Cells(1, 1), Cells(10, 1))
Sheets(3).Activate
Set w = Range(Cells(1, 1), Cells(10, 1))
Worksheets(4).Cells(1, 1) = Application.WorksheetFunction.Correl(v, w)
End Sub
Viele Grüße
Holger
Schönes Wetter schrieb am 10.01.2008 12:12:24:
Hallo Holger,
jetzt hat es geklingelt!!!!!
Der Code muss in dem Sheets stehen das als letztes ausgewählt wurde, deswegen auch "Basis".
Vielen Dank!!!!
Schönes_Wetter schrieb am 10.01.2008 12:03:48:
Hallo Holger,
erstmal Danke für deine Antwort!!
Ich hab deinen Vorschlag gleich ausprobiert aber leider liest das
Programm nicht aus Sheets(3)ein:
Sub test()
Sheets(2).Activate
Set v = Range(Cells(1, 1), Cells(10, 1))
Sheets(3).Activate
Set w = Worksheets(2).Range(Cells(1, 1), Cells(10, 1))
Worksheets(4).Cells(1, 1) = Application.WorksheetFunction.Correl(v, w)
End Sub
Das entprechende Tabellenblatt blinkt nach dem aktivieren auf aber
eingelesen wird nur aus dem Sheets in dem auch der Code steht.
LG
Holger schrieb am 09.01.2008 18:23:39:
Hallo Schönes_Wetter,
versuche es mit
Sheets(5).Activate
Set v = Range(Cells(2, 1), Cells(14401, 1))
Sheets(1).Activate
Set w = Worksheets("Basis").Range(Cells(2, 2), Cells(14401, 2))
a = Application.WorksheetFunction.Correl(v, w)
Viel Erfolg
Holger
Schönes_Wetter schrieb am 09.01.2008 16:49:42:
Application.WorksheetFunction.Correl(Sheets(3).Range(Cells(2, 1), Cells(14401, 1)), Sheets(8).Range(Cells(2, 2), Cells(14401, 2)))
Hallo,
leider funktioniert dieser Befehl nicht!
Weiss jemand ob mein Vorhaben überhaupt möglich ist, d.h. In einer Formel auf unterschiedliche
Sheets zugreifen.
LG
|