Office: Excel 2016 Daten vom Datum abhängig anzeigen

Liebe Community,

nach einer ersten Tabelle mit viel Unterstützung von Klaus-Dieter, vielen Dank hierfür noch mal, habe ich die Tabelle umstrukturiert und für andere Zwecke entfremdet. Nichtsdestotrotz, nach unzähligen Versuchen, bin ich mit meinem Latein am Ende.

Ausgangssituation:

Die Mitarbeiter haben ca. sechs Monaten im Jahr Zeit für verschiedene Schulungen und Weiterbildungen. In der Tabelle (s. Anhang) habe ich nach der Idee von Klaus-Dieter den Januar als Haupttabelle. Hier werden die Angaben für das ganze Jahr vorgenommen.
Ziel ist es, ab Februar nur die MA angezeigt zu bekommen, die in dem Zeitfenster (s. Datum) vorgesehen sind.
Meine Arbeit bis jetzt: Die MA werden nur bis zum Enddatum (Monaten) angezeigt. Was ich mir wünsche, ist, wenn ich einen MA Anfangsdatum ab März eintrage, dass er auch nur ab März bis zum Enddatum angezeigt wird.
Zweite Situation ist die Sortierung. Ich habe ein Modul eingefügt für die Sortierung mit Leerzeilen. Es funktioniert aber nicht automatisch. Ich muss immer über F5 aktivieren und dann sortiert Excel aber von Z bis A und nicht andersrum.

Für jegliche Anregungen und Ideen, bin ich offen.

Vielen Dank und sonnige Grüße vom Bodensee
NebelhornX

 

laut Beschreibung

Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

 

Gibt es aber auch Formeln, die die Arbeit erleichtern bzw. Makros?

 

zu Makros hast Du meine Antwort nicht gelesen.
Zu Formeln bin ich nicht der Fachmann. Vielleicht
SVERWEIS bei mehrfach vorkommendem Suchkriterium

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Hallo Hajo,

vielen Dank für Deine Antwort.

Zu Makros habe schon Deine Antwort gelesen. Wie Du aus meiner Tabelle entnommen hast, bin ich in der Richtung nicht der Fachmann. Ich habe nur ein einfaches Modul geschriben. Deswegen meine Frage, ob's einfacher oder besser geht.
Zu Formeln habe ich auch verschiedene Varianten ausprobiert, leider nicht zufriedenstellend.

Grüße vom Bodensee

 

Zu Deinen Makro kann ich nicht schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.
Was soll an einem aufgezeichneten Majo Falsch sein?

Gruß Hajo

 

In meiner Datei ist der aufgezeichnete Makro. Es geht dabei um die Sortierung mit Leerzellen. Hier funktioniert die Sortierung nicht automatisch und von Z bis A. Das ist die Problematik

 

Hier die Makro...

 

Gut meion Excel kann wenig mit Bildern anfangen.
Ich bin dann raus.

Gruß Hajo

 

Hallo,

in der beiliegenden Excel-Datei habe ich dir in den Monaten Februar-Mai in Spalte F (F3:F24) eine Hilfsspalte eingefügt mit folgenden Formeln ab Zelle F5:
=WENNFEHLER(AGGREGAT(15;6;ZEILE($B$1:$B$20)/((Januar!$C$5:$C$24<=MONATSENDE($B$1;0))*($B$1<=Januar!$D$5:$D$24));ZEILE(A1));"")
Diese Formel überprüft, ob der Monat in der Zelle B1 in der Laufzeit des betreffenden Namens zumindest teilweise enthalten ist: wenn ja, wird die laufende Nummer aus Spalte Januar!A:A eingeblendet.
In den Zellen B5:D24 der Monate Februar-Mai habe ich dann eine simple INDEX-Formel eingefügt, die auf diese laufende Nr. in Spalte F zugreift, um die Daten aus Januar einzublenden:
=WENNFEHLER(INDEX(Januar!$B$5:$D$24;$F5;SPALTE(A1));"")
Als Sortierung in den Monaten Februar-Mai wird die Sortierung des Monats Januar verwendet. Ist also die Reihenfolge im Januar korrekt, ist sie somit auch in den restlichen Monaten korrekt.

Um im enthaltenen Makro eine aufsteigende Sortierung zu erreichen, braucht dort nur von "Order1:=xlDescending" umgestellt werden auf "Order1:=xlAscending", was ja nicht so sonderlich schwer sein wird.

Code:

Sub Sortierung()
   On Error Resume Next
   Dim WorkRng As Range
   Dim xMin As Double, xTitleId As String
  
   xTitleId = "Tabellensortierung"
   With Application
      Set WorkRng = .Selection
      Set WorkRng = .InputBox(Prompt:="Range", Title:=xTitleId, Default:=WorkRng.Address, Type:=8)
   End With
   With WorkRng
      .SpecialCells(xlCellTypeBlanks) = xMin
      .Sort Key1:=Cells(.Row, .Column), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
      .Replace What:=xMin, Replacement:="", LookAt:=xlWhole
   End With
End Sub

 

Hallo,

mein Vorschlag beinhaltete bestimmt nicht das Festhalten an den Monatsblättern. Wenn ich mich richtig erinnere, hatte ich einen Lösungsvorschlag, der wegen deiner Excelversion nicht durchführbar war. Wenn das immer noch so ist, könntest du über ein Gannt-Diagramm nachdenken.

 

Hallo Exl121150 und Klaus-Dieter,

vielen Dank für die tolle Hilfe. Es ist interessant mit der Hilfsnummerierung und auch gut praktikabel. Nachdem Klaus-Dieter mir den Vorschlag mit der Sortierung unterbreitet hat, habe ich mich auf der Suche begeben und die Module "sortieren, sortierennach und sortierennach2" mit hilfe des Anbieters denn Du mir vorgeschlagen hast, installiert bekommen.
Damit erreiche ich bei jedem neuen Eintrag im Januar die automatische Sortierung der gesamten Tabelle. Klaus_Dieter noch mal vielen Dank für den Tipp.

Exl121150, d. h., dass ich die Spalte F ausblenden bzw. verschieben kann. In dem Makro habe ich auch die Variante "Order1:=xlAscending" probiert, Excel hat aber die leeren Zellen nach oben positioniert. Deswegen "Order1:=xlDescending"

Ich bin sehr zufrieden. Vielen Dank an alle für die Hilfe, ich habe jetzt was zum Arbeiten.

Schöne Grüße vom Bodensee