VBA Bezug auf Blatt ohne dieses zu aktivieren

[schauan]

Hallöchen,

verwende in diesen beiden Zeilen den Blattnamen, Syntax siehe weiter oben:
Range("A2:D2").Resize(n) = arr1
Range("E2").Resize(n, 91) = arr2

[atilla]

Vielen Dank! Der Code funktioniert super! Leider hat sich eine Änderung ergeben, sodass der Code mithilfe eines CommandButtons aus einem anderen Blatt gestartet werden soll. Was muss ich ändern, damit er mir die Auswertung nicht auf mein aktuelles Blatt kopiert?

Hallo,

etwas in einem nicht sichtbaren Bereich zu aktualisieren ergibt keinen Sinn, dachte ich.

Deswegen habe ich es so aufgezogen, dass der gesamte Code in das Codemodul der Tabelle kommt, in der die Aktualisierung sichtbar sein soll.
Denn der Code wird dann bei Aktivierung dieser Tabelle automatisch gestartet. Ein CommandButton wäre in diesem Fall überflüssig.

[schauan]

Hallöchen,

etwas in einem nicht sichtbaren Bereich zu aktualisieren ergibt keinen Sinn.

Einspruch.

[Rabe]

Hi,

verwende in diesen beiden Zeilen den Blattnamen, Syntax siehe weiter oben:
Range("A2:D2").Resize(n) = arr1
Range("E2").Resize(n, 91) = arr2

Also so:

Code:

  With Worksheets("Auswertung")
     .Range("A2:D2").Resize(n) = arr1
     .Range("E2").Resize(n, 91) = arr2
  End With

dann kann das Makro "mach" per Button aus jedem beliebigen Blatt aufgerufen werden.

Generell fände ich es gut, auch für die Pivot-Auswertung, wenn im Blatt "Auswertung" Überschriften stünden. Die Zeile 1 also nicht geleert / gelöscht würde.