EXCEL-Text mit Script formatieren

[bezi27]

Hallo,

ich habe ein ganz spezielles Problem (Notes 7) und trotz aller Versuche bin ich bisher auf keinen grünen Zweig gekommen.
Daher hoffe ich, dass mir hier ein Experte weiterhelfen kann:

Ich erstelle und befülle eine Tabelle im EXCEL über Script.
Dabei werden auch Zellen in dieser Tabelle verbunden und mit Text befüllt.
so weit, so gut.

Aber:
Ich möchte einen Teil des Textes in dieser Zelle fett schreiben.
Im EXCEL funktioniert das ja auch ganz gut, aber das Script lässt den Syntax nicht zu!

Im Excel schaut das so aus (Beispiel):

ActiveCell.FormulaR1C1 = _
        "erste Zeile - Standardschrift." & Chr(10) & "Zweite Zeile - ebenso." & Chr(10) & "" & Chr(10) & "Dritte Zeile - die ist jetzt fett geschrieben." & Chr(10) & "" & Chr(10) & "Vierte "
    With ActiveCell.Characters(Start:=1, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=56, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range(Selection, Cells(ActiveCell.Row, 1)).Select
    ActiveCell.FormulaR1C1 = _
        "erste Zeile - Standardschrift." & Chr(10) & "Zweite Zeile - ebenso." & Chr(10) & "" & Chr(10) & "Dritte Zeile - die ist jetzt fett geschrieben." & Chr(10) & "" & Chr(10) & "Vierte Zeile - wieder Standardschrift."
    With ActiveCell.Characters(Start:=1, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=56, Length:=48).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=104, Length:=38).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Im Script ist es aber leider nicht möglich, die Anweisung "Start := " zu geben - hier wird immer ein Fehler angezeigt.

Weiß jemand eine alternative Schreibweise fürs EXCEL?

Vielen Dank im Voraus!

bezi27

[bezi27]

Uuuuuuuuuuuuuups - sorry!

Nachdem ich in diesem Forum schon mal fürchterlich geschimpft wurde, weil ich mich mit dem Nickname verabschiedet habe, hier die Korrektur:

Vielen Dank im Voraus

Bettina

[Werner Götz]

Lotusscript unterstützt bei Funktionsaufrufen keine benannten Parameter. Also muss statt

Code

ActiveCell.Characters(Start:=56, Length:=55)

aus Lotusscript

Code

ExcelApplication.ActiveCell.Characters(56, 55)

geschrieben werden. ExcelApplication ist hier die Variable für das Excel-Application-Objekt.

Hierbei ggf. in der Excel-Dokumentation die richtige Reihenfolge der Parameter sicherstellen. Das ist nämlich der Vorteil bei benannten Parametern: Man muss sich nicht um die Reihenfolge der Parameter kümmern.

-Werner

[bezi27]

Lieber Werner,

allerherzlichsten Dank - die schlaflosen Nächte sind vorbei, Problem gelöst.
Funktioniert super. 

merci nochmals

Bettina

[Axel]

Noch mehr infos zu dem Thema findest du hier: http://atnotes.de/index.php/topic,39862.0.html

Axel