Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Aktualisierung funktioniert im kopierten Tabellenblatt nicht

Forumthread: Aktualisierung funktioniert im kopierten Tabellenblatt nicht

Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 19:52:13
wagge
Hallo Zusammen,
ich werde bald verrückt...
Habe folgendes Problem.
Tabellenblatt 1 hat folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ThisWorkbook.RefreshAll
Application.EnableEvents = True
End Sub

Damit aktualisiert das Tabellenblatt bei jeder Änderung die Pivot Tabellen.
PASST!

Wenn ich das Tabellenblatt kopiere funktioniert der Code auf dem neuen Tabellenblatt nicht.
Woran kann das liegen?

Gruß Wagge
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 19:58:54
Onur
"Wenn ich das Tabellenblatt kopiere" ? WIE machst du das denn?
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 19:59:16
RPP63
Moin!
Wie kopierst Du das Blatt?
Wenn Du es mittels Rechtsklick auf Tabellenregister → Verschieben oder kopieren … (oder mittels Linksklick, Ziehen bei gedrückter Strg-Taste) machst, wird auch der Code kopiert.
Ansonsten musst Du den Code separat kopieren.

Bist Du Dir sicher, dass Du bei jeder Änderung einen Refresh anstoßen willst?
Ich würde ja zumindest das Target auswerten!

Gruß Ralf
Anzeige
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 20:10:00
wagge
Hallo Ralf, hallo Onur,
ich kopiere das Tabellenblatt mittels einem Button, dem ich folgendes Makro zugewiesen haben.

Sub NeuesTabellenblatt()
Dim strName As String
ActiveSheet.Copy After:=Sheets(Sheets.Count)
strName = InputBox("Name des neuen Tabellenblatt - oder OK für Kopie")
If Not strName = "" Then
ActiveSheet.Name = strName
Else
Exit Sub
End If
End Sub

@Ralf,
es handelt sich um eine Schraubenliste, bei der nur bestimmte Zellen ausgefüllt werden können.

Gruß Wagge
Anzeige
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 20:15:39
wagge
Halle Ralf,
der Code wird kopiert, funktioniert aber nur auf dem ersten Tabellenblatt.
Wenn ich im kopierten TB etwas ändere aktualisiert sich das erst wenn ich auf dem 1. Tabellenblatt was ändere.
Die Pivot Tabellen in den kopierten Tabellenblättern beziehen sich immer auf das 1. Tabellenblatt.
Muss ich da evtl. bei den Pivot Tabellen die Datenquelle anders beschreiben?

Gruß Wagge
Anzeige
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
22.12.2024 20:23:12
Onur
"mittels einem Button" ? Wo genau ist das Button? Und woher weisst du, dass das neue Makro nicht funktioniert?
AW: Aktualisierung funktioniert im kopierten Tabellenblatt nicht
23.12.2024 18:38:12
Piet
Hallo Waage

schmunzel, schmunzel, du hast dir doch selbst die Lösung schon vorgesagt. Aber sie nicht verstanden, oder?
Wenn ActiveSheet eine Aktivität haben will, dann gib sie ihm im Kopier Code. Kopiere "A1" nach "A1"
Bin gespannt ob der dumme kleine Trick dir hilft das Problem zu lösen. Excel kann ja nicht denken!

mfg Piet 

Sub NeuesTabellenblatt()

Dim strName As String

strName = InputBox("Name des neuen Tabellenblatt - oder OK für Kopie")

If strName = "" Then Exit Sub

ActiveSheet.Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = strName

'hilft dir dieses Copy dein Problem zu lösen??

ActiveSheet.Range("A1").Copy Range("A1")

End Sub
Anzeige
AW: Aktualisierung funktioniert im kopierten Tabellenblatt n
22.12.2024 20:32:43
wagge
Hallo Onur,
ich habe erkannt was das Problem ist. Es hat nichts mit dem Kopieren der TB zu tun.
Es liegt daran, dass die Pivot-Tabellen nach dem Kopieren immer noch als Datenquelle die Daten von dem 1. Tabellenblatt verwenden.
Jedes Tabellenblatt eine eigene Datenquelle.
Jetzt muss ich herausfinden, wie man es hinbekommt, dass beim Kopieren der Tabellenblätter auch die Pivot´s auf die Daten des kopierten TB beziehen.

Gruß Wagge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum