Teiltexte in einer Zelle ändern (Programmierung / Office/Excel)

Autor

Thema: Teiltexte in einer Zelle ändern (941 mal gelesen)

barbarossa
Mitglied
Konstrukteur

Senden Sie eine Private Message an barbarossa

Schreiben Sie einen Gästebucheintrag für barbarossa

Beiträge: 273
Registriert: 21.02.2003

ProE 20
ProE 2000i
ProE 2001
ProE WF2 M130
ProE WF3 M170
ProE WF4 M210
Catia V5 R19
NX 5
ME10 7.0
AutoCAD Mechanical 2007 (blutiger Anfänger)
Office 2003

erstellt am: 08. Jul. 2013 13:46

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Bsp.xlsx.txt

Hallo,

ich habe eine große Tabelle (ca. 1700 Zeilen). In der Spalte
"Beschreibung" findet man sehr oft die Textteile "Yes - " und "No - "
oder "Ja - " und "Nein - " als Optionsangaben.

Die Tabelle stammt aus einer konvertierten PDF-Datei.

Ich möchte gerne die Einzelteile mittels "Suchen - Ersetzen"
finden und zB. fett formatieren und durch Zeilenumbruch an
den Zeilenanfang bringen.

Wie kann man das realisieren?

Bei meinen Versuchen wurden die Textschnipsel zwar gefunden,
aber das Ersetzen hat die ganze Zelle fett-formatiert.

Weiß jemand Abhilfe?

Vielen Dank
Gruß
Barbarossa

------------------
-----------------------------------------------
Eventuelle Doppelbuchstaben, welche einen Recht-
schreibfehler darstellen, sind unbeabsichtigte
Tastaturpreller.

[Diese Nachricht wurde von barbarossa am 08. Jul. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

.....
Mitglied

Senden Sie eine Private Message an .....

Schreiben Sie einen Gästebucheintrag für .....

Beiträge: 433
Registriert: 01.07.2011

erstellt am: 08. Jul. 2013 14:14

<-- editieren / zitieren -->

Unities abgeben:

Nur für barbarossa

>> Ideenansatz mit VBA <<

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

HenryV
Mitglied
Konstrukteur, Engineering

Senden Sie eine Private Message an HenryV

Schreiben Sie einen Gästebucheintrag für HenryV

Beiträge: 778
Registriert: 18.05.2005

SolidWorks 2020 x64 SP3.0
Dell Precision 5820
Intel Xeon W-2125 4x4GHz
NVIDIA Quadro P2000 5GB
32GB RAM
2x Dell U2412M, 24" TFT
Windows 10 Enterprise x64 21H1
Microsoft Office 365 ProPlus
Microsoft Visual Studio Enterprise 2022

erstellt am: 08. Jul. 2013 17:08

<-- editieren / zitieren -->

Unities abgeben:

Nur für barbarossa

Hallo Barbarossa

Angelehnt an .....s Ideenansatzes

Code:
Sub Makro1()
Dim Zelle As Range

For Each Zelle In Selection

If InStr(Zelle.Value, "Yes -") Then
Zelle.Value = Replace(Zelle.Value, "Yes -", vbCrLf & "YES -")
End If

If InStr(Zelle.Value, "No -") Then
Zelle.Value = Replace(Zelle.Value, "No -", vbCrLf & "NO -")
End If

If InStr(Zelle.Value, "Ja -") Then
Zelle.Value = Replace(Zelle.Value, "Ja -", vbCrLf & "YES -")
End If

If InStr(Zelle.Value, "Nein -") Then
Zelle.Value = Replace(Zelle.Value, "Nein -", vbCrLf & "NO -")
End If

Zelle.Characters(InStr(Zelle.Value, "YES -"), 3).Font.Bold = True
Zelle.Characters(InStr(Zelle.Value, "NO -"), 2).Font.Bold = True

Next
End Sub

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

barbarossa
Mitglied
Konstrukteur

Beiträge: 273
Registriert: 21.02.2003

ProE 20
ProE 2000i
ProE 2001
ProE WF2 M130
ProE WF3 M170
ProE WF4 M210
Catia V5 R19
NX 5
ME10 7.0
AutoCAD Mechanical 2007 (blutiger Anfänger)
Office 2003

erstellt am: 08. Jul. 2013 17:14

<-- editieren / zitieren -->

Unities abgeben:

Hallo HenryV,

vielen Dank für 22 - 42

Gruß
Barbarossa

------------------
-----------------------------------------------
Eventuelle Doppelbuchstaben, welche einen Recht-
schreibfehler darstellen, sind unbeabsichtigte
Tastaturpreller.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)