als Ergebnis einer Formel ist ein Text mit Zahlen vorhanden! Ist es möglich die
betreffende Zelle so zu formatieren, dass nur der Text angezeigt wird?
Mir fällt da leider nichts ein.
Gruss Beppo
Function fktNurText(strTextMitZahl As String) As String Dim intAnzahlZeichen As Integer Dim strRückgabe As String Dim strZeichenPrüfen As String Dim intCounter As Integer intAnzahlZeichen = Len(strTextMitZahl) If intAnzahlZeichen < 1 Then Exit Function For intCounter = 1 To intAnzahlZeichen strZeichenPrüfen = Mid(strTextMitZahl, intCounter, 1) If Not IsNumeric(strZeichenPrüfen) Then strRückgabe = strRückgabe & strZeichenPrüfen End If Next fktNurText = strRückgabe End Function
=fktNurText(A1)
Function fktNurText(strTextMitZahl As String) As String
Dim strRückgabe As String
Dim intCounter As Integer
If Len(strTextMitZahl) >0 then
For intCounter = 1 To intAnzahlZeichen
If Not IsNumeric(Mid(strTextMitZahl, intCounter, 1)) Then
strRückgabe = strRückgabe & strZeichenPrüfen
End If
Next
fktNurText = strRückgabe
End If
End Sub