Supportnet / Forum / Tabellenkalkulation

Hallo Excelfreunde ! Gibt es hierfür eine Lösung ? In einer Arbeitsmappe habe ich 12 Tabellenblätter in ein neuerstelltes Blatt kopiert. Es sollen die Zeilenhöhen und Spaltenbreiten mit kopiert werden, klappt aber nur vom Tabellenblatt1. Desweiteren hätte ich gerne die Selektierung von Tabelle1 bis Tabelle12 wieder zurückgesetzt. Habe einiges versucht aber ohne Erfolg. Hat jemand eine Idee ob das geht und wenn ja - Wie ? Einstweilen herzlichen Dank an alle, die sich für mich bemühen. MfG Odje [code]Sub Mergen() Dim Zeile As Long, EndZeile As Long Dim ws2 As Worksheet Dim sp As Long, x As Long Application.ScreenUpdating = False Rem Neues Blatt anlegen Set ws2 = Worksheets.Add(After:=Sheets(Sheets.Count)) ActiveSheet.Name = "Zusammenfassung" Rem Variable für die zusammen gefaßten Daten ab Zeile 1 Zeile = 1 Rem Blatt 1 bis Blatt 12 zusammenfassen For i = 1 To 12 Worksheets(i).Select EndZeile = Range("E34").End(xlUp).Row + 2 Rem Datenbereich markieren Range("A1:E34").Select Set ws = ActiveSheet Set s = Selection Rem Datenbereich kopieren s.Copy Rem Zeilenhöhen übertragen z = 0 For x = s.Row To s.Row + s.Rows.Count - 1 z = z + 1 ws2.Rows(z).RowHeight = ws.Rows(x).RowHeight Next Rem Spaltenbreiten übertragen sp = 0 For x = s.Column To s.Column + s.Columns.Count - 1 sp = sp + 1 ws2.Columns(sp).ColumnWidth = ws.Columns(x).ColumnWidth Next Rem Das neue Tabellenblatt auswählen Sheets("Zusammenfassung").Select Rem Zielzelle auswählen Cells(Zeile, 1).Select Rem Einfügen ActiveSheet.Paste Rem Variable Zeile erhöhen Zeile = Zeile + EndZeile Next Application.ScreenUpdating = True Set ws2 = Nothing Set s = Nothing End Sub [/code]

Hat sich erledigt !

• Excel Arbeitsmappe als PDF
• einzelne Arbeitsblätter verändern
• Formeln unterdrücken
• Excel Druck markierter Arbeitsblätter