Meldung unterdrücken

[bst]

Morgen,

versuche das vielleicht mal so.

cu, Bernd
--

Code: Alles auswählen

Sub Main
	dim oSheet, oRange, OSR

	oSheet = ThisComponent.CurrentController.ActiveSheet
	oRange = oSheet.getCellRangeByName("D11:D13")
	oSR = oRange.createReplaceDescriptor
	oSR.SearchCaseSensitive = true
	oSR.SearchRegularExpression = false
	oSR.setSearchString("/")
	oSR.setReplaceString("_")
	oRange.ReplaceAll(oSR)
End Sub