HERBERS Excel-Forum - die Beispiele

Thema: Ermittlung der jeweils letzten 5 Datensätze

Home

Gruppe

Funktion

Problem

Im Bereich D2:E6 sollen die jeweils letzten 5 Datensätze aus den Spalten A:B dargestellt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
3. Woche: Mo+Di, Fr+Sa = Frühschicht 
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Schicht(datStart As Date, datAct As Date) As String
   Dim datWeek As Date
   datWeek = (datAct - datStart) Mod 21
   Select Case datWeek
      Case Is < 7
         If WeekDay(datAct) < 6 And WeekDay(datAct) > 1 Then
            Schicht = "Frühschicht"
         End If
      Case Is < 14
         If WeekDay(datAct) > 3 And WeekDay(datAct) < 7 Then
            Schicht = "Spätschicht"
         End If
      Case Else
         If WeekDay(datAct) = 2 Or WeekDay(datAct) = 3 Then
            Schicht = "Spätschicht"
         ElseIf WeekDay(datAct) = 6 Or WeekDay(datAct) = 7 Then
            Schicht = "Frühschicht"
         End If
   End Select
End Function

Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VERGLEICH/INDEX Formelproblem VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion Index Formel_Berechnung nur bei bestimmten Wert
neues Aktien Index Problem Array - Index außerhalb des gültigen Bereichs
Zelladressen von FunktionsParametern ermitteln Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
Formel Index(RGP @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Interior.ColorIndex
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Colorindex Excel-Word RGB-Werte
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig Kombination von INDEX/Vergleich für Wertevergleich
zählenwenn-funktion mit mehreren kriterien Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht WENN-Funktion