Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige