folgende Frage:
Ich benötige ein Makro, welches mir aus Tabelle2/Spalte E die letzte Zahl (das ist die Summe) kopiert und in Tabelle1/A1 einfügt.
Kann mir wer helfen?
VG Berndt
Dim lLetzte As Long
With ThisWorkbook.Worksheets("Tabelle2")
lLetzte = Application.Max(5, .Cells(.Rows.Count, 5).End(xlUp).Row)
.Range("E" & lLetzte + 1).Value = WorksheetFunction.Sum(Range("E2:E" & lLetzte))
.Range("E" & lLetzte + 1).Interior.ColorIndex = 15
End With
End Sub
Dim lLetzte As Long
With ThisWorkbook.Worksheets("Tabelle2")
lLetzte = Application.Max(5, .Cells(.Rows.Count, 5).End(xlUp).Row)
Sheets("Tabelle1").Range("A1") = WorksheetFunction.Sum(Range("E2:E" & lLetzte))
Sheets("Tabelle1").Range("A1").Interior.ColorIndex = 15
End With
End Sub
Gruß WernerSheets("Tabelle1").Range("A1") = WorksheetFunction.Sum(.Range("E2:E" & lLetzte))
Gruß Werner