Button beim Kopieren ohne Funktion

Forumthread: Button beim Kopieren ohne Funktion
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Button beim Kopieren ohne Funktion

11.12.2024 00:50:46

Wagge

Hallo Zusammen,
ich habe eine Datei zur Schraubenberechnung erstellt. Die Datei hat ein paar Pivot-Tabellen, die ich mit einem Button über ein Makro aktualisiere.
Ebenfalls ist ein Button installiert, der ein neues Tabellenblatt einfügt und ein Button, der die eingetragenen Werte löscht. Jetzt ist es so, dass bei dem kopierten Tabellenblatt nur zwei von den beiden Buttons funktionieren. Der für die Aktualisierung der Pivot-Tabellen tut nicht. An was kann das liegen?

LG Wagge

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Button beim Kopieren ohne Funktion

11.12.2024 01:20:32

Piet
AW: Button beim Kopieren ohne Funktion

11.12.2024 07:54:13

Wagge
AW: Button beim Kopieren ohne Funktion

11.12.2024 09:21:36

Marc
AW: Button beim Kopieren ohne Funktion

11.12.2024 10:37:07

Wagge

AW: Button beim Kopieren ohne Funktion

11.12.2024 01:20:32

Piet

Hallo

ohne die Datei zu sehen kpnnen wir nur raten. Hat der Button ein zugewiesenes Makro?
Kannst du prüfen, indem du dem Button mit der rechten Maustaste ein Makro zuweisen willst.

mfg Piet

AW: Button beim Kopieren ohne Funktion

11.12.2024 07:54:13

Wagge

Hallo Piet,
anbei das Makro. Allerdings ist es mittlerweile so, dass wenn ich auf den Button klicke sich alle Tabellenblätter mit PivotTabellen aktualisieren.

Sub RefreshPivot()
'
' RefreshPivot Makro

Range("AM10").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("B10").Select
End Sub

AW: Button beim Kopieren ohne Funktion

11.12.2024 09:21:36

Marc

Aber das Makro macht ja auch nichts anderes als Pivot zu aktualisieren

das ist ja nichts drin was eine neue Tabelle einfügt oder irgendwelche Werte von kopiert oder einfügt...

AW: Button beim Kopieren ohne Funktion

11.12.2024 10:37:07

Wagge

Hallo Marc,
hier das Makro, das auf dem Button "Neues Tabellenblatt" hinterlegt ist.

Sub NeuesTB()
'
' NeuesTB Makro
'
Sheets("400 (1)").Select
Sheets("400 (1)").Copy Before:=Sheets(1)
Range("B10").Select
End Sub

Ich lade mal die Datei hoch.

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