Makro bei Änderung automatisch laufen lassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Sheets("BAB").Range("$C$3:$C$44").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd End Sub

Hallo Sepp,
danke, dass du es dir wenigstens durchliest.
Ich habe eine Datei mit 4 Tabellenblättern.
Das Urtabellenblatt, von dem alles ausgeht, ist das Tbl. Konto.
Dort stehen in der Spalte A und E verschiedene Konten Ziffern.
Diese werden nach einem bestimmten Verfahren in das Tbl. Lösung übertragen. Was wichtig ist: Wenn ich im Tbl. Konto in die Zelle A20 mit STRG + klicke, kann ich eine weitere Konten Ziffer aus dem Kontenplan eingeben. Das geht auch in der Spalte E. Im Tbl. Lösung werden diese Erweiterungen automatisch erfasst.
Bis hierhin ist alles prima.
Zum Tbl. Lösung:
Dort gibt es die Spalten G und H.
Diese beiden Spalten werden nur dann benötigt,
wenn in einer der Zellen (oder auch allen) N15, N16 und N17 ein Wert steht.
Steht dort kein Wert oder eine 0, sollen diese beiden Spalten verschwinden.
Das soll so eingerichtet sein, dass sich diese beiden Spalten einblenden, sobald in einer oder zweien oder allen drei Zellen ein Wert eingegeben wird.
Jetzt noch ein Zusatzwunsch:
An das Tbl. Lösung schließt sich das Tbl. BAB.
Hier sollen alle Kontenziffern der Spalte aus dem Tbl: Lösung übernommen werden, die größergleich 6000 sind. Hier habe ich mit einer Aggregat-Funktion herumgedoktert, die mir jemand für das Tbl. Lösung erstellt hat, sie funktioniert aber nicht (was ja wohl auch logisch ist).
Außerdem sollen mittels Makro im Tbl. BAB alle Zeilen gelöscht werden, bei denen in der Spalte C eine 0 Steht.
So, wenn du jetzt sagst, das ist mir zu viel, habe ich vollstes Verständnis, wenn du es machst, wäre es prima.
Danke
Manfred
https://www.herber.de/bbs/user/116514.xlsx

Hallo Sepp,
zunächst einmal vielen Dank.
es ergeben sich noch kleinere Probleme:
Tbl. "Lösung"
Schau einmal auf die Zellen J30 und J31 und I31, da bekomme ich eine Fehlermeldung.
Tbl. "BAB"
C18 und C19 sollen ausgefiltert werden, da es sich um 0,00 Beträge handelt. Dazu hast du mir ein Makro geschrieben, das dir sicherlich noch vorliegt. Nur, wenn ich dieses Makro einsetze, kann ich unterhalb des letzten Eintrags keine Summenbildung vornehmen. Wenn in Spalte A keine Kontenziffer mehr steht, soll eine Summe gebildet werden. Das bekomme ich aber nicht hin, sobald die 0er gefiltert werden, selbst mit "TEILERGEBNIS" nicht.
Ich habe einmal eine BABvorlage mit als Tbl.eingepackt, da siehst du, wie es letztendlich aussehen soll.
https://www.herber.de/bbs/user/116520.xlsm
Doch jetzt schon einmal vielen Dank, dass du dich meiner annimmst.
Grüße
Manfred

Beliebteste Forumthreads (12 Monate)

Makro bei Änderung automatisch laufen lassen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread