Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datenanalyse
 10.03.2017 11:16:16 Tom
NotSolved
10.03.2017 11:36:46 Tom
NotSolved

Ansicht des Beitrags:
Von:
Tom		 Datum:
10.03.2017 11:16:16		 Views:
964		 Rating:
     
Antwort:
  Ja
Thema:
VBA Datenanalyse
Hallo VBA-Profis! Ich hoffe Ihr könnt mir mit meinem Problem helfen und sage jetzt schon mal danke! Ausgangssituation: Ich habe in einer Excel-Datei mehrere Tabellenblätter. In Tabellenblatt A habe ich eine Pivot-Tabelle erstellt, welche sich auf Daten von Tabelle 0 bezieht. Die Datensätze aus Tabelle 0 sind Kundendaten und beinhalten mehrere Spalten. Mittels der Pivot-Tabelle kann ich diese übersichtlich darstellen. Die Pivot-Tabelle wird um zwei Datenschnitte ergänzt. Ein Datenschnitt gibt an für welche Abteilung der Datensatz relevant ist. Der zweite Datenschnitt gibt an wie wichtig der Datensatz für die Abteilung ist (Auswahlmöglichkeiten: hoch, gering). In der Tabelle B möchte ich diese Auswahl nun in Tabellenform auflisten. Bsp: Ich wähle Abteilung X aus beim ersten Datenschnitt und gleichzeitig beim zweiten Datenschnitt Interesse:hoch. Jetzt möchte ich, dass diese Ergebnisse in die Tabelle von Tabellenblatt B übertragen werden. Mittels der Auswahl einer Checkbox. Die Tabelle in Tabellenblatt B hat zwei Spalten. In der einen Spalte sollen alle mit Interesse: hoch ausgewählten Datensätze erscheinen und in der zweiten Spalte analog für gering. Für die Auswahl Interesse:Gering soll auch hier eine Checkbox auftauchen, die analog wie vorhin beschrieben funktioniert. Und zwar möchte ich nur eine bestimmte Zeilenbeschriftung der Pivot-Tabelle für jeden Datensatz übertragen. Nämlich den Namen des Datensatzes, gleichzeitig die erste Zeilenbeschriftung eines Datensatzes der Pivot-Tabelle. Bisherige Lösung: Private Sub CheckBox1_Click() Worksheets("A").Range("A4").Copy _ Destination:=Worksheets("B").Range("A7") Worksheets("A").Range("A12").Copy _ Destination:=Worksheets("B").Range("A8") Worksheets("A").Range("A20").Copy _ Destination:=Worksheets("B").Range("A9") usw. End Sub Das Problem bei dieser Lösung ist, dass es stumpf runterkopiert und quasi nicht erkennt, welchen Datensatz ich eigentlich nur haben möchte. Was ich haben möchte ist quasi also eine Definition, das er mir nur die bestimmte Zeilenbeschriftung der Pivottabelle von Tabellenblatt A in die Tabelle von Tabellenblatt B überträgt und nichts anderes (auch keine leeren Felder). Bin Für jeden Tipp dankbar und hoffe Ihr könnt mir bei meinem Problem und bescheidenen Programmierkenntnissen helfen. Besten Dank Tom

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datenanalyse
 10.03.2017 11:16:16 Tom
NotSolved
10.03.2017 11:36:46 Tom
NotSolved