Nachtrag zu AW: end if Problem
27.02.2008 14:04:32
Frederic
könnte ich in diesem super funktionierenden Code ncoh folgendes hinzufügen:
'##Kopiervorgang in das jeweilige Archiv-Sheet
Sheets("Liste").Select
With Sheets(Range("L401").Text)
.Range("A7:K400").Value = Range("L7:W400").Value
.Range("A1:K" & .Cells(Rows.Count, 2).End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Delete xlUp
.Columns(1).Delete
'Range("L1").Select
'ActiveCell.FormulaR1C1 = "=SUM(C[-8])"
'Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
End With
End Sub
Möchte ihm eig. nur mitteilen, dass wenn er in das jeweilige Monatssheet verschoben hat, soll er in dem jeweiligen Blatt immer in L1 die Summe von D:D berechnen.
Danke nochmal für Eure Bemühungen und Hilfe.
Frederic