bisher konnte ich meine Probleme mit den bisherigen Post lösen.
Diesmal muss ich mich direkt an euch wenden.
Folgende Voraussetzung: Der File hat 5 Blätter. Es geht um Blatt 1 und 3
zuerst Blatt 3 : dort gibt es eine Datumsauflistung in Spalte A, 01.06.2017-31.12.2019
dann Blatt 1 : die Daten beginnen im Zeile 11 (A-X). Immer eine Hilfszeile, gefolgt von 11 identischen Datumszeilen (und das für jeden Tag = 11338 Zeilen) in Spalte A.
Spalte B trägt im Falle eines Eintrags eine fortlaufende Auftragsnummer. die nur sichtbarwird und weiterzählt, wenn in Spalte C geschrieben wird.
Das sieht dann etwa so aus :
col 0
01.06.2017 1 blabla
01.06.2017 2 blablabla
..
01.06.2017
col 2
02.06.2017 (usw)
In Zelle E3 ist ein Pulldown, das den Datumsbereich in Blatt 2 erfasst.
der Bereich A10:B11339 wurde als Filtern/erweitert/Listenbereich erfasst.
Das Script, das im hintergrund läuft sieht derzeit so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Calculate
Sheets("Tätigkeitserfassung").Select
ActiveSheet.Unprotect Password:=""
Set Bereich = Range("$E$3")
If Not Intersect(Target, Bereich) Is Nothing Then
Selection.AutoFilter Field:=1, Criteria1:=Range("$E$3").Value, VisibleDropDown:=False
Selection.AutoFilter Field:=2, VisibleDropDown:=False 'fortlaufende Auftragsnummern
End If
Sheets("Tätigkeitserfassung").Select
' ActiveSheet.Protect Password:="", DrawingObjects:=False, Contents:=True, Scenarios:=False, _
_
AllowSorting:=True, AllowFiltering:=True
' ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
In der 2003er Version hat das noch funktioniert. Es wurden nur die 11 Zeilen des eingestellten Datums angezeigt.
In der 2010er Version filtert er nicht mehr, sondern lässt die Zeilen 11 bis 11339 ausgeblendet. Ich hab sie mal noch nicht hochgeladen, da sie ca. 4,5MB hat.
Hat jemand eine Idee dazu ?
Beste Grüße
C.