2 intelligente Tabellen-Größe in Abhängigkeit

[Mick-DUS]

Hallo Zusammen

Ein komplexes Vorhaben in einer Überschrift zu beschreiben ist manchmal schwer!
Was hab ich vor:
Ich habe eine intelligente Tabelle "tab_Register" mit einer Spalte [POS] in der Positionsnummer stehen.
Auf einem anderen Tabellenblatt "Status" gibt es eine zweite intelligente Tabelle "tab_Status", die sich mit der Zeilenanzahl an meine Registertabelle dynamisch anpassen soll.
Hat die "tab_Register" 30 Zeilen, hat auch die "tab_Status" 30 Zeilen. Lösche ich oder füge ich Zeilen im Register dazu, ist es im Statusblatt gleich.
Wie kann ich das am sinnvollsten lösen?

Gruß
Michael

[schauan]

Hallöchen,

das wird wohl nur mit einem Makro gehen. Kannst Du denn nicht alles in eine Tabelle packen?

[Jockel]

off topic...

Hallo Michael, wieso gibst du in der Signatur und in deinem Profil unterschiedliche XL-Versionen an..?

[GMG-CC]

Moin,
mit 2010 könnte es auch ohne VBA gehen. Aber für genauere Hinweise fehlen mir einige Angaben und auch eibe Muster-Mappe.

[Mick-DUS]

Dank an Euch, dass ihr mir mit Euren Ideen weiterhelfen wollt.
Ich habe schon so einiges dazu ausprobiert und recherchiert, bleibe aber immer mal an dem ein oder anderen Lösungsansatz stecken.

@ Schauan:  das Tabellenblatt Register ist ein Art Mastertabelle, in der die Projektteile mit Nummern, Bezeichnung und anderen Zusatzinfos ,die je nach Projetkt unterschiedlich sein können, erfasst.
In den anderen Blättern werden verschiedene Infos verwaltet, wie zB der Projetkstatus. Da ich ja nur den Status von den Projektteilen beurteilen kann, die im Register erfasst sind, stelle ich mir eine dynamische Tabelle vor, die auf die Einträge der "Mastertabelle" reagiert. Nun könnte ich natürlich eine Formel in hundert Zeilen kopieren, aber viele Formeln in diversen Blättern machen die Mappe lahm und leider auch störanfällig für die verschieden Nutzer.
( im Grunde habe ich die Mappe vor vielen Jahen schon als starres Tabellen/Formelgerüst mit den ein oder anderen Makro gebaut, möchte nun aber aus reinem Spieltrieb das ganze optimieren, dynamischer halten und von Grund auf neu aufbauen)

@Jockel
Ich nutze Win7 und Excel 2010

@GMG-CC
wie ich oben schon erwähnt habe, würde ich gerne keine starre, leere Tabelle mit Formeln bestücken. Natürlich geht es nicht ganz ohne Formel, sofern man wie ich kein VBA Profi ist, jedoch nutze ich gerne die Intelligente Tabelle bei Excel, in der sich die Zeilen selbst erweitern und es auch nicht stört, wenn eine Zeile komplett gelöscht wird.
Ich füg mal ein Grundgerüst an, ohne Makros und noch rudimentär.

Freu mich auf weitere Ideen und Anregungen zum Basteln
Gruß
Michael

Hallo Zusammen

Ein komplexes Vorhaben in einer Überschrift zu beschreiben ist manchmal schwer!
Was hab ich vor:
Ich habe eine intelligente Tabelle "tab_Register" mit einer Spalte [POS] in der Positionsnummer stehen.
Auf einem anderen Tabellenblatt "Status" gibt es eine zweite intelligente Tabelle "tab_Status", die sich mit der Zeilenanzahl an meine Registertabelle dynamisch anpassen soll.
Hat die "tab_Register" 30 Zeilen, hat auch die "tab_Status" 30 Zeilen. Lösche ich oder füge ich Zeilen im Register dazu, ist es im Statusblatt gleich.
Wie kann ich das am sinnvollsten lösen?

Gruß
Michael

  Entw_10-2017_LEER.xlsx (Größe: 33,75 KB / Downloads: 5)

[GMG-CC]

Moin,
mit Makros/VBA: Ja
Mit Power Query (ohne Formeln) wahrscheinlich ja
ABER: Das wird, wenn ich mir da so ansehe, eine "Never ending story" und du wirst die Forenhilfe vermutlich sehr ausgiebig in Anspruch nehmen müssen. Aus dem Grund ziehe ich mich zurück ...

[Mick-DUS]

Hallo Forum

bin selbst auf eine Lösung gekommen, die funktioniert, aber bestimmt in der Codierung von einem Fachmann verbessert werden kann.
Ansatz ist folgender:
Anzahl der Zeilen meiner dynamischen Tabelle tab_TAB1 ermitteln, dann über ListObejects Methode ResizeRange den Wert an die zweite Tabelle übergeben.
Nach dem Löschen von Zeilen in Tabelle 1 verbleibt noch der alte Inhalt (den ich zuvor mittels Formel "=tab_TAB1[@Spalte1]" eingetragen habe), den ich dann markiere und lösche.

hier mein Testcode

Private Sub Worksheet_Activate()
Dim tab_size As Integer
tab_size = ThisWorkbook.Worksheets("Tabelle1").Range("a1")

ThisWorkbook.Worksheets("Tabelle1").Range("A1").Formula = "=TEXT((COUNTA(tab_TAB1[Spalte1])+3),""###"")"

With ActiveSheet
.ListObjects("tab_TAB2").Resize Range("$B$3:$G" & tab_size)
End With

Worksheets("Tabelle2").Range("$B$" & tab_size + 1 & ":$G$1000").Select
Selection.ClearContents

Worksheets("Tabelle2").Range("C4").Select

End Sub

Gruß
Michael