Antal blanke siden sidst udfyldte celle

Hvis du har data stående i kolonnerne A og B kan du sætte denne formel ind i C3 og kopiere den nedefter. Den giver datoen for den seneste måling:

=IF(B3;OFFSET(A3;-IF(B2="";C1+1;1););"")

Det fik jeg ikke forklaret godt nok.
I kolonne C skal denne formel indsættes fra C2 og nedefter:

=IF(B2="";C1+1;1)

Og formelen:

=IF(B3;OFFSET(A3;-IF(B2="";C1+1;1););"")

skal indsættes i D3 og kopieres nedefter

Alternativt kan det laves med en makro. Nedenfor er der 2 makroer. Den første tæller antal tomme felter siden sidste måling og skriver det i kolonne C og den anden skriver dato for sidste måling i kolonne C.

Sub LatestMeasurement1()
'skriver antal tomme felter siden sidste måling i kolonne C
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 3 To LastRow
If Cells(x, 2) <> "" Then
For y = x - 1 To 2 Step -1
If Cells(y, 2) <> "" Then
Cells(x, 3) = x - y - 1
GoTo A:
End If
Next
End If
A:
Next
End Sub

Sub LatestMeasurement2()
'skriver dato for sidste måling i kolonne C
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 3 To LastRow
If Cells(x, 2) <> "" Then
For y = x - 1 To 2 Step -1
If Cells(y, 2) <> "" Then
Cells(x, 3) = Cells(x - y - 1, 1)
GoTo A:
End If
Next
End If
A:
Next
End Sub

Jeg er ikke så heldig med at lave det rigtigt første gang i dag. Du får lige makro 2 igen.

Sub LatestMeasurement2()
'skriver dato for sidste måling i kolonne C
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 3 To LastRow
If Cells(x, 2) <> "" Then
For y = x - 1 To 2 Step -1
If Cells(y, 2) <> "" Then
Cells(x, 3) = Cells(y, 1)
GoTo A:
End If
Next
End If
A:
Next
End Sub

Hej...
Tusind tak for hjælpen. Det virker næsten. Eneste problem er ved 2. måling som du kan se nedenfor. Der angiver den 2/1 i stedet for 1/1.Kan man løse det ?

01-01-2015    12,5       
02-01-2015        1   
03-01-2015    11,9    1    02-01-2015
04-01-2015        2   
05-01-2015    11,3    1    03-01-2015
06-01-2015        2   
07-01-2015        3   

MVH
Mette Rekve

Prøv med:

Sub LatestMeasurement1()
'skriver antal tomme felter siden sidste måling i kolonne C
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 2 To LastRow
If Cells(x, 2) <> "" Then
For y = x - 1 To 2 Step -1
If Cells(y, 2) <> "" Then
Cells(x, 4) = x - y - 1
GoTo A:
End If
Next
Else
Cells(x, 3) = ""
End If
A:
Next
End Sub

Sub LatestMeasurement2()
'skriver dato for sidste måling i kolonne C
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 2 To LastRow
If Cells(x, 2) <> "" Then
For y = x - 1 To 2 Step -1
If Cells(y, 2) <> "" Then
Cells(x, 3) = Cells(y, 1)
GoTo A:
End If
Next
Else
Cells(x, 3) = ""
End If
A:
Next
End Sub

Makro 1 fik jeg lavet til at sætte antal i kolonne D. Hvis du vil have det i kolonne C skal du ændre linien med

Cells(x, 4) = x - y - 1

til

Cells(x, 3) = x - y - 1

Hej...
Tusind tak for hjælpen. Det virker næsten. Eneste problem er ved 2. måling som du kan se nedenfor. Der angiver den 2/1 i stedet for 1/1.Kan man løse det ?

01-01-2015    12,5       
02-01-2015            1   
03-01-2015    11,9    1    02-01-2015
04-01-2015            2   
05-01-2015    11,3    1    03-01-2015
06-01-2015            2   
07-01-2015            3   

MVH
Mette Rekve

Du har skrevet det samme 2 gange. Virker det ikke med den nye makro?

Jeg kan ikke rigtig finde ud af det med makroer. Men tak fordi du prøvede at hjælpe :-)

MVH
Mette

Mht. makroer, så skal du kopiere den, højreklikke på fanebladet, vælge Vis Koder og indsætte den der. Du kan så enten køre den fra Vis Makro og klikke på den der, eller indsætte en knap og linke den til makroen.