Summe unter Zielbereich eines Spezialfilters mit VBA-Makro
Tobias Schattschneider
ich möchte gerne mit einem Spezialfilter Daten aus einer Tabelle in
ein neues Tabellenblatt extrahieren und anschließend unter dem
Zielbereich die Summen mit Hilfe eine Makros errechnen lassen.
Da je nach Suchkriterium unterschiedlich viele Daten extrahiert
werden, kann ich die Summe nicht in einer fest definierten Reihe
ermittlen. Vom Prinzip her müsste das VBA-Makro die letzte Zeile
finden, die Daten enthält und dann in der Zeile darunter die
entsprechende Formel =summe() eintragen.
Hat irgendwer eine Ahnung, wie ich das realisieren kann?
Vielen Dank schon vorab!
Viele Grüße,
Tobias Schttschneider
Kai Ottenbacher
Sub letzteZeileFinden()
dim letzteZeile as integer
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letzteZeile
End Sub
Achtung: das Sub bezieht sich auf die letzte Zelle der Spalte A. Falls
Spalten B, C usw. "weiter nach unten gehen" bitte anpassen.
Gruss, Kai
Kai Ottenbacher
sorry, das war etwas zu hektisch von mir...
Sub Summe()
Dim letzteZeile As Integer
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & letzteZeile + 1).Formula = "=SUM(A1:A" & letzteZeile & ")"
End Sub
Bezieht sich immer noch sowohl bzgl. Finden der letzten Zeile (hier:
Zelle) als auch der Summenbildung auf Spalte A und muss evtl. angepasst
werden.
Gruss, Kai
Tobias Schattschneider
Wow! Du bist mein Held!
Danke für die schnelle Antwort.
Hat prima geklappt!
Danke,
Tobias
Kai Ottenbacher
immer wieder gerne - und danke für die Rückmeldung.
Kai