Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel Tabelle gefiltert auf neues Tabellenblatt

Frage Microsoft Microsoft Office

Mitglied: Florian86

Florian86 (Level 1) - Jetzt verbinden

10.08.2014, aktualisiert 11.08.2014, 4120 Aufrufe, 3 Kommentare

Hallo,

ich habe folgendes Problem und zwar möchte ich eine Excel Tabelle mit folgenden Aufbau

Datum Lfd. Nr. Menge Abnehmer
Mo 05.06.2014 2014/021 20568 AHVG
DI 06.06.2014 2014/022 256 Ilm
MI 07.06.2014 2014/023 258 Beck
DO 08.06.2014 2014/024 269 Windisch
FR 09.06.2014 2014/025 23587 AHVG

gefiltert auf die anderen Tabellenblätter "AHVG" und "Ilm, Beck, Windisch" übertragen.
Auf dem Tabellenblatt AHVG dürfen nur die Zeilen angezeigt werden mit Abnehmer AHVG und
andersherum auf dem 2.Tabellenblatt auch nur die mit Ilm, Beck und Windisch.


Ich bekomme das auch hin mit einem Standard oder Spezialfilter ist ja beides möglich, nur
soll das so funktionieren das wenn ich in meine Ausgangstabelle mit allen Werten erweitere
die Ergebnisse auch automatisch in den anderen beiden Tabellenblättern sichtbar werden.
Und genau das ist auch mein Problem!!!! ( Wenn möglich ohne Makro )

Ich danke euch für eure Antworten...

Mit freundlichen Grüßen

Florian86
Mitglied: colinardo
LÖSUNG 10.08.2014, aktualisiert 11.08.2014
Hallo Florian86,
eine Lösung wäre eine Pivot-Tabelle die du nach Bedarf filtern kannst. Natürlich kannst du sie auch auf ein anderes Blatt schieben. Für ein Aktualisieren dieser, wählst du im Kontextmenü des Datenbereiches Aktualisieren. Wenn dieser Schritt zu viel "Arbeit" ist lässt sich Dieser bei Bedarf mit einem Einzeiler-VBA auch problemlos automatisieren.

Grüße Uwe
Bitte warten ..
Mitglied: Florian86
11.08.2014 um 09:39 Uhr
Hallo,

ich habe das soweit hinbekommen. Jetzt benötige ich nur noch ein Code der Bei Zelländerung des jeweiligen Tabellenblattes
den Autofilter aktualisiert.

Hier meine Beispielexcel:

https://www.dropbox.com/s/v4xn1p0dd8igcwu/Flori.xlsx

Ich trage nun was in Tabelle1 hinzu und muss aber immer in Arbeitsblatt AHVG den Filter aktualisieren.
Dies soll automatisch gehen.

Ich habe schon so etwas gefunden....

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
ActiveSheet.AutoFilter.ApplyFilter
End If
End Sub

nur betrifft das ja nur eine Zelle oder ????

Mit freundlichen Grüßen

Florian 86
Bitte warten ..
Mitglied: colinardo
LÖSUNG 11.08.2014, aktualisiert um 10:35 Uhr
Moin,
wenn du es unbedingt so machen willst, dann fügst du folgenden Code in den Codeabschnitt des ersten Worksheets ein:
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    'Range bei dem eine Änderung etwas bewirken soll 
03.
    Set changeRange = Range("A:E") 
04.
    If Not Application.Intersect(changeRange, Target) Is Nothing Then 
05.
        'Filter 1. Worksheet 
06.
        Worksheets("AHVG").Range("A:E").AutoFilter Field:=5, Criteria1:="AHVG" 
07.
        'Filter 2. Worksheet 
08.
        Worksheets("Ilm, Windisch, Beck").Range("A:E").AutoFilter Field:=5, Criteria1:=Array("Beck", "Ilm", "Windisch"), Operator:=xlFilterValues 
09.
    End If 
10.
End Sub
Alternativ, wenn du die Filter nicht im Code angeben willst, geht es auch gekürzt so (WICHTIG: auch wieder im Codeabschnitt des ersten Worksheets einfügen, sonste funktioniert das Event nicht):
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Not Application.Intersect(Range("A:E"), Target) Is Nothing Then 
03.
        Worksheets(2).AutoFilter.ApplyFilter 
04.
        Worksheets(3).AutoFilter.ApplyFilter 
05.
    End If 
06.
End Sub
Grüße Uwe

p.s. beim zweiten Sheet solltest du den Blattschutz entfernen, sonst läuft das Script in einen Fehler.
pps. Zur Info:den Blattschutz kann man auch via Code setzen und entfernen, wenn man die Blätter unbedingt vor Veränderung schützen will.

Das könnte dann z.B. für alle folgenden Sheets so aussehen:
(Update der AutoFilter auf allen Sheets außer dem ersten, und gleichzeitiger Aktivierung des Blattschutzes [hier ohne Kennwort])
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
    If Not Application.Intersect(Range("A:E"), Target) Is Nothing Then 
03.
        For i = 2 To Worksheets.Count 
04.
            Worksheets(i).Unprotect 
05.
            Worksheets(i).AutoFilter.ApplyFilter 
06.
            Worksheets(i).Protect 
07.
        Next 
08.
    End If 
09.
End Sub
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Microsoft Office
Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren (1)

Frage von Server4Alle zum Thema Microsoft Office ...

Microsoft Office
EXCEL 2016 Wie Tabellenblatt gegen automatische Aktualisierung sperren?

Frage von Hobi84 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel 2010: Tabellenblatt verknüpfen (3)

Frage von honeybee zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...

Exchange Server
DNS Einstellung - zwei feste IPs für Mailserver (15)

Frage von ivan0s zum Thema Exchange Server ...