Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1912to1916

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Wörter in Zelle fett markieren

Forumthread: Wörter in Zelle fett markieren
8 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

09.01.2023 10:44:07

Heiko

Hallo!
Ich möchte die ersten beiden Wörter einer Zelle per VBA fett markieren. Das soll aber über einen bestimmten Bereich, zB F5:F50 ausgeführt werden. Ich habe es mit mit dem Beispiel aus https://www.herber.de/forum/archiv/856to860/857750_Erstes_Wort_aus_Zelle_fett_formatieren.html probiert, komme damit aber nicht weiter. Hat da jemand noch eine Idee?
Beste Grüße!

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wörter in Zelle fett markieren

09.01.2023 10:58:11

Rudi
AW: Wörter in Zelle fett markieren

09.01.2023 11:16:33

MCO
AW: Wörter in Zelle fett markieren

09.01.2023 12:39:36

Heiko
Endlosschleife

09.01.2023 12:47:02

Rudi
Korrektur

09.01.2023 13:01:01

Rudi
AW: Korrektur

09.01.2023 13:23:26

Heiko
AW: Korrektur

09.01.2023 14:19:44

Heiko
bei mir nicht. owT

09.01.2023 14:38:27

Rudi

AW: Wörter in Zelle fett markieren

09.01.2023 10:58:11

Rudi

Hallo,


Sub erste2fett()
Dim tmp, r As Range, l As Integer
Application.ScreenUpdating = False
For Each r In Range("F5:F50")
tmp = Split(r)
If UBound(tmp) > 0 Then
l = Len(tmp(0)) + Len(tmp(1)) + 1
r.Characters(1, l).Font.Bold = True
End If
Next r
End Sub

Gruß
Rudi

AW: Wörter in Zelle fett markieren

09.01.2023 11:16:33

MCO

Auch eine Möglichkeit


Sub Wörter_verfetten()
Anzahl_Wörter = 2
For Each cl In Range("F5:F50").SpecialCells(xlConstants)
zchn = 1
Do
cl.Characters(1, zchn).Font.Bold = True
zchn = zchn + 1
Loop Until Len(Left(cl, zchn)) = Len(Replace(Left(cl, zchn), " ", "")) + Anzahl_Wörter
Next cl
End Sub

Gruß, MCO

AW: Wörter in Zelle fett markieren

09.01.2023 12:39:36

Heiko

Hallo MCO!
Der Code druckt tatsächlich die ersten beiden Worte fett, leider jedoch nur bis Zeile 10. Dann stürzt Excel ab... Woran könnte das liegen? Vielen Dank schon einmal für deine Hilfe, so weit bin ich in den letzten Stunden nicht ansatzweise gekommen....

Endlosschleife

09.01.2023 12:47:02

Rudi

Hallo,
passiert, wenn die Zelle weniger als 3 Wörter enthält.
Gruß
Rudi

Korrektur

09.01.2023 13:01:01

Rudi

der erste hat einzelne Wörter nicht gefettet.


Sub erste2fett()
Dim tmp, r As Range, l As Integer
Application.ScreenUpdating = False
For Each r In Range("F5:F50")
l = 0
If Len(r) Then
tmp = Split(r)
Select Case UBound(tmp)
Case 0:     l = Len(r)
Case Else:  l = Len(tmp(0)) + Len(tmp(1)) + 1
End Select
r.Characters(1, l).Font.Bold = True
End If
Next r
End Sub

Gruß
Rudi

AW: Korrektur

09.01.2023 13:23:26

Heiko

Hallo Rudi!
Das hat perfekt geklappt, vielen Dank dafür!

AW: Korrektur

09.01.2023 14:19:44

Heiko

Wenn ich das noch einmal ausführe, werden auch die nächsten Worte fett gemacht. Hast du da noch eine Idee?

bei mir nicht. owT

09.01.2023 14:38:27

Rudi