|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.09.2020 12:16:21 |
Norist |
|
|
|
03.09.2020 13:38:32 |
Norist |
|
|
|
03.09.2020 17:32:53 |
ralf_b |
|
|
|
03.09.2020 18:43:11 |
Gast15297 |
|
|
|
03.09.2020 18:58:39 |
Mase |
|
|
|
03.09.2020 19:11:51 |
Norist |
|
|
|
03.09.2020 19:18:39 |
Mase |
|
|
|
03.09.2020 19:28:57 |
Norist |
|
|
|
03.09.2020 19:54:02 |
Mase |
|
|
|
03.09.2020 20:11:09 |
Norist |
|
|
|
03.09.2020 20:16:18 |
Mase |
|
|
|
03.09.2020 20:23:29 |
Norist |
|
|
|
04.09.2020 00:53:46 |
Norist |
|
|
 Starthilfe zu 2) |
04.09.2020 12:05:45 |
Mase |
|
|
|
04.09.2020 17:21:05 |
ralf_b |
|
|
Von:
Mase |
Datum:
04.09.2020 12:05:45 |
Views:
601 |
Rating:
|
Antwort:
|
Thema:
Starthilfe zu 2) |
|
Moin,
erstelle eine neue Mappe mit folgendem Inhalt:
Kopiere nachfolgenden Code in ein allgemeines Modul und gehe das Makro zeilenweise durch. Und bitte zweimal nacheinander.
Beobachte währenddessen was im Arbeitsblatt passiert:
Sub FilterDatum()
'*** Deklarationsteil
Dim wks As Excel.Worksheet
'*** Definitionsteil
Set wks = ThisWorkbook.Worksheets(1)
'*** With-Block; mit Punkt wird somit auf Methoden/Eigenschaft der Klassen zugegriffen werden
With wks
'*** Wenn bereits Arbeitsblatt bereits im Filtermodus, dann Filtermodus verlassen und alles wieder anzeigen
If .AutoFilterMode Then .AutoFilterMode = False
'*** Hierzu mal die Onlinehilfe durcharbeiten
.Range("A1").AutoFilter Field:=1, _
Criteria1:=">=" & CLng(CDate("00.01.1900")), _
Operator:=xlFilterValues
End With
End Sub
Feedback kannst Du dazu geben, sobald Du die OH durch hast.
Viel Erfolg :)
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.09.2020 12:16:21 |
Norist |
|
|
|
03.09.2020 13:38:32 |
Norist |
|
|
|
03.09.2020 17:32:53 |
ralf_b |
|
|
|
03.09.2020 18:43:11 |
Gast15297 |
|
|
|
03.09.2020 18:58:39 |
Mase |
|
|
|
03.09.2020 19:11:51 |
Norist |
|
|
|
03.09.2020 19:18:39 |
Mase |
|
|
|
03.09.2020 19:28:57 |
Norist |
|
|
|
03.09.2020 19:54:02 |
Mase |
|
|
|
03.09.2020 20:11:09 |
Norist |
|
|
|
03.09.2020 20:16:18 |
Mase |
|
|
|
03.09.2020 20:23:29 |
Norist |
|
|
|
04.09.2020 00:53:46 |
Norist |
|
|
Starthilfe zu 2) |
04.09.2020 12:05:45 |
Mase |
|
|
|
04.09.2020 17:21:05 |
ralf_b |
|
|