HERBERS Excel-Forum - die Beispiele

Thema: Aus Betriebseintrittsdaten Jubiläen ermitteln

Home

Gruppe

Allgemein

Problem

Aus den Betriebseintrittsdaten in Spalte E sollen die 25- und 40jährigen Jubiläen mit einer Karenzzeit von 5 Tagen ausgelesen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Jubis()
   Dim wks As Worksheet
   Dim iRow As Integer, iRowT As Integer
   Dim i40 As Integer, i25 As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   iRow = 1
   i40 = DateSerial(Year(Date) - 40, Month(Date), Day(Date))
   i25 = DateSerial(Year(Date) - 25, Month(Date), Day(Date))
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   With wks
      Do Until IsEmpty(.Cells(iRow, 1))
         If CDate(i40) - .Cells(iRow, 5) < 5 And _
            i40 - .Cells(iRow, 5) > -5 Then
            iRowT = iRowT + 1
            Rows(iRowT).Value = .Rows(iRow).Value
            Cells(iRowT, 7) = 40
         End If
         If i25 - .Cells(iRow, 5) < 5 And _
            i25 - .Cells(iRow, 5) > -5 Then
            iRowT = iRowT + 1
            Rows(iRowT).Value = .Rows(iRow).Value
            Cells(iRowT, 7) = 25
         End If
         iRow = iRow + 1
      Loop
   End With
   Columns.AutoFit
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen

scrollen berechnen Anfangskapital berechnen
Makro/VBA: Neu berechnen bis *Teil 2* Makro/VBA: Neu berechnen bis
Bestimmte Zelle mit Makro berechnen Range-Wert aus der Statistik berechnen
Zeiten (diff. in Monaten) berechnen Auflistung von Zahlen, ohne diese zu berechnen
nach 2 Werten suchen und berechnen Trend/Entwicklung berechnen
zellen berechnen Staus des Berechnens anzeigen
Zwischenzeiten berechnen Pivot - Berechnendes Feld
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
XY-Diagramm, Funktionswerte berechnen Werte bereichsweise berechnen
Arbeitstage berechnen Zinsen berechnen in VBA (Fehler)
Kalendarwoche berechnen Anzahl Tage berechnen
Problem mit copy-paste bei manuellem berechnen Matrix / Korridor berechnen
Arbeitstage berechnen Daten aus Pivottabelle berechnen
berechnen mit Combobox Soll eintragen und Zwischenstände berechnen
Doppelte Werte nicht berechnen Zinssatz mit Hilfe des Datums berechnen
Trend berechnen Restliche Tage berechnen
Zwischensumme nicht mitberechnen Bei gleichen Texten Summe berechnen
Überstunden berechnen Dynamisches Diagramm + berechnende Zellen
Formel berechnen? Zellenanzahl eines Bereiches berechnen
allgemein Wie kann ich Exccel beim berechnen *bremsen*?
Abfahrtszeit berechnen Zwischenwerte berechnen
Inhalt+Anzahl berechnen liefertermine berechnen
Rang berechnen summe aus zellen berechnen
Bundesliga Tabellenplatz berechnen ohne Matrix Intervalle berechnen und aufs Tabellenblatt
Arbeitszeit incl. Pausen berechnen Excel bleibt im Berechnen-Modus