Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter - Zelle kombinieren

Autofilter - Zelle kombinieren
Gerhard
Vielleicht kann mir jemand helfen?
Ich habe von A8 bis B80 einen Autofilter gesetzt.
Ich möchte bei Ausführen eines Makros den Wert ( nicht die Formel ) von der Zelle A1 im Filter der ersten Spalte eingetragen haben.
Allso wenn der errechnete Wert = 1 dann sollten in der Liste nur alle 1er aufgelistet werden.
DANKE IM VORAUS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autofilter - Zelle kombinieren
09.04.2010 01:24:45
fcs
Hallo Gerhard,
etwa wie folgt muss dein Makro aussehen.
Gruß
Franz 
Sub Filtern_nach_A1()
Dim wks As Worksheet
On Error GoTo Fehler
Set wks = Worksheets("Tabelle1")          'Tabellenname ggf. anpassen
With wks
.ShowAllData
'Filter für Spalte A auf Wert in Zelle A1 setzen
.AutoFilter.Range.AutoFilter Field:=1, Criteria1:=.Range("A1")
End With
Err.Clear
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case 9
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description & _
vbLf & vbLf & "Tabellenname im Makro anpassen!"
Case 91
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description & _
vbLf & vbLf & "Autofilter ist nicht aktiv!"
Case 1004 'Alle Daten werden schon angezeigt
Resume Next
Case Else
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige
AW: Autofilter - Zelle kombinieren
09.04.2010 13:32:44
Gerhard
Vielen dank
Hat supper funktioniert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige