Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen aus allen Tabellenblättern in neues Blatt kopieren
 07.11.2019 16:28:00 Gast33729
NotSolved
07.11.2019 18:36:58 Werner
NotSolved
08.11.2019 08:45:33 Gast38094
NotSolved
08.11.2019 08:48:05 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast33729		 Datum:
07.11.2019 16:28:00		 Views:
1029		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen aus allen Tabellenblättern in neues Blatt kopieren

Hallo zusammen,

ich stell mich glaub etwas dumm an.

Ich möchte einfach nur aus allen Tabellenblättern die ersten 500 Zeilen in ein neuens Tabellenblatt untereinanderkopieren.

Sub Kopieren()
    
    Dim WsTabelle As Worksheet
    
    einfügezeile = 1
    
    For Each WsTabelle In Sheets
        With WsTabelle
            Rows("1:500").Select
            Selection.Copy
            Sheets("Gesamt").Select
            Rows(einfügezeile & ":" & einfügezeile).Select
            ActiveSheet.Paste
        End With
    einfügezeile = 1 + 500
    Next WsTabelle
MsgBox "fertig"
End Sub
 
Was mach ich denn da falsch?
 
Gruß
Willie

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 Zeilen aus allen Tabellenblättern in neues Blatt kopieren
 07.11.2019 16:28:00 Gast33729
NotSolved
07.11.2019 18:36:58 Werner
NotSolved
08.11.2019 08:45:33 Gast38094
NotSolved
08.11.2019 08:48:05 Mase
NotSolved