Microsoft Excel

Herbers Excel/VBA-Archiv

ganze Zeilen aus arbeitsglätter in Tabelle zusamme

Betrifft: ganze Zeilen aus arbeitsglätter in Tabelle zusamme von: Gustav
Geschrieben am: 06.10.2014 09:39:56

hallo zusammen ...

vielleicht kann mir jemand helfen - habe folgendes problem und bin langsam der Verzweiflung nahe.

Habe unterschiedlich viele Tabellenblätter in meiner Datei und möchte nun aus all diesen Tabellen jeweils die komplette 3 Zeile kopieren in eine Tabelle zusammenführen. Die Zeilen sind unterschiedlich lang und haben auch leere Spalten - diese sollen auch übernommen werden.

habe bislang nur ein VBA gefunden das den Zweck anfangs zu erfüllen scheint, aber dann doch nicht die exakte Zeilenlänge übernimmt.

Public Sub Zeile_kopieren()
    
    Dim jedesWS As Worksheet
    Dim ZielWS As Worksheet
    Dim Zeile As Long
    Dim ZielZeile As Long
    Dim AnzahlSpalten As Long
    
    Zeile = 3
    
    ZielZeile = 18
    
    Set ZielWS = ThisWorkbook.Worksheets("Tabelle1")
    
    For Each jedesWS In ThisWorkbook.Worksheets
        If Not jedesWS Is ZielWS Then 'Zieltabelle auslassen
            AnzahlSpalten = jedesWS.UsedRange.Columns.Count
            ZielWS.Rows(ZielZeile).Cells(1).Resize(1, AnzahlSpalten).Value = _
                  jedesWS.Rows(Zeile).Cells(1).Resize(1, AnzahlSpalten).Value
            ZielZeile = ZielZeile + 1
        End If
    Next jedesWS
    
    Set jedesWS = Nothing
    Set ZielWS = Nothing

End Sub
Bitte um Hilfe.

lg Gustav

  

Betrifft: AW: ganze Zeilen aus arbeitsglätter in Tabelle zus von: Daniel
Geschrieben am: 06.10.2014 09:49:54

Hi

Warum kopiert du nicht einfach die komplette Zeile?

For Each jedesWS In ThisWorkbook.Worksheets
        If Not jedesWS Is ZielWS Then 'Zieltabelle auslassen
            jedesWS.Rows(Zeile).copy
            ZielWS.Cells(ZielZeile, 1).pastespecial xlpastevalues
            ZielZeile = ZielZeile + 1
        End If
    Next jedesWS
    
    
Gruß Daniel


  

Betrifft: ganze Zeilen aus arbeitsglätter in Tabelle zusamme von: Hajo_Zi
Geschrieben am: 06.10.2014 09:50:48

Hallo Gustav,

ich halte mich mal an den Text.

Option Explicit

Public Sub Zeile_kopieren()
    Dim jedesWS As Worksheet
    Dim Zeile As Long
    With ThisWorkbook.Worksheets("Tabelle1")
        For Each jedesWS In ThisWorkbook.Worksheets
            If jedesWS.Name <> .Name Then
                jedesWS.Rows(3).Copy _
                    Rows(.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
            End If
        Next jedesWS
    End With
End Sub
GrußformelHomepage


  

Betrifft: AW: ganze Zeilen aus arbeitsglätter in Tabelle zusamme von: Gustav
Geschrieben am: 06.10.2014 09:58:04

hallo hajo....

vielen dank für deine rasche Antwort.
habe gerade getestet und es funktioniert!!! danke danke danke.

du schreibst "du haltest dich mal an den text" ... bedeutet das, du hättest dafür eine bessere Lösung?

lg Gustav


  

Betrifft: ganze Zeilen aus arbeitsglätter in Tabelle zusamme von: Hajo_Zi
Geschrieben am: 06.10.2014 09:59:48

Hallo Gustav,

ich habe mich nicht an das gehalten was im Code steht.

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "ganze Zeilen aus arbeitsglätter in Tabelle zusamme"