Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text und Zahlen formatieren

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
Anzeige
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
Anzeige
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
Anzeige
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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige