Top-Themen

Aktuelle Themen (A bis Z)

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

Vba - AutoFilter

Frage Entwicklung VB for Applications

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

10.11.2011 um 23:46 Uhr, 4050 Aufrufe, 2 Kommentare

Hallo,
ich habe eine Excel-Datei mit ein paar Makros für einen User erstellt, um ihm viel Zeit zu ersparen bei einigen Auswertungen.

Das Sheet ist mit Filter-Optionen in einer Zeile versehen. Nun sollen automatisiert Auswertungen mit mehreren durch Makros gesetzten Filtern gefahren werden, in deren Folge eine neue Arbeitsmappe erzeugt wird mit nach bestimmten Namens-Vorgaben erzeugten Sheets darin. Es werden praktisch per Makro die Filter gesetzt, das Ergebnis in einer Tabelle innerhalb der Quellmappe erzeugt und diese dann in das in der neu erstellten Zielmappe in das jeweils nach Filter erzeugtem neuen Sheet reinkopiert.

Das funktioniert auch schon bestens. Ich verzweifel aber an einem kleinen Problem.

Unterhalb der AutoFilter-Zeile möchte ich nach der per Makro gesetzten Filterkombination den Index der ersten zutreffenden Zeile ermitteln, um sie dann als Variable weiterzuverwenden.

Ich habe schon alles Mögliche versucht, leider ohne Erfolg. Mir ist schon klar, dass es die "visible"-Eigenschaft gibt, ich hatte mir auch schon mal irgendwann eine Funktion gebastelt, damit für Berechnungen nur die "visible"-Zeilen berücksichtigt werden. Allerdings weiss ich momentan nicht mehr wie es war...

Vielleicht kann mir da ja mal Jemand einen kleinen Tipp geben?

Wie gesagt, es geht mir wirklich nur um die Ermittlung der ersten Zeile der Filterung (die Filter greifen erst ab Zeile 17, also die Einstellung erfolgt mittels der Zeile 16).

Gruß
Torsten
Mitglied: 76109
11.11.2011 um 14:36 Uhr
Hallo TorstenB!

Wenn ich Dich richtig verstanden habe, dann in etwa so:
01.
'Beispiel mit Tabelle1 und AutoFilter in Spalte F Zeile 16 
02.
 
03.
Sub RowIndex() 
04.
    Dim EndLine As Long, Index As Long 
05.
     
06.
    With Sheets("Tabelle1") 
07.
        EndLine = .Cells(.Rows.Count, "F").End(xlUp).Row 
08.
        Index = .Range("F17:F" & EndLine).SpecialCells(xlCellTypeVisible).Row 
09.
    End With 
10.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: goodbytes
23.11.2011 um 08:20 Uhr
Hallo Dieter,
entschuldige, dass ich mich so spät melde. Ich hatte einfach zu viel um die Ohren...

Inzwischen hatte ich auch meine damals gebastelte Lösung wiedergefunden und entsprechend angepasst:

01.
Function Erste_sichtbare_Zeile() 
02.
 
03.
For i = 17 To Workbooks(Quelldatei).Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row 
04.
         
05.
    If Workbooks(Quelldatei).Sheets(1).Cells(i, 1).EntireRow.Hidden = False Then 
06.
        Erste_sichtbare_Zeile = i 
07.
        Exit For 
08.
    End If 
09.
Next 
10.
 
11.
End Function
(Quelldatei ist hier eine Public-Variable.)

Aber vielen Dank für deine Lösung; ich habe sie mir in meine kleines Archiv mit aufgenommen, da muß ich beim nächsten Mal nicht mehr so suchen.

Eine schöne Woche wünsche ich dir noch !!!

Gruß Torsten
Bitte warten ..
Ähnliche Inhalte
VB for Applications
AutoFilter via VBA in Excel mit einem Array
gelöst Frage von 94451VB for Applications8 Kommentare

Hallo, ich habe folgendes Problem: ich befülle ein Array aus einer Tabelle selbstverstänlich filter ich leere Zellen raus, jetzt ...

VB for Applications
Excel 2010 VBA: Autofilter auf anderem Tabellenblatt
gelöst Frage von YotYotVB for Applications7 Kommentare

Moin! Gibt es eine Möglichkeit, z.B. in Tabelle1!B18 einen Autofilter für Tabelle2!A:A zu erstellen? Hintergrund: mit dem Autofilter finden ...

Microsoft Office
Excel Autofilter
gelöst Frage von Florian86Microsoft Office6 Kommentare

Hallo, kann man irgendwie 2 Autofilter in Excel einbauen. Ich habe mir folgendes kleines Makro erstellt Sub Autofilter() Range("A:A").Autofilter ...

Microsoft Office
Excel 2010 - Autofilter - Zeilen ausschließen
gelöst Frage von JuckieMicrosoft Office2 Kommentare

Hallo an alle, ich habe eine Tabelle in Excel 2010 bei der die Auto Filter bei allen 9 vorhandenen ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 8 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 12 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware8 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...