Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textteil in Klammern mit VBA fett formatieren

Textteil in Klammern mit VBA fett formatieren
02.02.2006 09:54:30
Gregor
Hallo Excel-Freunde
Folgendes Problem in Spalte B, Zeilen 1-100: Ich möchte mit VBA einen Teilbereich eines Textes fett markieren. Konkret soll ein nicht konstanter Text innerhalb Klammern fett formatiert werden. Der Text in Klammern ist in jeder Zelle also anders. In einer Zelle können mehrere Klammerinhalte vorkommen (d.h. fett in Klammern, normal danach, fett in Klammern, normal danach etc.)
Ein Beispiel:
asdjklfasjdka(xxxxx)safjklasjlf(yyyyyy)kjjafskd. Ziel: xxxxx und yyyyyyy müssen fett formatiert sein.
Habe Stunden verbracht mit Strings, allerdings zu keiner befriedigenden Lösung gekommen.
Weiss jemand Rat?
Besten Dank für deinen Imput!
Grüsse
Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textteil in Klammern mit VBA fett formatieren
02.02.2006 10:13:09
Josef
Hallo Gregor!
Sub InKlammerFett()
Dim intStart As Integer, intEnde As Integer
Dim rng As Range

For Each rng In Range("B1:B100")
  If Len(rng) > 0 Then
    intStart = InStr(1, rng, "(")
    intEnde = InStr(1, rng, ")")
    If intStart > 0 And intEnde > 0 Then
      Do
        rng.Characters(intStart + 1, intEnde - intStart - 1).Font.Bold = True
        intStart = InStr(intEnde + 1, rng, "(")
        intEnde = InStr(intEnde + 1, rng, ")")
      Loop While intStart > 0 And intEnde > 0
    End If
  End If
Next

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Textteil in Klammern mit VBA fett formatieren
02.02.2006 10:20:30
Gregor
Merci Josef für die prombte Lösung.
Hast mir sehr geholfen.
Grüsse
Gregor

316 Forumthreads zu ähnlichen Themen


Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
Anzeige

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
Anzeige

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...

Hallo Zusammen
Könnte mir jemand diese Formel überprüfen warum sie nicht geht!
C8 = ist der Name der Gesellschaft
C9 = ist das Datum z.b. 31.Dezember 2008
="Abschlussmemo für die "&TEXT(Stammdaten!$C$8;"per")&TEXT(Stammdaten!$C$9;"TT. MMMMMMMM JJJJ")
Für Eure hilfe...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige