Thema Datum  Von Nutzer Rating
Antwort
Rot Zurück zum letzten aktiven Blatt
 13.03.2024 19:06:37 Andreas Röber
NotSolved
13.03.2024 20:48:36 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Andreas Röber		 Datum:
13.03.2024 19:06:37		 Views:
454		 Rating:
     
Antwort:
  Ja
Thema:
Zurück zum letzten aktiven Blatt

Hallo und einen schönen Abend zusammen,

ich komme gerade nicht weiter. 

Ich kopieren aus einem Tabellenblatt verschieden Zellen in ein anders, welches nicht immer das selbe ist.

Das kopieren und einfügen klappt einwandfrei wenn es immer das gleiche Blatt ist.
 

z.B. Quelle Tabelle1, Ziel Tabelle 2. Nun möchte ich aber diese Kopierroutine auch aus anderen Blättern aufrufen, zur Quelle springen, kopieren und wieder zurück zum letzten aktiven Tabellenblatt und einfügen. Das klappt aber nicht 

So habe ich es versucht

Sub copypaste()
Dim Zeile As Long
Dim LastSheet As Integer
LastSheet = ActiveSheet.Index
Sheets("Tabelle1").Select
    Range("B4:D5").Select
    Selection.Copy
       ActiveCell.PasteSpecial
ThisWorkbook.Sheets(LastSheet).Activate
End Sub

Hat jemand eine Idee was ich falsch mache oder eventuell eine Lösung 

Gruß 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zurück zum letzten aktiven Blatt
 13.03.2024 19:06:37 Andreas Röber
NotSolved
13.03.2024 20:48:36 Gast7777
NotSolved