Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teilergebnis am Schluss von Spalte a

Teilergebnis am Schluss von Spalte a
16.03.2013 12:26:27
Spalte
Hallo,
in einer Tabelle sind Datensätze.
Excel soll am Schluss von Spalte "A" die Formel: Teilergebnis einfügen.
Mit dem Aufzeichnen Geht das zwar, aber wenn dann mehr oder weniger Datensätze in der Tabelle sind, funktioniert mein Makro nicht mehr.
Momentan sind in der Tabelle "nur_Druck" in Zeile1 die Titel-Zeile, von Zeile 1 bis Zeile 180 die Datensätze.
In A181 sollte dann das Teilergebnis (Code 3, Anzahl-Datensätze) stehen:
also 179.
Danke für einen Tipp
Wilhelm

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilergebnis am Schluss von Spalte a
16.03.2013 12:33:35
Spalte
Hallo,
so müsste es gehen, evtl. die Tabelle anpassen und in der Formel die erste Zeile.
Dim lngLetzte As Long
With Tabelle1 'Tabelle anpassen 
    lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
    If lngLetzte < 2 Then Exit Sub
    'R1C1 = ab Zeile 1; R2C1 = ab Zeile 2 usw... 
    .Cells(lngLetzte + 1, 1).FormulaR1C1 = "=SUBTOTAL(3,R1C1:R[-1]C)"
End With
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige