Formatersetzen von Teiltexten
06.05.2008 12:31:48
Teiltexten
mit dem unten stehenden Script kann ich in der ersten Spalte einer Datei alle Question in QUESTION ändern und die Zeile fett machen. Soweit bin ich alleine gekommen ;)
Wenn ich nun aber nicht die ganze Zeile sondern nur den Ausdruck, also das Wort Question, fett machen will, geht das auch einfach zu definieren? Irgendwie habe ich zu so TeilFormatÄnderungen noch nichts gefunden...
LG,
Tommi
Sub Formatierung()
Dim x As Integer
For x = 1 To 21000
If (Left(Cells(x, 1), 8) = "Question") Then
Cells(x, 1) = "QUESTION " + Mid(Cells(x, 1), 9, Len(Cells(x, 1)) - 8)
Rows(x).Font.Bold = True
End If
Next x
End Sub