Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon jomoss vom 20.02.2021, 15:19 Options

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

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.

Antwort schreiben

Antwort 1 von Hajo_Zi vom 20.02.2021, 15:29 Options

Hallo,

sind das Formeln? Da geht es nicht.

Gruß Hajo

Antwort 2 von nighty vom 20.02.2021, 15:32 Options

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

Antwort 3 von jomoss vom 20.02.2021, 15:51 Options

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

Nochmals vielen Dank.

Antwort 4 von Hajo_Zi vom 20.02.2021, 15:52 Options

Hallo,

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

Gruß Hajo

Antwort 5 von nighty vom 20.02.2021, 18:52 Options

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

Antwort 6 von jomoss vom 20.02.2021, 20:35 Options

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.

Antwort 7 von Hajo_Zi vom 20.02.2021, 20:44 Options

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

Antwort 8 von nighty vom 21.02.2021, 11:38 Options

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

Antwort 9 von jomoss vom 24.02.2021, 20:37 Options

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

CU

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..