Autofilter: Problem mit verknüpften Spalten

Hallo Leute,
ich habe ein kompliziertes Problem für einen echten Excel-Profi:
ich habe ein Excel-Projekt das aus mehreren miteinander verknüpften Mappen mit vielen, vielen verknüpften Blättern besteht.
Diese enthalten umfangreiche Berechnungen die über mehrere Jahre.
Um nicht immer alles ausdrucken zu müssen arbeite ich mit einem Benutzerdefinierten Autofilter der mir jeweils nur die Zeilen eines Blattes zeigen/drucken soll die in dieser Steuerungs-Spalte eine 1 enthalten.
Ich habe z.B. ein Blatt1 in Mappe1 nur für diese Ausdrucksteuerung welches vordefinierte Spalten enthält und dem jeweils nur die Zeilen eine 1 enthalten,
die dann gedruckt werden sollen,
z.B. eine Spalte für 2005, eine Spalte für 2006 usw. in denen jeweils nur für die 12 Zeilen des jeweiligen Jahres und die ansonsten anderen immer mit zu druckenden Zeilen eine 1 steht.
In der letzten Spalte des Blattes1 befindet sich die jeweils aktuelle gewünschte Ausdrucksteuerung für alle anderen Blätter.
Um die Ausdrucksteuerung aller anderen Blätter zu ändern
kopiere ich jeweils die ganze Spalte für das gewünschte Jahr in diese letzte Spalte.
Alle anderen Blätter in allen Mappen haben jeweils eine Drucksteuerungsspalte als hinterste Spalte.
Diese letzten Spalten enthalten jeweils anfangs beschriebene benutzerdefinierte Autofilterfunktion im Spaltenkopf.
Nun funktioniert die Sache aber nicht so wie ich das erwartet habe:
wenn ich auf Blatt1 in Mappe1 eine andere Spalte in die hintere Spalte kopiere
dann erscheint ihr Inhalt zwar richtig auf allen anderen Blättern,
nur die Autofiltern-Funktion funktioniert nicht automatisch mit den geänderten Werten:
erst wenn ich auf einem Blatt auf den blauen Pfeil klicke und danach die 1 auswähle werden nur die gewünschten Zeilen angezeigt, so wie ich das möchte;
ich müsste mir also immer alle Blätter einzeln vornehmen,
auf den blauen Pfeil klicken und
die benutzerdefinierte 1 auswählen
damit nur die gewünschten Zeilen angezeigt werden.
das wollte ich aber gerade vermeiden!
wie funktioniert das so wie ich es gerne hätte,
also automatisch auf allen Seiten aller gleichzeitig geöffneten Mappen?
Grüsse, Susi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AutoFilterDrucken() 'Setzt den Autofilter in den Blättern neu auf 1 für das Drucken Dim objWb As Workbook, objWks As Worksheet Dim objFilter As Filter, objFilterBereich As Range Dim lngSpalteFilter As Long On Error GoTo Fehler Application.ScreenUpdating = False For Each objWb In Workbooks 'nur eingeblendete Mappen abarbeiten If Application.Windows(objWb.Name).Visible = True Then For Each objWks In objWb.Worksheets Select Case objWks.Name Case "Blatt1", "TabelleXYZ" 'Ausnahmen - Tabellenblattnamen anpassen!!!! 'Namen der Blätter in denen der Autofilter nicht gesetzt werden soll 'do nothing Case Else With objWks 'Prüfen, ob Autofilter im Blatt aktiv ist If .AutoFilterMode = True Then 'ggf. Alle Daten einblenden For Each objFilter In .AutoFilter.Filters If objFilter.On = True Then .ShowAllData Exit For End If Next 'Aktuell eingestellten Bereich des Autofilters merken Set objFilterBereich = .AutoFilter.Range 'Letzte Spalte mit Druckersteuerung ermitteln 'Falls diese Spalte in allen Blättern einen Eintrag in der Spaltentitelzeile _ hat, dann kann das "+ 1" in der nächsten Zeile entfallen 'Die +1 dient dazu, dass "xlToLeft" auf eine Zelle mit Inhalt in der _ Druckersteuerungsspalte trifft. Also eine Zelle mit Wert oder Formel lngSpalteFilter = .Cells(objFilterBereich.Row + 1, _ .Columns.Count).End(xlToLeft).Column 'Filter setzen objFilterBereich.AutoFilter Field:=lngSpalteFilter _ - objFilterBereich.Column + 1, Criteria1:=1 End If End With End Select Next End If Next Application.ScreenUpdating = True MsgBox "Alle Autofilter für Drucksteuerung auf 1 gesetzt" Fehler: If Err.Number 0 Then MsgBox "Fehler Nr.: " & Err.Number & vbLf & Err.Description End If Set objWb = Nothing: Set objWks = Nothing Set objFilter = Nothing: Set objFilterBereich = Nothing End Sub

Sub AutoFilterDrucken() 'Setzt den Autofilter in den Blättern neu auf 1 für das Drucken Dim objWb As Workbook, objWks As Worksheet Dim objFilterBereich As Range Dim lngSpalteFilter As Long Const Druckzeile As Long = 1 'Zeile in den Blättern zum Ermitteln der Spalte für _ den Autofilter = Titelzeile des Autofilters, ggf. ändern On Error GoTo Fehler Application.ScreenUpdating = False For Each objWb In Workbooks 'nur eingeblendete Mappen abarbeiten If Application.Windows(objWb.Name).Visible = True Then 'Arbeitsmappe in der Filter nicht gesetzt werden soll Select Case LCase(objWb.Name) Case "druckautofilter.xls" 'ggf Namen anpassen/ergänzen 'Filter in Mappe mit Drucksteuerung nicht setzen Case Else For Each objWks In objWb.Worksheets Select Case objWks.Name Case "Blatt1", "TabelleXYZ" 'Ausnahmen - Tabellenblattnamen anpassen!!!! 'Namen der Blätter in denen der Autofilter nicht gesetzt werden soll 'do nothing Case Else With objWks 'Letzte Spalte mit Druckersteuerung in Druckzeile ermitteln lngSpalteFilter = .Cells(Druckzeile, .Columns.Count).End(xlToLeft).Column 'prüfen ob Blatt mit Druckspalte (Spalte enthält $-Zeichen) If .Cells(Druckzeile, lngSpalteFilter).Value = "$" Then 'Prüfen, ob Autofilter im Blatt aktiv ist If .AutoFilterMode = True Then .AutoFilterMode = False 'vorhanden Autofilter abschalten End If 'Bereich des Autofilters setzen (Druckzeile bis letzte Zeile) Set objFilterBereich = .Range(.Cells(Druckzeile, lngSpalteFilter), _ .Cells(.Rows.Count, lngSpalteFilter).End(xlUp)) 'Autofilter setzen in Drucksteuerungs-Spalte objFilterBereich.AutoFilter Field:=1, Criteria1:=1 'in den den beiden nächsten zeilen das Kommentierungszeichen löschen, wenn du das Blatt _ sofort drucken und den Filter wieder abschalten willst '.PrintOut Preview:=False 'Blatt Drucken ohne Seitenvorschau '.AutoFilterMode = False 'Autofilter wieder abschalten Else 'was tun in/mit den anderen Blättern ohne Druckspalte '.PrintOut Preview:=False 'Drucken ohne Seitenvorschau End If End With End Select Next objWks End Select End If Next objWb Application.ScreenUpdating = True MsgBox "Alle Autofilter für Drucksteuerung auf 1 gesetzt" Fehler: If Err.Number 0 Then MsgBox "Fehler Nr.: " & Err.Number & vbLf & Err.Description End If Set objWb = Nothing: Set objWks = Nothing Set objFilterBereich = Nothing End Sub

Hallo Susi,
so sehr viel übersichtlicher wird die Prozedur dadurch auch nicht.
Außerdem müssen mit dem Start des Projektes schon die Werte für die Druckersteuerung gesetzt sein bzw. beim Projektstart gesetzt werden bevor die Blätter in den Arbeitsmappen abgearbeitet werden, um den Autofilter zu setzen.
Nachfolgend die 3 Teilgerüste des bisherigen Makros, die du an passender Stelle in deines bisherigenMakro einfügen muss.
Einfacher ist es aber wahrscheinlich, wenn du das Makro so wie es ist zum Laufen bringst, dann als zusätzlich Prozedur in dein Modul mit dem Startmakro kopierst und es am Ende der Startprozedur mit
Call AutofilterDrucken
startest.
Gruß
Franz


Sub AutoFilterDrucken()
'Variablendeklarationen  am Anfang der Prozedur einfügen
'Setzt den Autofilter in den Blättern neu auf 1 für das Drucken
Dim objWks As Worksheet
Dim objFilterBereich As Range
Dim lngSpalteFilter As Long
Const Druckzeile As Long = 1 'Zeile in den Blättern zum Ermitteln der Spalte für _
den Autofilter = Titelzeile des Autofilters, ggf. ändern
On Error GoTo Fehler
'ab hier an passender Stelle einfügen wo die entsprechenden Blatt aktiv sind
Application.ScreenUpdating = False
Set objWks = ActiveSheet
Select Case objWks.Name
Case "Blatt1", "TabelleXYZ" 'Ausnahmen - Tabellenblattnamen anpassen!!!!
'Namen der Blätter in denen der Autofilter nicht gesetzt werden soll
'do nothing
Case Else
With objWks
'Letzte Spalte mit Druckersteuerung in Druckzeile ermitteln
lngSpalteFilter = .Cells(Druckzeile, .Columns.Count).End(xlToLeft).Column
'prüfen ob Blatt mit Druckspalte (Spalte enthält $-Zeichen)
If .Cells(Druckzeile, lngSpalteFilter).Value = "$" Then
'Prüfen, ob Autofilter im Blatt aktiv ist
If .AutoFilterMode = True Then
.AutoFilterMode = False 'vorhanden Autofilter abschalten
End If
'Bereich des Autofilters setzen (Druckzeile bis letzte Zeile)
Set objFilterBereich = .Range(.Cells(Druckzeile, lngSpalteFilter), _
.Cells(.Rows.Count, lngSpalteFilter).End(xlUp))
'Autofilter setzen in Drucksteuerungs-Spalte
objFilterBereich.AutoFilter Field:=1, Criteria1:=1
'in den den beiden nächsten zeilen das Kommentierungszeichen löschen, wenn du das Blatt _
sofort drucken und den Filter wieder abschalten willst
'.PrintOut Preview:=False 'Blatt Drucken ohne Seitenvorschau
'.AutoFilterMode = False 'Autofilter wieder abschalten
Else
'was tun in/mit den anderen Blättern ohne Druckspalte
'.PrintOut Preview:=False 'Drucken ohne Seitenvorschau
End If
End With
End Select
Application.ScreenUpdating = True
'Diesen Teil am Ende der Prozedur einfügen
Fehler:
If Err.Number  0 Then
MsgBox "Fehler Nr.: " & Err.Number & vbLf & Err.Description
End If
Set objWks = Nothing
Set objFilterBereich = Nothing
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Autofilter: Problem mit verknüpften Spalten

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter: Problem mit verknüpften Spalten

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread