Usynligt indhold i celler

Ændr makro, så den kun beregner, hvis:
if is.text()
eller
if is.number()

Undskyld den lange reaktionstid. Har været uden internetforbindelse i flere dage.

Har forsøgt lidt med dine forslag, men de fungerer ikke rigtigt. Har derfor sat den makro, som jeg bruger, her nedenunder

Sub DataTilEnCelle()

Dim outputText As String
Const tegn = ", "

On Error Resume Next

Sheets("Rapport").Select
Range("G3:G11").Select

For Each Cell In Selection
If Not IsEmpty(Cell) Then
outputText = outputText & Cell.Value & tegn
End If

Next Cell

Application.Goto Reference:="Bemærk1"


With Selection
.Clear
.Value = outputText
.Value = Left(.Value, Len(.Value) - 2)
.WrapText = True
End With

End Sub

Ved at bruge nedenstående makro, er resultatet IsText, ????, men der er ikke noget synligt i cellen. Hvis jeg "deleter" cellen, bliver resultatet isNumeric

Sub x()
   
    If Application.WorksheetFunction.IsText(Range("A1")) Then MsgBox "IsText"
    If Application.WorksheetFunction.IsNumber(Range("A1")) Then MsgBox "IsNumber"
   
    If IsNumeric(Range("A1")) Then MsgBox "IsNumeric"
   
End Sub

"Saksede denne på nettet. Fjerner umiddelbart "usynligt indhold i celler".

Sub NoNull()
Dim rCell As Range
Application.ScreenUpdating = False
For Each rCell In Selection
If Len(rCell.Value) = 0 Then rCell.ClearContents
Next rCell
Application.ScreenUpdating = True
End Sub