Thema Datum  Von Nutzer Rating
Antwort
07.11.2019 16:28:00 Gast33729
NotSolved
Blau Zeilen aus allen Tabellenblättern in neues Blatt kopieren
 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:
Werner		 Datum:
07.11.2019 18:36:58		 Views:
505		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen aus allen Tabellenblättern in neues Blatt kopieren

Hallo,

so:

Sub Kopieren()
Dim ws As Worksheet, einfügezeile As Long

einfügezeile = 1

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Gesamt" Then
        With ws
            .Rows("1:500").Copy _
            Worksheets("Gesamt").Rows(einfügezeile)
        End With
        einfügezeile = einfügezeile + 500
    End If
Next ws

Dein Worksheet "Gesamt" mußt du dann auch noch ausnehmen, sonst kopierst du dir von dort ja auch noch 500 Zeilen.

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