Makro per Worksheet_Calculate() starten

Hallo Excelprofis!
Habe mein Problem gestern schon mal geschildert. Bin auch Dank der Hilfe von Daniel schon etwas weiter.
Ich habe eine Mappe, bei der mittels Verknüpfungen 4 andere Mappe zusammengeführt werden.
Mit Hilfe eines Autofilter Makros werden alle Zeilen im Bereich A7-A109 die leer sind ausgeblendet.
Mein Problem ist jetzt noch, dass dieses Makro jedesmal ausgeführt werden muss, wenn sich im Bereich A7-A109 der Zellwert ändert, also wenn in den Ursprungsmappen ein Wert geändert wird.
Ich habe von VBA gar keine Ahnung, habe mir aber folgendes zusammengestückelt.

Private Sub Worksheet_Calculate()
Dim zelle As Range
Dim bereich As Range
Set bereich = ActiveSheet.Range("A7:A109")
For Each zelle In bereich
If Not zelle.Value = "" Then
Call Autofilter
End Sub

Wenn jetzt bei den Ursprungsmappen etwas geändert wird, zeigt es mir in meiner Mappe folgenden Fehler an.
Call Autofilter - Unzulässige Verwendung einer Eigenschaft.
Kann mir Jemand helfen.
Danke schon mal.
mfg, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Calculate() EinAusblendenSchnell End Sub Sub EinAusblendenLangsam() Dim zelle As Range Dim bereich As Range Set bereich = ActiveSheet.Range("A7:A109") 'Bildschirmflackern ausschalten, Trigger ausschalten Application.ScreenUpdating = False Application.EnableEvents = False 'alle Zeilen einblenden bereich.EntireRow.Hidden = True 'jede Zeile prüfen For Each zelle In bereich 'wenn Zelleninhalt null, dann diese Zeile ausblenden If zelle 0 Then 'Call FilternBereich zelle.EntireRow.Hidden = False End If Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub Sub EinAusblendenSchnell() Dim bereich As Range Set bereich = ActiveSheet.Range("A7:A109") 'Trigger auscchalten Application.EnableEvents = False 'alles einblenden bereich.EntireRow.Hidden = False 'alle Zellen mit Inhalt = 0 ausblenden bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = True Application.EnableEvents = True End Sub

Hi Andreas,
Kann man statt "ActiveSheet.Range" auch einen eindeutigen Blattnamen angeben
ja. Statt dem aktiven Blatt

Dim bereich As Range
Set bereich = ActiveSheet.Range("A7:A109")

eindeutig so:

Dim bereich As Range
Set bereich = sheets("DerNameDerTabelleInAnfuehrungsstichen").Range("A7:A109")

Sub EinAusblendenLangsam() - die Zeilen der Ursprungstabelle ausgeblendet
das kann nicht sein - es werden Zeilen der AKTIVEN Tabelle ausgeblendet (siehe oben). Wenn die Ursprungstabelle AKTIV ist, dann werden natürlich in ihr die Daten ausgeblendet. Abhilfe dafür hast du ja jetzt.
in der Variante - Sub EinAusblendenSchnell() - kommt eine Fehlermeldung.
Wenn Fehlermeldungen kommen, ist es hilfreich diese ins Forum zu posten, und dazu die Zeile in der er Auftritt. Wenn der Code bei mir nicht funktioniert hätte, hätte ich ihn ja nicht gepostet. Jetzt muss ich deinen Fehler mittels Glaskugel erraten. Mal sehen .... ist es: Runtime Error 1004: No cells where found. in der Zeile bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = True ?
In deiner Musterdatei gab es Zellen, die per Formelergebniss den Inhalt 0 haben. SpecialCells(xlCellTypeFormulas, 1) sucht nach eben diesen, um sie auszublenden. Sind keine Zellen mit Formelergebniss 0 vorhanden (wenn eine echte 0 in den Zellen steht, hilft das auch nicht!) dann gibts o.g. Fehlercode. Eine richtige Fehlerbehandlung dazu werde ich jetzt nicht basteln, das überfordert dein VBA-Level. Schreib einfach on error resume next als erste Zeile in das Makro, dann werden alle Fehler ignoriert. Noch besser: Sorge dafür, dass - analog zu deiner Mustertabelle - dein Master genauso aufgebaut ist (also mit 0en als Formelergebniss). Denn dann funktioniert das Makro sogar!
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Makro per Worksheet_Calculate() starten

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro per Worksheet_Calculate() starten

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread