Suche VBA-Funktion für Fettschrift in Text-String

Question

Hallo,
ich möchte in einem Excel-Arbeitsblatt verschiedene Textpassagen und Zahlenwerte miteinander verknüpfen und die Zahlenwerte dabei aber fettschreiben. Mit der =TEXT(...) - Funktion geht das leider nicht.
Eine andere habe ich bisher nicht gefunden, so denke ich, ich komme nur mit einer selbstdefinierten Funktion weiter. Beispielsweise:

Function fctFettschrift(Zelle As Range)
fctFettschrift = Zelle.Font.Bold
End Function

Problem: Das Teil wirft bei der Verwendung als Funktion im Arbeitsblatt =PERSONL.XLS!fctFettschrift(B4) nur WAHR oder FALSCH aus. Ich möchte dagegen erreichen, dass der Wert aus der Zelle B4 bei der Verwendung in der Verkettung fettgeschrieben wird.

Kann mir jemand helfen?

Vielen Dank schon vorab.

Answer 1

Hallo,

sind das Formeln? Da geht es nicht.

Gruß Hajo

Answer 2

hi jomoss ^^

eine function gibt generell nur einen wert zurueck

gruss nighty

eine andere variante waere vielleicht diese ?

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count < 2 Then
If Not Intersect(ActiveCell, Range("A1:A800")) Is Nothing Then
With Target.Font
.Name = "Courier New"
.FontStyle = "Fett"
.Size = 10
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
End If
Application.EnableEvents = True
End Sub

Answer 3

Vielen Dank, das ging von beiden sehr schnell.
Mein Problem hat es aber nicht ganz getroffen. Ich hoffe weiter...

Nochmals vielen Dank.

Answer 4

Hallo,

wäre da eine Antwort auf die Frage nicht hilfreich?

Gruß Hajo

Answer 5

hi jomoss ^^

eingabe a1 text
eingabe b1 zahl

nach eingabe der zahl erfolgt ein automatismus der darstellung in c1 wobei die zahl fett ist

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count < 2 Then
If Not Intersect(Target, Range("B1:B800")) Is Nothing Then
Cells(Target.Row, 3) = Cells(Target.Row, 1) & " " & Cells(Target.Row, Target.Column)
With Cells(Target.Row, 3).Characters(Start:=InStr(1, Cells(Target.Row, 3), " ") + 1, Length:=Len(Cells(Target.Row, 3))).Font
.Name = "Courier New"
.FontStyle = "Fett"
.Size = 10
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
End If
Application.EnableEvents = True
End Sub

Answer 6

Hallo Hajo,

natürlich gebe ich auch Dir gerne eine Antwort. Also, ich verwende Funktionen in einem Arbeitsblatt in der Form:
="Ihr Umsatz ist " & FUNKTION(Zelle) & " Euro."

Funktion(Zelle) übernimmt einen Zahlenwert aus einer anderen Zelle.
Dieser soll fett geschrieben werden. Die passende Funktion dazu suche ich.

Ist das nachvollziehbar formuliert?

Vielen Dank.

Answer 7

Hallo Nick,

und da habe ich die Antwort schon gegeben. In Formeln geht das nicht.
Falls es Dir nicht aufgefallen ist Deins ist eine Formel.

Gruß Hajo

Answer 8

hi jomoss ^^

dann schummel doch ein wenig :-)

setze die werte in seperaten zellen,fülle beide zellen mit hintergrundfarbe weiss,setze die rahmung neu und nun sieht keiner mehr das es 2 zellen sind und du kannst nun eine spalte fett formatieren :-)

gruss nighty

Answer 9

Also, offenbar kann mein Anliegen nicht direkt gelöst werden. Danke aber trotzdem an beide.

CU