Text und Zahlen formatieren

Forumthread: Text und Zahlen formatieren

09.05.2005 19:13:54

Beppo

Guten Abend,
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text und Zahlen formatieren

09.05.2005 22:36:17

Ramses
AW: Text und Zahlen formatieren

09.05.2005 22:46:22

Werner
AW: Text und Zahlen formatieren

09.05.2005 22:57:52

Ramses
AW: Text und Zahlen formatieren

09.05.2005 23:43:53

Werner

AW: Text und Zahlen formatieren

09.05.2005 22:36:17

Ramses

Hallo
zeig mal ein Beispiel, und vor allem was in der Zelle steht und wie sich der Inhalt zusammensetzt.
Gruss Rainer

AW: Text und Zahlen formatieren

09.05.2005 22:46:22

Werner

Hallo Beppo,
Öffne den VBA Editor und füge den folgenden Code in ein Modul ein.




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

Die Funktion prüft Zeichenweise den Text ob er nicht Nummerisch ist.
Ist das der Fall (Not IsNumeric), wird das Zeichen einer Variablen (strRückgabe)
hinzugefügt.
Zum Schluß wird der Inhalt aus der Variablen strRückgabe an die Funktion fktNurText übergeben.
Anwendungsbeispiel:
Wenn Dein Ergebnis (Text mit Zahlen) in Zelle A1 steht, gebe in B1 die folgende Formel ein.



    =fktNurText(A1)

Gruß
Werner

AW: Text und Zahlen formatieren

09.05.2005 22:57:52

Ramses

Hallo
schöne Funktion, darf ich etwas optimieren.
Ist einfacher als zu erfinden :-)


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

Aber meine eigentliche Frage an Ihn war deswegen:
A1 = Jahr
B1 = 2005
C1 =A1 & " " & B1
Was machst du mit deiner Funktion nun in C1 ?
Ausserdem sollte aufgrund der Fragenstellung nur die betreffende Zelle formatiert werden, nicht das Ergebnis in einer anderen Zelle dargestellt werden.
Trotzdem,... eine hübsche Funktion.
Gruss Rainer

AW: Text und Zahlen formatieren

09.05.2005 23:43:53

Werner

... ach Du meine Güte. Da habe ich die Aufgabenstellung falsch verstanden.
Ich hoffe ihr könnt mir verzeihen. :-)
Gruß
Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Text und Zahlen formatieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread