Hallo
Folgender Code schreibt Daten aus Tabelle1 in ein Volage Sheet und Speichert dann das Sheet in der Arbeitsmappe mit dem Header aus Spalte 10-12
und bilde bei den Spalten E-J die Summen
Nun mein Problem
1. Es werden die Header in der Vorlage überschrieben (es sollen aber die Header aus der Vorlage bleiben bis auf Spalte jeweilige Spalte 10,11,12 , Also es
soll beim einfügen mit Zeile 2 begonnen werden nur in 10,11,12 soll der Header aus der Datendatei genommen werden.
2. Die Zellen E-I sind in der 1 Zeile verformelt und werden nicht automatisch runtergezogen und in Spalte E soll auch die Formatiertung grau mit runtergezogen werden.
3. Die summenformel ist 3 Zeilen unterhalg der letzten Datenzeile und gibt den summierten Wert als Wert an es sollte dort aber wieder die Summenformel stehen damit wenn Änderungen sind es sich automatisch summiert
Sub Kopiere()
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 10 To 12
With Worksheets("Verteiler_Vorlage")
.Visible = True
.Copy after:=Sheets(Sheets.Count)
.Visible = False
End With
.UsedRange.Range("A:B").Copy ActiveSheet.Cells(1)
.UsedRange.Range("F:F").Copy ActiveSheet.Cells(3)
.UsedRange.Range("E:E").Copy ActiveSheet.Cells(4)
.UsedRange.Columns(i).Copy ActiveSheet.Cells(1, 10)
ActiveSheet.Name = Cells(1, 10)
.UsedRange.Range("H:H").Copy ActiveSheet.Cells(11)
.UsedRange.Range("G:G").Copy ActiveSheet.Cells(12)
.UsedRange.Range("I:I").Copy ActiveSheet.Cells(13)
With Intersect(Range("E:J"), Rows(Cells.SpecialCells(xlCellTypeLastCell).Row + 1))
.FormulaR1C1 = "=Sum(R1C:R[-1]C)"
.Formula = .Value
.HorizontalAlignment = xlCenter
End With
Next
End With
End Sub
Kann mir bitte dabei jemand helfen denn, ich krieg das nicht wirklich in den Griff
Danke
Sabrina
|