Tabellenzusammenfassen nur Werte
31.10.2003 08:13:55
Katja
Habe aus diesem Forum diesen Code erhalten er funktioniert auch(vielen Dank nochmals, aber beim Zusammenfassen sollten nur die Werte übertragen werden nicht die Formeln
wie muß ich diesen ergänzen
Code fasst aus 38 tabellen jeweils bestimmte Zeilen zusammen
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
Vielen Dank Katja