Add Zeile, wenn Fenster fixiert und Filter gesetzt

Einen schönen sonnigen Tag zusammen.
Wenn wir Excel manchmal besser verstehen würden ....
In einem Worksheet ist die Überschrift fixiert, zusätzlich ist ein Filter an. Über Code solle neue Zeilen hinzugefügt werden.
Alles getrennt ist kein Problem. Weil aber ein Hinzufügen bei gefilterten Worksheets nicht funktioniert, muss (wahrscheinlich) über die CustomViews gearbeitet werden. Dabei passiert jedoch folgendes: Wurde(n) die oberste(n) Zeilen herausgefiltert, dann wird die Fixierung der Tabelle auf die nächste sichtbare Zelle verlegt. Sichtbar wird dies, nachdem die Filterkriterien zurückgesetzt werden. Ein erneutes Setzen der Fixierung auf weggefilterte Zellen ist nicht möglich. So wie das dann ist soll das aber nicht sein ...
Wie kann ich Zeilen bei eine gefilterten Tabelle hinzufügen, ohne die Filterung und die Fixierung zu verlieren?
Hier ein kleines Beispiel: Nach dem Hinzufügen einer Zeile den Filter aufheben, dann ist die Fensterfixierung über die ersten Zeilen geschoben.
https://www.herber.de/bbs/user/85210.xlsm
Gruß, Arthur.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub einezeiledazu() Dim RowNr As Long ' Zeile am Ende hinzügen RowNr = ActiveSheet.UsedRange.Rows.Row + ActiveSheet.UsedRange.Rows.Count ActiveSheet.Range(RowNr & ":" & RowNr).EntireRow.Insert , CopyOrigin:= _ xlFormatFromLeftOrAbove End Sub

Hi zusammen.
Noch ein Versuch ...
Das Beispiel vereint den Versuch der bisherigen Lösung, basierend auf den Begebenheiten und Anforderungen.
Begebenheit: Die Tabelle ist fixiert, besitzt Filter.
Anforderung: Es müssen Zeilen hinzugefügt werden können (auch an anderen Positionen), wobei Filter und Fixierung erhalten bleiben müssen.
Nimmt man das Beispiel her, fügt über das Makro eine Zeile dazu und löscht danach den Filter aus Spalte B, sodass dort die Werte '123' wieder angezeigt werden, so sieht man, dass die Fixierung die Position verändert ist. Sie steht nun unter den '123'-Werten. Zuvor war sie auf $D$4. Dass die Zeile ganz am Ende eingefügt wird ist nicht zwingend, führt jedoch schon zu dem Problem uns sollte daher als Beispiel ausreichen.
CustomViews sind eingesetzt, weil die Filterung erhalten bleiben muss. Wenn Excel hier eine andere Möglichkeit bietet, die dann auch noch funktioniert, soll mir das ebenfalls recht sein. Nur stehen mir bisher lediglich die CustomViews zur Verfügung. Die Filter selbst wezuspeichern könnte umfangreich werden, weil es sehr unterschiedliche Vorgehen in Excel dafür gibt. Der Erhalt der Filterung ist wichtig.
In der Zwischenzeit habe ich dann noch bemerkt, dass das Setzen der Fixierung zudem nicht nur auf beispielsweise '$D$4', sondern auch noch auf Scrollen und ausgeblendete Spalten reagiert. Ist Spalte 'A' ausgeblendet, dann ist die Fixierungscolumn 3 anstelle der 4 für Spalte D.
Gruß, Arthur

Beliebteste Forumthreads (12 Monate)

Add Zeile, wenn Fenster fixiert und Filter gesetzt

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Add Zeile, wenn Fenster fixiert und Filter gesetzt

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread