Geachte heer/mevrouw, ik heb voor een kennis in Excel voor windows een klein programma gemaakt. Echter mijn kennis gebruikt Excel voor MAC 2011 waarop het programma niet werkt. Er treed foutmelding 1004 op. Ik stuur hierbij de macro tekst waar het volgens mij om gaat. Kan iemand mij aangeven wat er gewijzigd moet worden zodat het wel werkt? Sub Splitsen()
Dim bereik As Range
Set bereik = Range("D13:F209")
For tel = 1 To bereik.Rows.Count
Dim getal, tekst As String
Dim celI As String
celI = bereik(tel, 1).Value
For t = 1 To Len(celI)
If IsNumeric(Mid(celI, t, 1)) Then
getal = getal & Mid(celI, t, 1)
Else
tekst = tekst & Mid(celI, t, 1)
End If
Next
bereik(tel, 2).Value = tekst
bereik(tel, 3).Value = getal
getal = ""
tekst = ""
Next
Columns("E:E").Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
End Sub
Dim bereik As Range
Set bereik = Range("D13:F209")
For tel = 1 To bereik.Rows.Count
Dim getal, tekst As String
Dim celI As String
celI = bereik(tel, 1).Value
For t = 1 To Len(celI)
If IsNumeric(Mid(celI, t, 1)) Then
getal = getal & Mid(celI, t, 1)
Else
tekst = tekst & Mid(celI, t, 1)
End If
Next
bereik(tel, 2).Value = tekst
bereik(tel, 3).Value = getal
getal = ""
tekst = ""
Next
Columns("E:E").Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
End Sub