Tabellenzusammenfassen nur Werte

Bild

Betrifft: Tabellenzusammenfassen nur Werte
von: Katja
Geschrieben am: 31.10.2003 08:13:55

Hallo Forumsteilnehmer

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
Bild


Betrifft: AW: Tabellenzusammenfassen nur Werte
von: Dirk
Geschrieben am: 31.10.2003 08:24:28

Hallo.

Mach zwei Zeilen daraus, folgendermaßen geändert.
Sheets(CStr(Format(i, "00"))).Range("A1:IV35").Copy
WS.Range("A" & (i * 35) - 34).pastespecial xlPasteValues

Cheers



Bild


Betrifft: AW: Danke super es klappt
von: Katja
Geschrieben am: 31.10.2003 08:49:16

Vielen dank es funktioniert


Bild


Betrifft: thx für die Rückmeldung o.t.
von: Dirk
Geschrieben am: 31.10.2003 08:51:58




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Userform"