2 Formate in einer Zelle anzeigen

26/09/2007 - 11:21 von Hans-Reginald Ernst | Report spam
Hallo,
ich möchte bei Excel 2000 in einer Zelle 2 Formate anzeigen. Beispiel:
Formel: =H1&":"&H5. Der Wert aus H1 soll fett und der Wert aus H5 soll
normal dargestellt werden. (Es handelt sich um die Darstellung von
Mannschaften, d.h. Verein A gegen Verein B). Ich habe es schon mit der
bedingten Formattierung probiert, es aber nicht geschafft.
Wie stelle ich das an?
Vielen Dank vorab.
Hans-Reginald
 

Lesen sie die antworten

#1 Claus Busch
26/09/2007 - 11:43 | Warnen spam
Hallo Ernst,

Am Wed, 26 Sep 2007 11:21:15 +0200 schrieb Hans-Reginald Ernst:

ich möchte bei Excel 2000 in einer Zelle 2 Formate anzeigen. Beispiel:
Formel: =H1&":"&H5. Der Wert aus H1 soll fett und der Wert aus H5 soll
normal dargestellt werden. (Es handelt sich um die Darstellung von
Mannschaften, d.h. Verein A gegen Verein B). Ich habe es schon mit der
bedingten Formattierung probiert, es aber nicht geschafft.



dazu wirst du VBA benötigen. Zuerst müsstest du deine Spalte mit den
Formeln kopieren und an gleicher Stelle mit Bearbeiten => Inhalte einfügen
=> Werte wieder einfügen und dann dieses Makro aufrufen (du musst noch die
Bezüge in diesem Code deiner Tabelle entsprechend anpassen):
Dim rngZelle As Range
Dim i As Integer
Dim k As Integer
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row

'Hier entsprechend den Bereich anpassen
For Each rngZelle In Range("A1:A" & LRow)
'Stringlànge der Zelle
k = Len(rngZelle)

i = InStr(rngZelle, ":")

With rngZelle.Characters(Start:=1, Length:=i - 1).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
End With
With rngZelle.Characters(Start:=i, Length:=k + 1 - i).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With

Next


Mit freundlichen Grüssen
Claus Busch

Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen