Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot mit Blattschutz aktualisieren

Pivot mit Blattschutz aktualisieren
03.02.2018 20:31:40
Robert
Guten Abend,
https://www.herber.de/bbs/user/119514.xlsm
ich würde die Pivot-Tabelle mit Blattschutz (Kennwort beider Arbeitsblätter: 123) ganz gerne aktualisieren.
Ich habe mir schon etliche male ein Marko aufgezeichnet, das ich nach jeder Änderung wieder neu aufzeichnen musste, da es nicht mehr funktionierte.
Kann mir vielleicht jemand helfen das Problem zu lösen, dass ich das Marko nicht ständig neu aufzeichnen muss.
Das wäre super.
Leider habe ich nur Macrorecorder-Kenntnisse und schaffe es nicht einfache Befehle zum laufen zu kriegen.
VG
Robert

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot mit Blattschutz aktualisieren
03.02.2018 21:39:10
Luschi
Hallo Robert,
bei mir klappt das so: 

Sub PT_Refresh()
With ActiveSheet
.Unprotect "123"
.PivotTables("PivotTable1").PivotCache.Refresh
.Protect "123", DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True
End With
End Sub
Gruß von Luschi
aus klein-Paris
AW: Pivot mit Blattschutz aktualisieren
03.02.2018 22:40:38
Robert
Hi Luschi,
danke für die schnelle Antwort.
Klappt super in diesem Tabellenblatt, aber wenn ich die Daten in ein anderes übernehme, dann klappt es leider nicht.
Wie muss die Zeile abgeändert werden?
PivotTables("PivotTable1").PivotCache.Refresh
Wenn bei 5 Arbeitsblättern Blatt Nr.3 V_Server (Tabelle mit den Daten für Pivot) und Blatt Nr. 4 V_Pivot (Arbeitsblatt mit der Pivot-Tabelle) heißt?
VG
Robert
Anzeige
AW: Pivot mit Blattschutz aktualisieren
03.02.2018 22:40:41
Robert
Hi Luschi,
danke für die schnelle Antwort.
Klappt super in diesem Tabellenblatt, aber wenn ich die Daten in ein anderes übernehme, dann klappt es leider nicht.
Wie muss die Zeile abgeändert werden?
PivotTables("PivotTable1").PivotCache.Refresh
Wenn bei 5 Arbeitsblättern Blatt Nr.3 V_Server (Tabelle mit den Daten für Pivot) und Blatt Nr. 4 V_Pivot (Arbeitsblatt mit der Pivot-Tabelle) heißt?
VG
Robert
AW: Pivot mit Blattschutz aktualisieren
04.02.2018 06:40:02
Luschi
Hallo Robert,
dann tauscht Du einfach aus:
With ActiveSheet
gegen With ThisWorkbook.Worksheets("V_Pivot")
oder machtst es noch ein bischen variabler: 

Sub MachMal()
Call PT_Refresh("V_Pivot", "PivotTable1", "123")
End Sub
Sub PT_Refresh(xTab As String, xPiv As String, xKW As String)
Dim pvT As PivotTable
With ThisWorkbook.Worksheets(xTab)
.Unprotect xKW
.PivotTables(xPiv).PivotCache.Refresh
.Protect xKW, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True
End With
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Pivot mit Blattschutz aktualisieren
04.02.2018 08:05:09
Robert
Hallo Luschi,
für die erste Tabelle hat es geklappt (glaub ich).
Aber der 2 Code macht noch Zicken.
Kannst du hier
https://www.herber.de/bbs/user/119525.xlsm
nochmal drüber schauen was ich falsch gemacht habe.
VG
Robert
AW: Pivot mit Blattschutz aktualisieren
04.02.2018 08:56:07
Luschi
Hallo Robert,
2 Fehler:
- falsches Makro
- falscher Pivot-Tabellen-Name
hier meine Korrekturen: https://www.herber.de/bbs/user/119526.xlsm
Gruß von Luschi
aus klein-Paris
AW: Pivot mit Blattschutz aktualisieren
04.02.2018 09:41:44
Robert
Hi Luschi,
danke für die schnelle Antwort,
warum heißt es PivotTable1?
Wenn das Arbeitsplatt doch Server_2 lautet?
Woher weiß Excel, welches Blatt gemeint ist?
Muss das "Option Explicit" immer drüber stehen? Oder könnte man die auch weg lassen?
Danke nochmal für deine Hilfe
VG
Robert
Anzeige
AW: Pivot mit Blattschutz aktualisieren
04.02.2018 22:06:20
Luschi
Hallo Robert,
Option Explicit - sollte Pflicht sein, wenn man nicht nur hobbymäßg mal was mit Vba
machen will; das kann man auch in den Vba-Editor-Optionen so einstellen, daß dies automatisch geschieht. Beide Pivottabellen haben übrigens den Namen 'PivotTable1'.
Gruß von Luschi
aus klein-Paris

19 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
pivot automatisch aktualisieren
Mike

hallo!
gibt es eine möglichkeit, eine pivot-tabelle alle 2 sekuden zu aktualisieren?
danke für eure hilfe!
mike
06.07.2010 23:49:07
Thread-ID: 1165639
2 Beiträge
Anzeige
PivotTable automatisch aktualisieren
Michael

Hallo zusammen,
folgenden Problem. Ich hab Pivot Tabellen und daraus generiere ich Diagramme die ich in einem ANDEREN Sheet als die Pivot Tabellen platziert hab. Jetzt hab ich das Problem, dass die Daten sich nicht in den Sheets wo die Diagramme sind automatisch aktulisieren sondern nur in...
22.04.2015 16:39:26
Thread-ID: 1422509
2 Beiträge
Diagramme aktualisieren trotz Blattschutz
marc

Hallihallo,
da draußen ich hoffe mir kann hier geholfen werden. Ich habe auf jedem tabellenblatt ein blatzschut und wenn ich in meinen dropdownlisten eine andere abfrage starte also einen anderen namen auswähle sollten sich die diagramme aktualisieren. leider meckert da der blatzschutz wenn...
08.08.2018 20:42:08
Thread-ID: 1638289
4 Beiträge
Pivot-Datenschnitt trotz Blattschutz verwenden
Sascha

Hallo zusammen,
ich verwende die Pivot-Datenschnittfunktion, die auf eine Pivot-Tabelle in einem anderen Worksheet zugreift.
Worksheet mit Datenschnitt = Blatt gesperrt
Worksheet mit Pivot-Tabelle = Blatt nicht gesperrt
Datenschnitt als Objekt = nicht gesperrt
Mein Problem:...
04.05.2019 15:06:05
Thread-ID: 1690755
3 Beiträge
PivotTable Automatisch Erstellen
MiaLeMee

Hallo zusammen,
Ich habe einen Code, der nicht von mir erstellt wurde und an verschiedenen Stellen hakt(fett markiert unterste Zeile davon).
Im Grunde genommen werden unformatierte Daten aus einer anderen Excel kopiert und in diese Excel Datei manuell eingefügt. Das Makro formatiert da...
23.05.2019 09:26:48
Thread-ID: 1694260
2 Beiträge
Blattschutz vorhanden - trotzdem aktualisieren
Michael S.
Hallo zusammen,
habe mal wieder eine Frage an die VBA-Profis,
Ich habe eine Arbeitsmappe mit 4 Tabellenblättern. Das erste Tabellenblatt heißt "Eingabe" und ein anderes, welches Daten aus einer Webabfrage enthält, heißt "oanda (2)". Wenn ich ohne Blattschutz im Tabellenblatt "oanda (2)" bin,...
13.01.2004 13:45:15
Thread-ID: 362976
5 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
1
2
2
1
1
1
3
2
1
4
3
1
1
2
6
2
2
2
2