dagtotalen lukken niet

[snb]

@JVeer:

ipv

Sub j()
  For Each cell In Range("B1:G50")
    If InStr(cell, "€") Then cell.Value = Left(cell, Len(cell) - 2) * 1
  Next
End Sub

Sub M_snb()
  Sheet1.UsedRange.Replace Chr(160) & "€", ""
End Sub

In totaal:

Sub M_snb()
  With Sheet1.UsedRange
    .Offset(, 1).NumberFormat = "general"
    .Replace Chr(160) & "€", ""
    For Each it In .SpecialCells(2, 2)
      it.Value = --it.Value
    Next
  End With
End Sub

 

[JEC.]

Yep, na de suggestie van popipipo zag ik t ook

 

[jkpieterse]

Ben nu twee dagen bezig om de administratie opnieuw in te voeren, maar het is gelukt.

dat maakt mij heel nieuwsgierig, wat moest je allemaal opnieuw invoeren? Je hebt de gegevens toch al digitaal?