Hallo zusammen,
habe mal wieder ein kleines Problem. Ich habe eine Mappe mit 4 Tabellen. Das Tabellenblatt 3 soll nun sortiert werden und zwar nach Kat H1, H2, H3 bzw. D1 und D2 in Spalte B sowie dem Ergebnis in Spalte E. Zum Schluss sollte es dann so aussehen wie ich es in Tabelle 4 dargestellt habe mit Überschirft jeweils.
Kann man das per VBA darstellen auch wenn das Tabellenblatt 3 ca. 50 Zeilen am Schluss hat ??
Gruß Fred[
attachment=33530]
Hallo,
grundsätzlich scheint mir Pivot hier das geeignetere Mittel zu sein.
Hallo Fred,
A) In der Anlage eine programmierte Lösung.
B) Bedingungen
1. Die Liste aus Tabelle3 wird nach dem ersten Buchstaben gruppiert.
2. Innerhalb der Gruppen ist die Liste aus Tabelle3 schon sortiert.
3. Der Platz steht in Tabelle3 und in der Ausbabe in der ersten Spalte des Bereiches.
Falls das nicht die richtigen Bedingungen sind, müstest du die Bedingungen genauer spezifizieren und das Programm müste erweitert werden.
Die Anzahl der zu übertragenden Spalten ist beliebig (abhängig vor der Liste in Tabelle3)
C) Namen
1. Das Programm nutzt zwei benannte Zellen die beliebig in der Datei positioniert sein können ("Liste" und"Ausgabe")
2. Das Programm nutzt zur Zeit zum Lesen der Liste und Löschen der alten Ausgabe die Funktion "CurrentRegion". Daher sind Leerzeilen zur Zeit nicht möglich.
Die Frage ist, ob es möglich ist die Ausgabe auf Tabelle 4 automatisch erfolgen zu lassen, also wenn sich die Tab. 3 ändert, dass eine automatische Änderung in Tab. 4 erfolgt.
Gruß Fred
Hallöchen,
wenn Tabelle 3 und 4 gleich aussehen sollen könntest Du bei Aktivierung der Tabelle 4, also wenn Du da rein wechselst, darin einfach eine Kopie von Tabelle 3 erzeugen.
Das würde dann so gehen- der Code kommt ins Tabellenblattmodul von Tabelle4
Private Sub Worksheet_Activate()
Sheets("Tabelle3").UsedRange.Copy Range("A1")
End Sub
Nein so war das nicht gedacht, hab ja bislang von Ego die Tabelle bekommen die ja soweit schon passt, nur bei einer Eingabe in Tabelle 3 muss ich nochmals auf den Button drücken, damit das ganze in Tabelle 4 ist. Genau dieses Drücken wollte ich vermeiden wenn ich mehrere Eingaben habe. Da wäre es cool wenn dann die Eingabe in Tab. 3 auch gleich sortiert in Tab. 4 erscheinen würde.
Gruß Fred