Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeile einer Pivottabelle ermitteln

letzte Zeile einer Pivottabelle ermitteln
03.03.2017 13:56:51
r
Ich möchte gerne die letzte Zeile einer Pivottabelle ermitteln. Die Pivot fängt in der Zeile L11 an und erweitert sich im laufe des Monats in unregelmäßigen abständen. Ich möchte das per Makro immer der letzte Wert der Pivot selektiert wird. Am Ende des Monats werden die Daten (manuell) in der Pivot gelöscht und sie fängt wieder bei L11 an.
L10 = Überschrift der Pivot
L11 = Der erste Datensatz
Danke für eure Hilfe!

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
VBA gut? Cells(rows.count,1).end(xlup) ... (owT)
03.03.2017 14:06:11
EtoPHG

AW: VBA gut? Cells(rows.count,1).end(xlup) ... (owT)
03.03.2017 14:23:25
r
Funzt nicht.
Es handelt sich um eine Pivottabelle.
AW: VBA gut? Cells(rows.count,1).end(xlup) ... (owT)
03.03.2017 14:50:31
Der
Hallo,
das geht aucgh bei Pivot, Du musst nur die richtige Spalte verwenden: 
Cells(rows.count, "L").end(xlup)

Letzte Zeile einer Pivot
03.03.2017 15:10:20
r
Zeile = Cells(Rows.Count, "L").End(xlUp)
ActiveSheet.Cells(11 + Zeile - 2, 12).Select
Zeile hat bei mir den Wert = "" also gar keinen?
AW: Letzte Zeile einer Pivot
03.03.2017 15:29:11
Der
Der Schnipsel gibt auch die letzte Zelle der Spalte L zurück und nicht die Zeilennummer. Wenn du die Zeilennummer benötigst, dann hängst Du einfach ein .Row dran. Wenn Du nur die Zelle selektriren willst, hängst Du einfasch .Select dran.
Anzeige
Probiers mal so... Gruß
03.03.2017 15:10:19
robert 

Sub Makro1()
With ActiveSheet.PivotTables("PvtMitVba")'PivotTables- Name anpassen
lz = Cells(Rows.Count, 1).End(xlUp).Row 'ev. Spalten Nr. anpassen
End With
End Sub

AW: Probiers mal so... Gruß
03.03.2017 15:19:59
r
Ergibt leider nur den Wert 1. Also er zählt nicht weiter.
? Bei mir gibt er 15 in der Box aus kwT
03.03.2017 15:55:22
Der
das ist doch die letzte Zeile in Pivot-oder? oT
03.03.2017 15:58:20
robert
Stimmt, hast recht! Mein Fehler! oT
03.03.2017 16:32:59
Der
AW: oder so...
03.03.2017 15:27:26
Luschi
Hallo r r,
das klappt bei mir:
Dim n As Long
n = Range(Split(Tabelle2.PivotTables("PivotTable1").DataBodyRange.Address, ":", -1, vbTextCompare)(1)).Row
wobei Du anpassen mußt: Tabelle2 und PivotTable1
Gruß von Luschi
aus klein-Paris
Anzeige
Warum so kompliziert?
03.03.2017 15:34:50
Der
DataBodyRange gibt doch eine Range zurück: 
With Tabelle2.PivotTables("PivotTable1").DataBodyRange
n = .Cells(.Cells.Count).Row
End With

oder zum Selektieren derselben Zelle: 
With Tabelle2.PivotTables("PivotTable1").DataBodyRange
.Cells(.Cells.Count).Select
End With

AW: Warum so kompliziert?
03.03.2017 19:15:56
Luschi
Hallo Steuerfuzzi,
wer sagt Dir denn, daß es unterhalb der Pivot-Tabelle nicht noch irgendwelche Daten gibt, die nichts mit dem Datenbereich der Pivottabelle zu tun haben.
Deshalb berufe ich mich auf Informationen, die vom Pivot-Objekt zu erfahren sind, und nicht von Excel-Vba-Funtions, die ohne Kenntnis der Voraussetzungen ein Ergebnis liefern.
Gruß von Luschi
aus klein-Paris
Das gleiche ist ja der Datenbereich von ListObjects (also formatierten Tabellen), die in Vba wesentlich mehr Infos verraten als auf der Excel-Oberflächen!
Anzeige
Hast Du meinen Beitrag auch gelesen?
04.03.2017 08:49:01
Der
Ich glaube nicht!
AW: Hast Du meinen Beitrag auch gelesen?
05.03.2017 09:23:05
Luschi
Hallo Steuerfuzzi,
hast Recht, so funktioniert es auch. 

With Tabelle4.PivotTables("PivotTable1").DataBodyRange
n = .Cells(.Cells.Count).Row
Debug.Print n
'oder so:
n = .SpecialCells(xlCellTypeLastCell).Row
Debug.Print n
End With
Gruß von Luschi
aus klein-Paris
Außer "r r" haben es Alle gelesen :-) oT
05.03.2017 14:29:17
robert

84 Forumthreads zu ähnlichen Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
letzte Zeile ermitteln - nebenstehende Spalten mar
Erwin

Hallo Spezialisten,
ich habe eine Tabelle, in der immer in Spalte F unterschiedlich viele Zeilen gefüllt sind.
Spalte G + H sind leer und müssen durch Bearbeiter abgearbeitet werden.
Ich möchte nun Spalte G + H mit einer Farbe (.ColorIndex = 36) "verschönern", damit die User genau w...
02.03.2009 10:03:42
Thread-ID: 1055434
7 Beiträge
letzte freie Zeile ermitteln
Kai

Hi,
wie kann ich denn die erste freie Zeile in meinem Sheet ermitteln ? Seither habe ich das so gemacht, dass ich nur B geprüft habe:
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
das geht aber nicht mehr, da es vorkommen kann das eine andere Spalte weiter runter befüllt ist.
wi...
25.03.2009 11:36:06
Thread-ID: 1063680
7 Beiträge
Anzeige
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
Auf die letzte Zeile einer Tabelle springen
thomas

Mein Problem :Ich möchte aus einer Tabelle auf die jeweils letzte Zeile einer anderen Verweisen, wobei die Tabelle, die die Informationen liefert, laufend ergänzt wird.
16.05.2002 08:48:35
Thread-ID: 121233
3 Beiträge
VBA: Letzte benutzte Zeile aus anderem Blatt..
WalterK

Hallo,
der folgende Codeteil läuft zwar durch, bringt mir aber bei LzBe eine 0 (Null).
Wer kann mir sagen, was ich falsch gemacht habe?
Dim LzBe As Long With Sheets("Berechnungstabelle") Application.ScreenUpdating = False .Unprotect MsgBox LzBe LzBe = Sheets("FeststellungenUeber...
29.05.2011 15:33:21
Thread-ID: 1216578
3 Beiträge
Per VBA Formel in letzte Zeile (+1) eintragen
Marten

Hallo liebe Herber-Welt,
ich konnte schon oft Lösungen in diesem Forum finden, nun muss ich aber einen eigenen Beitrag schreiben, da ich nicht weiß wie und wo ich danach gucken sollte... :)
Da ich an meinem Arbeits-PC nicht über Admin-Rechte verfüge, kann ich leider kein Jeanie benutzen...
18.07.2011 11:35:48
Thread-ID: 1222568
5 Beiträge
im VBA Code Fehlerzeile ermitteln
ChrisW

Hallo Leute,
wie kann ich ermitteln, in welcher Zeile des VBA Codes ich mich befand, als es zu einem Fehler kam?
Ich suche eine Möglichkeit herauszufinden, in welcher VBA Zeile ein "Error" aufgetreten ist, bevor das Makro auf die Fehlerbehandlungszeile gesprungen ist.
Gibt es diese...
21.09.2011 10:37:37
Thread-ID: 1230871
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
6
6
17
7
2
2
4
1
5
2
4
8
3
1
9
9
4
3
4
3
5
5
5