Re: berechnung in letzer zeile mit vb
23.06.2002 17:52:41
Daniele
Hallo HajoDanke für die schnelle Antwort.
ein wenig kenne mich schon aus aber das Meiste entnehme ich von Beispielen.
das Problem ist folgendes. mit der UserForm möchte ich eine Tabelle auswerten. dabei werden mit dem Spezialfilter die gefilterten Daten in eine neue Tabelle kopiert. Gleichzeitig möchte ich die Summe unter der letzten Zeile anfügen.
Mit Deiner Anweisung krieg ich es nicht richtig hin.
hier der Code, vielleicht kannst du den mal durchschauen?
Private Sub btnOK_Click()
Dim RegDB As Object
Dim RepData As Object
Dim RepDB As Object
Dim RepCrit As Object
Dim letzte As Long
If Range("Rep_KV").Value = "" Then Range("Rep_KV").Value = Range("Rep_K").Value
If Range("Rep_KR").Value = "" Then Range("Rep_KR").Value = Range("Rep_K").Value
If Range("Rep_KM").Value = "" Then Range("Rep_KM").Value = Range("Rep_K").Value
If Range("Rep_KG").Value = "" Then Range("Rep_KG").Value = Range("Rep_K").Value
Set RegDB = Range("Reg_Home").CurrentRegion
Worksheets("Report").Activate
Range("Rep_Home").Offset(1, 0).Clear
RegDB.AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Range("Criteria"), CopyToRange _
:=Range("A3:M3"), Unique:=False
Set RepDB = Range("Rep_Home").CurrentRegion
If RepDB.Rows.Count = 1 Then _
Set RepData = RepDB.Offset(1, 0) _
Else Set RepData = RepDB.Offset(1, 0).Resize(RepDB.Rows.Count - 1)
ActiveWorkbook.Names.Add Name:="Rep_Home", RefersTo:="=" & RepDB.Address
Range("Rep_Style").Copy
RepData.PasteSpecial xlFormats
Application.ScreenUpdating = True
HIER DIE SUMME (Alles andere klappt richtig):
letzte = Sheets("Report").Cells(Rows.Count, 3).End(xlUp).Row + 1
letzte.Offset(0, 3).FormulaR1C1Local = "=summe(Z(-1)S:Z4S3)"
ViewReport
Range("RepCritArea").ClearContents
Range("Rep_K").ClearContents
Unload Me
End Sub