Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
07.05.2024 16:27:17
Definition und Nutzung von globalen Variablen
07.05.2024 14:51:38
Endlos-Journal
07.05.2024 13:27:17
Datum nach Auswahl prüfen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktive auswahl des autofilterns in zelle übernehme

aktive auswahl des autofilterns in zelle übernehme
16.05.2006 14:18:09
stefan
hallo,
ich wähle per autofilter eine zelle aus.
kann ich diese auswahl z.b auf eine kopf- bzw. fußzeile in der seiteneinrichtung übernehmen?
bsp.
ich wähle den autofiltereintrag "hans" aus. auf der fertig eingerichteten seite steht in der kopfzeile "hans".
wähle ich "peter" aus, steht da "peter".
danke für die hinweise

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

Betreff
Datum
Anwender
Anzeige
AW: aktive auswahl des autofilterns in zelle übernehme
16.05.2006 14:53:48
Franz
Hallo Stefan,
folgender Code fügt das gesetzte Filterkriterium in die mittlere Fußzeile ein.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call FilterinFusszeile
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call FilterinFusszeile
End Sub
Private Sub FilterinFusszeile()
Dim wks As Worksheet, Text As String
On Error GoTo Fehlerbehandlung
Set wks = Worksheets("Tabelle1")
Text = ""
With wks
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then
Text = .Criteria1
If .Criteria2 <> "" Then
If .Operator = xlAnd Then Bedingung = " AND "
If .Operator = xlOr Then Bedingung = " OR "
Text = .Criteria1 & Bedingung & .Criteria2
End If
Else
Text = "Alle"
End If
End With
End If
End With
Fehlerbehandlung: 'Sprungadresse wenn Criteria2 oder Operator nicht vorhanden
Text = "Filterwert: " & Text
wks.PageSetup.CenterFooter = Text
End Sub
Der Code muss unter "DieseArbeitsmappe" eingefügt werden.
gff. muss du in Zeile
Set wks = Worksheets("Tabelle1")  den Tabellennamen
und in
With .AutoFilter.Filters(1)       noch die Nummer des Filters anpassen!

Gruß
Franz
Anzeige
AW: aktive auswahl des autofilterns in zelle übernehme
16.05.2006 14:54:15
Peter
Hallo Stefan,
angenommen, dein Filter ist in Spalte B, ab Zeile 2, dann unter DieseArbeitsmappe folgendes Makro, das beim Drucken aktiv wird:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Range("B2").Value
End Sub

Das heißt: du wählst deinen Namen per Filter und klickst dann das Druckersymbol (oder nur erstmal Seite anzeigen), dann steht der Name in der linken Kopfzeile.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Korrektur
16.05.2006 17:21:21
Peter
Hallo Stefan,
ich war zu voreilig. So kann es laufen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim lZeile  As Long
For lZeile = 2 To Range("B65536").End(xlUp).Row
If Rows(lZeile).Hidden = False Then
ActiveSheet.PageSetup.LeftHeader = Range("B" & lZeile).Value
End If
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

303 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Wert vom ausgewählten Filter in Zelle
Kurt

Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
01.12.2008 15:41:00
Thread-ID: 1029285
3 Beiträge
Autofilter Ein - Wert in Zelle
Lutz

Hallo,
ich möchte gern den mit Autofilter selektierten Wert in einer separaten Zelle anzeigen lassen.
Nach Möglichkeit ohne Makro.
Ich habe im Archiv keine passende Anregung gefunden.
Beispieldatei
https://www.herber.de/bbs/user/59331.xls
Danke für die Hilfe,
Lutz <...
10.02.2009 23:01:45
Thread-ID: 1049393
3 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
Zelleneinträge in Filterauswahl
Leitz

Hallo!
Komme mit dem Einfügen von Werten aus VBA Speicher in Filterauswahl nicht zurecht.
Selection.AutoFilter Field:=12, Criteria1:=""
Nun möchte ich in die Zellen der Spalte D den Speicherinhalt von "strBearbeiter" einfügen
Wie lautet der Code, so dass nur die gefilterten Zei...
10.03.2009 08:28:50
Thread-ID: 1058462
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
2
1
4
7
1
2
2
5
6
4
1
4
4
1
8
2
13
2
12
2
2
2
1
3
2