Thema Datum  Von Nutzer Rating
Antwort
Rot Bereich von mehreren Reitern kopieren
 09.06.2016 09:53:47 Hottie1991
NotSolved
09.06.2016 11:06:18 Gast32157
NotSolved

Ansicht des Beitrags:
Von:
Hottie1991		 Datum:
09.06.2016 09:53:47		 Views:
1012		 Rating:
     
Antwort:
  Ja
Thema:
Bereich von mehreren Reitern kopieren
Bereich von mehreren Reitern kopieren Guten Tag zusammen, ich habe folgendes Problem und bitte die Forumsmitglieder um Rat. Ich habe eine Arbeitsmappe. Im Zuge der Bearbeitung wird eine vorher nicht bekannte Menge an zusätzlichen Arbeitsblättern eingefügt, allerdings stets hinter dem 6. Arbeitsblatt. Die neu eingefügten Arbeitsblätter sind alle gleich aufgebaut (eine Vorlage wird kopiert). Im Bereich AU4 bis BB24 werden jeweils die relevanten Daten zusammengefasst. Nun bin ich auf der Suche nach einem Makro, welches bei Ausführung alle Blätter nach dem 6. (sprich ab dem 7.) abgeht, die Range(AU4:BB24) kopiert und in einem feststehenden Arbeitsblatt (dem 4.) einfügt, und zwar untereinander. Die 20 Zeilen der Arbeitsblätter mit Index > 6 sollen also hier alle untereinander stehen, sodass ich bei 5 zus. Arbeitsblättern 100 Zeilen habe. Dann werden die Leerzeilen entfernt (das schaffe ich wohl), es verbleiben die gefüllten Zeilen in noch unbekannter Anzahl. Führe ich meinen Code aus (unten angefügt), so erhalte ich den Laufzeitfehler 438: Objekt unterstützt Eigenschaft oder Methode nicht. Besten Dank vorab und freundliche Grüße Anna. Hier noch mein Code (ja, den Code-Button im Text-Editor finde ich nicht). Sub übernehmen() For Each ws In Worksheets If ws.Index > 6 Then ActiveSheet.Unprotect Password:=("Stute2") Call Kopie ActiveSheet.Protect Password:=("Stute2") Else End If Next End Sub Sub Kopie() Range("AU4:BB2").Copy Worksheets("CGI").Select ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 1 Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub

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 Bereich von mehreren Reitern kopieren
 09.06.2016 09:53:47 Hottie1991
NotSolved
09.06.2016 11:06:18 Gast32157
NotSolved