---

Hallo

hab hier einen Code:

  Sub CopyAndPaste()

      Set xOriginalSheet = ActiveSheet

      Sheets("Tabelle1").Range("A1:B5").Copy
      Sheets("Tabelle2").Range("A1").PasteSpecial xlValues

      xOriginalSheet.Activate

  End Sub
   
ich möchte den anpassen auf:

  Sub CopyAndPaste()

      Set xOriginalSheet = ActiveSheet

      ActiveSheet.Range("A1:B5").Copy
      Sheets("Template").Range("A1").PasteSpecial xlValues

      xOriginalSheet.Activate

  End Sub

ich krieg aber bei der Stelle:
Set xOriginalSheet = ActiveSheet
immer eine Fehlermeldung...

was hab ich da falsch umgeschrieben?

   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stolti,

sorry, kann ich so nicht nachvollziehen.
Neue Mappe erstellt, VBA - Editor geöffnet, Code heinen kopiert

Code:

---

Sub CopyAndPaste()

      Set xOriginalSheet = ActiveSheet

      ActiveSheet.Range("A1:B5").Copy
      Sheets("Template").Range("A1").PasteSpecial xlValues

      xOriginalSheet.Activate

  End Sub

---

Noch einige Werte im Blatt "Tabelle1" eingetragen, Blatt "Tabelle2" in "Template" umbenannt und Macro laufen lassen. Und siehe da, es funzt. Alle Werte standen im Blatt "Template" und das aktive Blatt ist "Tabelle1"
Grüße

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

es kommt "Fehler beim Kompilieren" "variable nicht definiert"
Sub CopyAndPaste()
für: xOriginalSheet (das ist grau hinterlegt)

ich kapier das nicht.
was fehlt da?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub CopyAndPaste()
Set xOriginalSheet = ActiveSheet            'warum wird das gesetzt?

ActiveSheet.Range("A1:B5").Copy             'wenn hier das gesetzte eh gewählt wird,
                                            'bzw. es müsste  xOriginalSheet.Range("A1:B5").. lauten
Sheets("Template").Range("A1").PasteSpecial xlValues 'ok einfügen ;)

xOriginalSheet.Activate                     'Warum wird die schon aktive Sheet nochmal aktiviert?
                                            'ActiveSheet.Activate aka Leben.lebe! ;-)

End Sub

---

reicht nicht ein

Code:

---

Sub copyandpaste()
ActiveSheet.Range("A1:B5").Copy 
      Sheets("Template").Range("A1").PasteSpecial xlValues
End SUB

---

Zum Fehler selber  "Fehler beim Kompilieren" "variable nicht definiert"

Welche Definition soll xOriginalSheet haben, ist das ein Sack Kartoffeln, eine Geschwindigkeit, Eine Empfindung, - we don't Know -

Steht irgenwo Option Explicit, dann muss zwingend deklariert werden!

Da xOriginalSheet kein String, Zahl oder was immer sein soll, sondern eine XL-Tabelle

Code:

---

Dim xOriginalSheet As Worksheet

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP