Anzeige
Archiv - Navigation
1264to1268
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
Inhaltsverzeichnis

Autofilter über Makro starten

Autofilter über Makro starten
Burkhard
Hallo Forumleute,
ich habe hier mal ein kleines Problem!
Ich habe mir ein Makro zurecht gebaut welches bis jetzt auch schon das macht was es soll.
Folgendes ist meine Zielvorgabe, ich habe ein Tabellenblatt (Tabelle 1) in dieses gebe ich Kommentare ein, diese sind in Spalte B mit eine Kalenderwoche versehen.
Wenn ich nun in Tabellenblatt 2 in Feld A1 das datum ändere, soll in TB1 der Autofilter nach den Kalenderwoche dieses Monat filtern.
jetzt funktioniert dieses Makro von mir auch schon in TB1 auch wenn ich hier einen Wert ändere, aber wie bekomme ich es hin, das sich das Makro schartet, wenn sich der Wert in TB2 Zelle A1 ändert?
Noch eine kleine Frage!
Die gefilterten Zeilen will ich über ein Bild in TB2 wieder darstellen, habe ich in der Beispielmappe auch schon gemacht.
Aber wie kann ich einen gewissen zeilenbereich darstellen, ich bin mir noch nicht sicher, das ich es bis jetzt richtig habe?!
Soll heißen, meine gefilterten ergebnisse könnten ich Zeile 1, 20 & 35 sein, ich würde hier aber lieber der Formel sagen, zeige nur die anzahl der angezeigten Zeilen, in diesem Fall 3.
Ich habe schon mit Bereich_Verschieben und index gebastelt, aber das wollte nicht.
Das Thema ist aber auch nicht so wichtig wie das erste!
Ich würde mich über eure Hilfe sehr freuen!!
Grüße Burkhard
https://www.herber.de/bbs/user/80572.xls

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autofilter über Makro starten
15.06.2012 08:11:14
Marc
Guten Morgen!
Zum ersten Teil:
Füge das in Tabelle2 im VBA-Editor ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.Address(0, 0)
If Target.AddressLocal = "A1" Then
'Makro
End If
End Sub
Zum zweiten Teil:
=SUMMENPRODUKT((Tabelle1!B3:B27>=22)*(Tabelle1!B3:B27 Natürlich mußt du die Formel noch entsprechend den Kalenderwochen anpassen.
Gruß, MCO
AW: Autofilter über Makro starten
16.06.2012 13:25:40
Burkhard
Hallo nochmal,
so habe es nochmal mit MCO`S vorschlag probiert, aber das will auch nicht so funzen.
Hätte ihr jemand vielleicht noch eine Idee was man anders machen könnte?!
Grüße Burkhard
Anzeige
AW: Autofilter über Makro starten
17.06.2012 13:22:54
itz
Hallo Burkhard,
Wie MCO schreibt, muss das Macro in das Modul von "Tabelle2", weil du ja in Tabelle 2 $A$1 was änderst und in Tabelle1 sich die Werte nur aufgrund von formeln ändern.
Das Makro musst du entsprechend anpassen, weil du dich aus dem Tabellenblatt2 auf das Tabellenblatt1 beziehst.
Die Formel "Teilergebnis" in Zelle H1 funktioniert nicht, weil die Spalte H nicht zum für den Filter gültigen Bereich gehört.
schreib also beispielsweise in das Modul für Tabellenblatt2:
'Sub MeinFilter()
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Tabelle1").Range("A:C").AutoFilter Field:=2, Criteria1:=">=" & _
Sheets("Tabelle1").Cells(1, 2), Operator:=xlAnd, Criteria2:="

und in die Zelle H1:

=TEILERGEBNIS(3;B3:B100)
liebe Grüße
itz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige