Office: (Office 365) Tabellen kombinieren

Grüße,

ich würde gerne in meiner Excel-Datei, mehrere Tabellen in einer Gesamtübersicht darstellen.

Beispiele.
Tabelle1 soll die Gesamtübersicht werden
Tabelle2 gibt Auskunft über Geräte(mit Infos wie IP) und welche Kosten diese verursachen
Tabelle3 enthält alle Smartphones

In der Gesamtübersicht möchte ich alle Geräte aufgelistet haben und nach Typ sortieren können, wobei "Typ" der Titel einer Spalte ist, jedoch brauche ich hier die Kosten nicht, sondern nur Infos zu den Geräten, wie Anwender oder IP.

Wie kann ich ganze Spalten auf verschiedenen Tabellen herausnehmen und diese in einer Gesamtübersicht kombinieren mit der Möglichkeit die Spalte zur sortieren?

Mit
=Tabelle2[#Daten] bekomme ich alles aus einer Tabelle angezeigt, wie kann ich das eingrenzen in die jeweiligen Spalten die ich möchte?

Theoretisch:
Gesamtübersicht(Spalte1) =Tabelle2(Spalte1) + Tabelle3(Spalte1)

 

Die Kopfzeile einer intelligenten Tabelle bekommst Du mit
=Tabelle1[[#Kopfzeilen];[Name]]
den Inhalt einer Spalte mit
=Tabelle1[@Name]
vorausgesetzt die Spalte hat die Überschrift Name

 

Hallo,

in Ergänzung zu AlterDresdner gibt es in folgendem Microsoft-Link alles Wissenswerte zu strukturierten ("intelligenten") Tabellen nachzulesen - und wie man auf sie zugreift:

Verwenden von strukturierten Verweisen für Excel-Tabellen (microsoft.com)

 

Danke für die Infos, das hat mich schon ein Stückchen weitergebracht, jetzt bräuchte ich noch die Lösung wie ich 2 Spalten aus verschiedenen Tabellen kombiniere und dann alle Zellen damit ausfülle.

Das müsste dann irgendwie so Aussehen:

=TabelleA[@IDs]:TabelleB[@IDs]
Es soll beide Spalten "IDs" aus beiden Tabellen nehmen und alle Daten dann in eine Spalte untereinander aufreihen.

 

Hallo, ein Range über mehrere Blätter? Habe ich noch nicht gesehen.
Könnte man mitr VBA realisieren, aber m.E. nicht als Formel.
Gruß der ALteDresdner

 

Das macht du am besten PowerQuery und nicht mit VBA. PowerQuery findest du in Excel im Ribbon Daten, wenn du ein sehr altes Excel hast, heisst es noch Get & Transform.

 

Okay PowerQuery habe ich nur selten mal benutzt, kann mir jemand einen Screenshot oder etwas Beihilfe anbieten, wie ich aus den einzelnen Tabellen die Spalten kombiniere?

Muss man dann bei neuen Zeilen innerhalb der Spalte alles nochmal über PowerQuery hinzufügen?
Sind die Einträge über PowerQuery immer UpToDate, heißt wenn ich in der Tabelle einen Wert verändere, das er mir sofort in der Gesamtübersicht angezeigt wird?

 

Das ist ungefähr so als wenn du gerne ein Foto von einem Auto haben möchtest um autofahren zu lernen.
Das von dir beschriebene Problem ist mit PowerQuery wirklich extrem leicht zu lösen.

Länger als eine Stunde brauchst du nicht um dir das KnowHow anzueignen.
Schau dir erstmal an was das überhaupt ist:
Power Query ganz leicht erklärt! - Excelhero

 

1) Ja. 2) Nein.

 

Wenn das so ist, würde es den ganzen Plan über Bord werfen :/

 

Das macht keinen Sinnn. Denn es ist up-to-date sobald du die Query refreshed. Das kann du manuell mit einem rechtsklick auf die Tabelle machen oder mit 3 Zeilen VBA (wenn man die zeile sub und end sub mittzählt) die Query beim aufrufen des Arbeitsblatts refreshen.

Und die neuen Zeilen werden beim Refresh eingefügt - sieh dir erstmal an was PowerQuery macht.

 

Grüße, nach langem Googeln kam ich auf PivotTabellen, so sollte es klappen, dort kann ich mit rechtsklick aktualisieren und habe alle Einträge zusammen.

 

Top erklärt:

 

Kleine Nebenfrage:
Ist es möglich ein Tabellenblatt so zu sperren, das Rechtsklick & Aktualisieren funktioniert aber das bearbeiten der Zeilen nicht?

 

Jein. Das Ziel ist erreichbar aber der Weg ein anderer.

Andere Lösung:
Das komplette Arbeitsblatt sperren und einen Button "Update" einbauen.

Code:

ActiveSheet.Unprotect
ActiveWorkbook.Connections("Query - Queryname").Refresh
ActiveSheet.Unprotect

Die Optionen für Protect kannst du gut mit dem Recordern sammeln, ich setze quasi nie Passwörter, da Anwender die wissen wo der Unlock Button ist auch googeln können wie man das umgeht.


Die meist bessere Lösung:
Updaten wenn das Worksheet aufgerufen wird.

Code:

Private Sub Worksheet_Activate()
Worksheets("Worksheetname").ListObjects("Tabellenname").QueryTable.Refresh BackgroundQuery:=False
End Sub

Info:
Auch Pivottabellen brauchen ein Update genau wie PowerQueries um up-to-date zu sein.
Dazu benutze ich:

Code:

Private Sub Worksheet_Activate()
    Dim xpt As PivotTable
    With ActiveSheet
        For Each xpt In .PivotTables
            xpt.RefreshTable
            xpt.TableStyle2 = "PivotStylesheet"
        Next xpt
    End With
    Range("12:12").Style = "HeaderRow"
End Sub