Tabellen Zusammenfassen

Bild

Betrifft: Tabellen Zusammenfassen
von: Katja
Geschrieben am: 28.10.2003 18:06:35

Hallo Forumsteilnehmer

ich möchte Tabellen mit den Namen 01 bis 38 jeweils immer die Zeilen 1 bis 35 in einer der Tabelle mit den Namen Zusammenfassung untereinander zusammenfassen.
wie stelle ich das an (Makrorekorder ist sicher nicht die sinnvollste Lösung,
in VBA habe ich Grundkenntisse)




MFG Katja

Bild


Betrifft: AW: Tabellen Zusammenfassen
von: ChrisL
Geschrieben am: 28.10.2003 18:25:05

Hi Katja

Option Explicit


Sub Zusammenfassen()
Dim WS As Worksheet
Dim i As Integer
Set WS = Sheets("Zusammenfassung")
For i = 1 To 38
    Sheets(CStr(Format(i, "00"))).Range("A1:IV35").Copy WS.Range("A" & (i * 35) - 34)
Next i
End Sub



Gruss
Chris


Bild


Betrifft: AW: Vielen Dank es funktioniert o.T
von: Katja
Geschrieben am: 28.10.2003 19:14:04

danke


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellen Zusammenfassen "