Range nach unten Offset erweitern
15.03.2017 09:58:00
Steve
Bin seit Tagen am googeln, Forum durchforsten und Unterlagen sowie Tutorials schauen aber finde keine Lösung.Für euch sicher eine Kleinigkeit.
Möchte ein Dienstplantool erstellen. Durch Target-Change-Ereignis wird während der Dienstzeitplanung ständig kontrolliert, ob keine Fehler (Einhaltung der gesetz. vorgeschriebenen Ruhezeit, Mindestens 8 Stunden pro Tag usw.)eingetragen werden.
Diese Kontrolle soll pro Beamter nur in einem Bereich/Zeile stattfinden.
1.Beamter in Zeile 18
2.Beamter in Zeile 26
.....also immer um 8 Zeilen nach unten Offset(8,0)
Die Beamtenanzahl ist aber variabel (zw. 24 und 48).
Dim letzterbeamterzaehlen As Integer
letzterbeamterzaehlen = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 24
Public Erstebeamtenzeile As Range, Weiterebeamtenzeile As Range, multibereich1 As Range
Set Erstebeamtenzeile = Range(Cells(18, 4), Cells(18, 36))
Set Weiterebeamtenzeile = Erstebeamtenzeile.Offset(8)
Set multibereich1 = Union (Erstebeamtenzeile, Weiterebeamtenzeile)
Wie muss Weiterebeamtenzeile deklariert werden dass die Berechnung nur in jeder 8 Zeile bei jedem Beamten durchgeführt wird?
Besten Dank für eure Bemühungen.