Hallo Rudi,
Du hast mir am18.01.12 folgende super Funktion gebaut:
F unction maxBlock(rng As Range, iRang As Integer) As Integer '* Von Rudi Maintaire am 18.1.12
Dim rngC As Range, iCounter As Integer
Dim arrTmp(), n As Integer
ReDim arrTmp(rng.Columns.Count)
For Each rngC In rng.Rows(1).Cells
If rngC = "" Then
iCounter = iCounter + 1
Else
arrTmp(n) = iCounter
iCounter = 0
n = n + 1
End If
Next
arrTmp(n) = iCounter
maxBlock = WorksheetFunction.Large(arrTmp, iRang)
End Function
Sie war für mein Problem mit den Leerzellenblöcken. Sie arbeitet wunderbar, in einer Zeile. Nun bräuchte ich das Ganze aber auch Zeilenübergreifend (s. meine Datei https://www.herber.de/bbs/user/83510.xls / und mein Posting hier https://www.herber.de/forum/messages/1295416.html). Hast Du mir da evtl. eine Lösung?
Das Ganze dient der Erfassung von Ruhezeiten (=Leerzellen) in JEDEM Zeitraum von 24 Std. Die dargestellten Zellen entsprechen immer einer halben Stunde. Die Zeilen sind die Tage, die Spalten die Stunden, resp. halbe Stunden. Deshalb muss ich den zu berechnenden Bereich immer um eine Zelle nach rechts verschieben.
Hoffentlich habe ich das verständlich formuliert. Wenn nicht, bitte nachfragen.
Vielen Dank schon mal im Voraus.
Servus