Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter automatisch aktualisieren

Autofilter automatisch aktualisieren
28.06.2006 12:33:33
Kirsten
Hallo Leute!
Habe schon wieder ein kleines Problemchen.
Wie kann ich Excel dazu zwingen, in meinem Tabellenblatt "Angebot" (was ausschließlich aus Verknüpfungen besteht) den Autofilter automatisch zu aktualisieren.
Der nachstehende Code funktioniert erst, wenn ich in das Tabellenblatt gehen, und manuell irgendeine Zelle ändern (z.B. Eingabe 1 in Zelle A1).

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
.EnableAutoFilter = True
.EnableCalculation = True
'.Protect userInterfaceOnly:=True
End With
Rows("3:40").EntireRow.AutoFit
Selection.AutoFilter Field:=2, Criteria1:="<>"
End Sub

Kann mir jemand sagen, woran es hakt und wie der Code angepaßt werden müsste?
Liebe Grüße
Kirsten

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter automatisch aktualisieren
28.06.2006 12:53:23
Uduuh
Hallo,
damit
Selection.AutoFilter Field:=2, Criteria1:=""
beziehst du dich auf das aktive Blatt.
Versuch's mit
Sheets("Auswertung").usedrange.AutoFilter Field:=2, Criteria1:=""
Gruß aus’m Pott
Udo

AW: Autofilter automatisch aktualisieren
28.06.2006 15:14:45
Kirsten
Hallo Uduuh,
ja, das ist schon richtig. Der Code steht ja auch in dem Tabellenblatt "Angebot".
Habe deine Variante da eingebaut...aber da passiert nix.
Die Eingabe erfolgt in dem Tabellenblatt "Kalkulation". Wenn sich da was ändert, wird die Verknüpfung im Blatt "Angebot" aktualisiert. Der Autofilter soll im Blatt "Angebot" dann nur bewirken, daß nichtleere Zeilen eingeblendet werden.
Hast du vielleicht noch einen Vorschlag?
Gruß
Kirsten
Anzeige
AW: Autofilter automatisch aktualisieren
28.06.2006 17:07:44
u_
Hallo,
das geht so nicht. Die Neuberechnung einer Formel löst das Change-Ereignis nicht aus.
Erst die Eingabe in "Angebot" löst das aus. Daher der Effekt.
Schreibe den Code in "Kalkulation" und referenziere auf "Angebot".
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Autofilter automatisch aktualisieren
28.06.2006 12:57:39
Mustafa
Hallo Kirsten,
Füge folgenden Code in das Modul der Tabelle statt deines ein.

Private Sub Worksheet_Activate()
With ActiveSheet
.EnableAutoFilter = True
.EnableCalculation = True
'.Protect userInterfaceOnly:=True
End With
Rows("3:40").EntireRow.AutoFit
Selection.AutoFilter Field:=2, Criteria1:="<>"
End Sub

Anzeige
AW: Autofilter automatisch aktualisieren
28.06.2006 15:07:33
Kirsten
Hallo Mustafa,
lieben Dank für die Antwort. Wenn ich das richtig sehe, müßte ich dann aber immer erst das Tabellenblatt aktivieren, damit es sich akutalisiert. Wäre schick, wenn das wirklich vollständig im Hintergrund laufen würde ohne das ich in das Blatt müßte.
Vielleicht noch eine andere Idee?
Gruß
Kirsten
AW: Autofilter automatisch aktualisieren
29.06.2006 06:46:01
Mustafa
Hallo Kirsten,
dann musst du allerdings den Code in das Modul der Tabelle(n) einfügen von der(nen) du änderungen vornimmst.
Ausserdem müsste die erste Codezeile von :

Private Sub Worksheet_Activate()
in:


Private Sub Worksheet_Change(ByVal Target As Range)
geändert werden.
Weiterhin müsste die 2. Codezeile insofern geändert werden das es nicht das Activesheet
anspricht sondern explicit die Tabelle in der gefiltert werden soll.
Sprich es müsste ungefähr so lauten:
With Worksheets("der Name deiner Tabelle")
Dann sollte der Code funktionieren.
Im ganzen würde der Code dann so aussehen:


Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("der Name deiner Tabelle") 'hier kommt der Name deiner Tabelle rein
.EnableAutoFilter = True
.EnableCalculation = True
'.Protect userInterfaceOnly:=True
End With
Rows("3:40").EntireRow.AutoFit
Selection.AutoFilter Field:=2, Criteria1:="<>"
End Sub



Rückmeldung obs hilft wäre nett.

Viele Grüße aus Köln.
Anzeige
AW: Autofilter automatisch aktualisieren
29.06.2006 10:55:05
Kirsten
Hallo Mustafa,
lieben Dank für den Code. Leider gibt es da 2 Probleme: Zum einen habe ich bereits in der Tabelle "Kalkulation" (in der die Eingaben erfolgen) bereits einen Worksheet_Change-Code. Wenn ich deinen Code jetzt einfüge, kommen sich die beiden natürlich ins Gehege. Wenn ich nur deinen Code einfüge, blendet er mir ziemlich unkontrolliert Zeilen in der Tabelle "Kalkulation" aus, aber im Blatt "Angebot" passiert nix. Irgendwas mach ich da falsch!
Hab jetzt mal die Datei hier https://www.herber.de/bbs/user/34733.xls hochgeladen...das ist sicherlich der einfachste Weg.
Vielleicht magst du oder auch ein anderer Profi hier sich mal dieses Durcheinander ansehen.
Primär geht es immer nur darum, im Blatt "Angebot" nichtleere Zeilen auszublenden bzw. bei Änderungen im Blatt "Kalkulation" die entsprechende Aktualisierung des Autofilters vorzunehmen.
Ich hoffe, daß mir jemand helfen kann!
Liebe Grüße
Kirsten
Anzeige
AW: Autofilter automatisch aktualisieren
29.06.2006 11:05:10
Mustafa
Hallo Kirsten,
hab mal etwas dran gebastelt.
Hoffe es ist richtig geworden.
https://www.herber.de/bbs/user/34734.xls
Rückmeldung ? Immer gern Gesehen!!!
Viele Grüße aus Köln.
AW: Autofilter automatisch aktualisieren
29.06.2006 11:26:16
Kirsten
Hallo Mustafa,
ich weiß zwar nicht was du gebaselt hast, aber leider funktioniert es immer noch nicht so wie es soll.
Also...wenn ich z.B. im Blatt "Kalkulation" in die Zelle B23 "test3" eingebe, soll im Blatt "Angebot" die entsprechende Zeile, die bisher durch den Autofilter ausgeblendet war, automatisch eingeblendet werden. Oder anders rum, wenn ich in der Kalkulation Text aus der Zelle B21 lösche, soll die entsprechende Zeile im Angebot ausgelendet werden.
Hast du noch eine Idee?
Liebe Grüße
Kirsten
Anzeige

68 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Anzeige
Filtern nach Eingabe
Steffen

Guten Morgen. Ich tüftle seit ner Weile an folgendem Sachverhalt:
Ich möchte eine Tabelle nacheinander nach allen Werte einer Spalte filtern und als PDF-Drucken. Die Spaltennummer in der gefiltert wird, steht unter
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value...
07.04.2010 17:24:27
Thread-ID: 1150498
7 Beiträge
Excel 2003: Tabelle automatisch aktualisieren
Melanie

Hallo liebe Community,
anbei findet Ihr mein Excel-File. Ich habe auch das Problem darin beschrieben. Falls mir jemand helfen kann, bitte schaut es euch mal an. Ich glaube man braucht dazu VBA-Programmierung.
ich danke euch
vlg
https://www.herber.de/bbs/user/76106.xls
11.08.2011 02:35:44
Thread-ID: 1225605
2 Beiträge
Automatische Änderung eines Textes nach Eingabe
lutz

Hallo Excel-Freunde,
ich würde gerne Eingaben direkt danach durch etwas anderes ersetzen - ähnlich wie eine Autokorrektur.
Die variablen Schreibe ich in Tabelle "var" Zelle D2-..., den Variablennamen in Zelle A2-...
Nach der Eingabe von z.B. "xxxc B6" soll dann daraus etwas anderes...
15.01.2012 22:08:40
Thread-ID: 1246301
3 Beiträge
Zellinhalt automatisch nach Zelleingabe kopieren
Ralf

Hallo Forum,
ich gebe in dem Bereich B21:B28 Zahlen ein und bilde in Zelle B29 daraus die Summe.
Jetzt soll nach Eingabe einer Zahl im Bereich B21:B28 automatisch die Summe nach F29 kopiert werden.
Wie kann man so was in VBA lösen?
Vielen Dank im Voraus für Eure Unterstützung.
05.10.2012 08:02:23
Thread-ID: 1280607
8 Beiträge
Tabelle einfügen & automatisch aktualisieren
Issa

Hallo Leute,
ich habe zwei Probleme bei einer Excel Tabelle..
Vorab relevante Infos:
Ich habe ein Tabellenblatt zusammengestellt, das sich Werte aus Zellen anderer Tabellenblätter rauszieht.
Mein programmiertes Tabellenblatt soll häufiger verwendet werden und ich füge es immer i...
04.03.2015 16:29:16
Thread-ID: 1412757
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
2
1
6
1
2
7
4
1
5
2
2
6
7
2
3
1
4
4
15
3
2
4