von MikeRo » Mi, 03.08.2011 13:53
Ich habe noch ein neues Problem.:
Ich lese Wörter aus der Datenbank aus und schreibe sie als Überschrift in die Tabelle.
Wenn ich z.B. Spezialrabatt als Wort habe, soll dieses Makro rabatt abschneiden und drunter schreiben.
Es macht es aber nicht, wenn die Zeile breit genug ist, ist das Wort trotzdem nebeneinander... :/
Code: Alles auswählen
Sub SilbenTrennung
oCellRange = oSheet.getCellRangeByName("A10:ZZ10")
ReplaceDescriptor = oCellRange.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "rabatt"
ReplaceDescriptor.ReplaceString = "-" & chr(10)& chr(13)& "rabatt"
oCellRange.ReplaceAll(ReplaceDescriptor)
ReplaceDescriptor.SearchString = "Produktionskosten"
ReplaceDescriptor.ReplaceString = "Produktions-" & chr(10)& chr(13)& "kosten"
oCellRange.ReplaceAll(ReplaceDescriptor)
End Sub
Ich habe noch ein neues Problem.:
Ich lese Wörter aus der Datenbank aus und schreibe sie als Überschrift in die Tabelle.
Wenn ich z.B. Spezialrabatt als Wort habe, soll dieses Makro rabatt abschneiden und drunter schreiben.
Es macht es aber nicht, wenn die Zeile breit genug ist, ist das Wort trotzdem nebeneinander... :/
[code]
Sub SilbenTrennung
oCellRange = oSheet.getCellRangeByName("A10:ZZ10")
ReplaceDescriptor = oCellRange.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "rabatt"
ReplaceDescriptor.ReplaceString = "-" & chr(10)& chr(13)& "rabatt"
oCellRange.ReplaceAll(ReplaceDescriptor)
ReplaceDescriptor.SearchString = "Produktionskosten"
ReplaceDescriptor.ReplaceString = "Produktions-" & chr(10)& chr(13)& "kosten"
oCellRange.ReplaceAll(ReplaceDescriptor)
End Sub
[/code]