In ein Textfeld von einer Pivotabelle etwas kopier

Forumthread: In ein Textfeld von einer Pivotabelle etwas kopier

14.09.2016 09:59:33

einer

Hallo zusammen,
ich habe ein Diagramm anbei das Screenshot.
Userbild

in die 2 grauen Textfelder (Textfeld 4 & 5) möchte ich etwas kopiert haben. Eine Gesamtanzahl. Also es soll zbsp stehen "Gesamtanzahl 129". Einfach per Formel funktioniert nicht, kommt immer eine Fehlermeldung:
=PIVOTDATENZUORDNEN("Material";'Pivot SNR'!$A$3;"Zielland";"CHINA") TEXTFELD 4
=PIVOTDATENZUORDNEN("Material";'Pivot SNR'!$A$3;"Zielland";"SÜDAFRIKA") TERXTFELD 5
Es müsste halt eine Aktulalsierung noch dabei sein :)
Vielen Dank im Voraus.
lg
René

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: In ein Textfeld von einer Pivotabelle etwas kopier

15.09.2016 10:04:43

einer

AW: In ein Textfeld von einer Pivotabelle etwas kopier

15.09.2016 10:04:43

einer

Habe selbst das Problem gelöst, anbei mal die Lösung

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Textfeld 4").TextFrame.Characters.Text = "Gesamtanzahl" & " " & ActiveSheet. _
Range("J8")
ActiveSheet.Shapes("Textfeld 5").TextFrame.Characters.Text = "Gesamtanzahl" & " " & ActiveSheet. _
Range("J9")
End Sub

Infobox / Tutorial

Text in ein Textfeld von einer Pivotabelle kopieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Text in ein Textfeld von einer Pivotabelle zu kopieren, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Deine Excel-Datei: Stelle sicher, dass die Pivotabelle, in der Du arbeiten möchtest, bereits erstellt ist.
Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
- Wähle "Einfügen" > "Modul".

Füge den folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)
   ActiveSheet.Shapes("Textfeld 4").TextFrame.Characters.Text = "Gesamtanzahl" & " " & ActiveSheet.Range("J8")
   ActiveSheet.Shapes("Textfeld 5").TextFrame.Characters.Text = "Gesamtanzahl" & " " & ActiveSheet.Range("J9")
End Sub

Schließe den VBA-Editor: Speichere Deine Änderungen und schließe den Editor.
Teste die Funktion: Ändere die Werte in den Zellen J8 und J9, um zu sehen, ob die Textfelder aktualisiert werden.

Häufige Fehler und Lösungen

Fehler: Textfeld existiert nicht
- Lösung: Stelle sicher, dass die Namen der Textfelder ("Textfeld 4" und "Textfeld 5") korrekt sind. Du kannst die Namen in den Eigenschaften des Textfeldes überprüfen.
Fehler: Makro funktioniert nicht
- Lösung: Überprüfe, ob Makros in Deiner Excel-Anwendung aktiviert sind. Du kannst dies in den Excel-Optionen unter "Trust Center" einstellen.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch folgende Methoden ausprobieren:

Formeln verwenden: Verwende Formeln in angrenzenden Zellen, die dann manuell in die Textfelder kopiert werden.
Datenverknüpfung: Verlinke die Textfelder direkt mit Zellen, indem Du das Textfeld auswählst und in der Formelleiste =J8 oder =J9 eingibst.

Praktische Beispiele

Hier sind zwei praktische Beispiele, wie Du die oben genannten Schritte umsetzen kannst:

Beispiel 1: Wenn Du die Gesamtanzahl für "CHINA" berechnen möchtest, benutze die Formel:
```
=PIVOTDATENZUORDNEN("Material";'Pivot SNR'!$A$3;"Zielland";"CHINA")
```
und verlinke diese Zelle mit Deinem Textfeld.
Beispiel 2: Für "SÜDAFRIKA" kannst Du die gleiche Technik verwenden wie in Beispiel 1, aber die Zelle anpassen, wo das Ergebnis gespeichert wird.

Tipps für Profis

Automatisierung: Du kannst den VBA-Code so anpassen, dass er auch bei anderen Ereignissen wie Worksheet_Activate oder Worksheet_Calculate ausgeführt wird.
Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in Deinen VBA-Code ein, um mögliche Probleme bei der Ausführung abzufangen.

FAQ: Häufige Fragen

1. Kann ich mehrere Textfelder gleichzeitig aktualisieren?
Ja, Du kannst den VBA-Code so anpassen, dass mehrere Textfelder gleichzeitig aktualisiert werden, indem Du weitere Zeilen für die entsprechenden Textfelder hinzufügst.

2. Funktioniert das auf allen Excel-Versionen?
Ja, die beschriebenen Methoden sind in Excel-Versionen ab 2010 verfügbar, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

In ein Textfeld von einer Pivotabelle etwas kopier

Forumthread: In ein Textfeld von einer Pivotabelle etwas kopier

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Text in ein Textfeld von einer Pivotabelle kopieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread