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
|