Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schriftart zuweisen

Forumthread: Schriftart zuweisen

Schriftart zuweisen
28.05.2008 18:21:00
gp
Hallo,
ich möchte, das das VT und der : aus diesem Code
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
Fett dargetstellt wird. Ich hoffe das geht so einfach.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Textformatierung in Formeln ist NICHT möglich
28.05.2008 18:26:23
NoNet
Hallo Gunter,
da muss ich (bzw. EXCEL) Dich leider enttäuschen :
Eine (partielle) Textformatierung per Formel/Funktion ist leider nicht möglich ! Auch per VBA können nur komplette Zellinhalte formatiert werden wenn die Zelle eine Formel/Funktion enthält !
Formel-Funktionsergebnisse können leider NICHT partiell formatiert werden - auch nicht per VBA !
Dazu müsste man allenfalls den Zellinhalt durch dessen angezeigten Text ersetzen, wodurch die Formel/Funktion der Zelle überschrieben würde !
Gruß, NoNet

Anzeige
AW:ist ja keine Formel, könnte schon gehen
28.05.2008 18:43:29
Daniel
Hallo Nonet
nja, der Inhalt von von StrText ist ja keine Formel, sondern ein normaler Text, also könnte es schon funktionieren.
allerdings kann man das Fett-Darstellen nur innerhalb einer Zelle darstellen und nicht in der Variable strText selbst, der Weg wäre also folgender:
1. strText den Textwert zuweisen
2. strText in eine Zelle schreiben
3. in dieser Zelle dann den Textteil entsprechend formatieren.
das könnte dann so aussehen, da strTxt verändert wird, muss man sich die Anzahl der Buchstaben zur richtigen Zeit merken

x = len(strText)+1
y = x + 2 + len(cells(zz,0).value)
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
with activecell.
.value = strTxt
.Characters(Start:=x, Length:=2).Font.FontStyle = "Fett" 'VT fett
.Characters(Start:=y, Length:=1).Font.FontStyle = "Fett" 'Doppelpunkt fett
end with


Gruß, Daniel

Anzeige
AW: AW:ist ja keine Formel, könnte schon gehen
28.05.2008 21:31:00
gp
Hallo NoNet und Daniel,
vielen Dank für die Antworten. Ich habe schon befürchtet, dass das nicht so einfach ist. Ich werde morgen Daniels Vorschlag mal ausprobieren und berichten wie es funktioniert.
Nochmals herzlichen Dank.
Gruss
Gunter

ist ja keine Formel, könnte schon gehen
29.05.2008 10:32:00
gp
Hallo Daniel,
ich bin jetzt schon länger dran, aber ich bekomm es einfach nicht hin. Es kommt ständig die Fehlermeldung
"Laufzeitfehler 1004" wodurch sich das Testen auch sehr schwierig gestaltet.
Die Fehlermeldung kommt wenn der Debugger bei y = x + 2 + Len(Cells(zz, 0).Value) angelangt ist.
Für weitere Unterstützung bin ich sehr dankbar.
Gruss
Gunter

Anzeige
AW: ist ja keine Formel, könnte schon gehen
29.05.2008 20:09:45
Lars
Hi,
belaste dich nicht weiter, das geht ganz einfach nicht.
mfg Lars

AW: es geht, wenn TEXT in der Zelle steht.
30.05.2008 19:49:00
Daniel
Hi
lass dich von Lars nicht ins Bockshorn jagen, das funktioniert schon.
der Fehler ist nur ein tippfehler von mir, 0 statt 9 als Spalten-Nr.
die Spalten fangen bei 1 an, daher gibt die 0 nen fehler.
ansonsten funktioniert es, VT und der Doppelpunkt werden fett:

x = Len(strTxt) + 1
y = x + 3 + Len(Cells(zz, 9).Value)
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
With ActiveCell
.Value = strTxt
.Characters(Start:=x, Length:=2).Font.FontStyle = "Fett" 'VT fett
.Characters(Start:=y, Length:=1).Font.FontStyle = "Fett" 'Doppelpunkt fett
End With


Gruß, Daniel

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige