Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA, Textteile unterstreichen

VBA, Textteile unterstreichen
02.05.2017 09:58:54
Marcy
Hallo zusammen,
mit einer Excel Vorlage erstelle ich Auditberichte.
Dazu baue ich den Text aus verschiedenen Zellen zusammen.
Dass hat für mich große Vorteile.
Einziger Nachteil, die Übersicht im Fließtext könnte besser sein.
Beispiel der derzeitigen Ansicht einer Zelle, Text per Formel zusammengestellt (je nach Berichtsumfang 100-200 Zellen dieser Art)
05.01.2017 Das Problem ist....
...blablabla und so weiter....
16.01.2017 Zeichnung geändert und an Lieferant.....blablabla und so weiter....
...blablabla und so weiter....
...blablabla und so weiter....
...blablabla und so weiter....
...blablabla und so weiter....
03.03.2017 Erstmuster nach neuem Stand eingetroffen...."
Da diese Zellen mit einer Formel zusammengestellt wird, bin ich nicht in der Lage
"" + Datum zu unterstreichen.
Nach jedem Berichtsupdate erstelle ich ein PDF.
Jetzt baue ich an einem CODE
-Datei speichern
-Datei speichern unter mit Dateinamen Zusatz "nur zur PDF Erstellung"
-Bereich C408 bis C700 kopieren
-einfügen als Werte
bis hier hin ist es erledigt und läuft.
Ich brauche jetzt noch
- Bereich C408:C700 nach "" suchen und und die nächsten 11 Zeichen unterstreichen.
Für einen hilfreichen Ansatz wäre ich dankbar.
Gruß Marcy

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

Betreff
Datum
Anwender
Anzeige
AW: VBA, Textteile unterstreichen
02.05.2017 10:11:21
Daniel
Hi
eigentlich ganz einfach:
Sub test()
Dim zelle As Range
Dim txt As String
Dim Pos As String
For Each zelle In Range("C408:C700")
txt = zelle.Value
Pos = 0
Do
Pos = InStr(Pos + 1, txt, "")
If Pos = 0 Then Exit Do
zelle.Characters(Start:=Pos, Length:=13).Font.Underline = xlUnderlineStyleSingle
Loop
Next
End Sub
Gruß Daniel
AW: VBA, Textteile unterstreichen
02.05.2017 10:28:06
Marcy
Hallo Daniel,
die für Dich ;-) ganz einfache Antwort hat mir aber sehr geholfen.
Habe es bereits mit Erfolg getestet.
Vielen Dank
Gruß Marcy
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge