Hallo,
ich habe Hilfszahlen in einige Zellen geschrieben. Diese Hilfszahlen werden später einerseits zur Textdarstellung und andererseits zum Versetzen (Offset) von Farbmarkierungen verwendet.
Nach Abschluss befindet sich in dem Hilfszahlenbereich zum einen Zahlen zum anderen Text.
Die verbliebenen Zahlen möchte ich nun wieder löschen.
Ich habe schon die WorksheetFunction.IsNumber(...), die WorksheetFunction.IsText(...) und die VBA Prüfung IsNumeric(...) probiert. Leider funktioniert das nicht wie gewünscht.
' Hilfszahlen entfernen
For i = 1 To WorksheetFunction.Count(AblaufBereich) + (Rde * 2)
For n = 1 To 9
If IsNumeric(Range("C1").Offset(n, i + 5).Value) = True Then
Range("C1").Offset(n - 1, i + 5).Value = ""
End If
Next n
Next i
Kennt jemand eine andere Möglichkeit.
Siegfried