[Gelöst] Suchen Und Ersetzen für alle Sheets

[MikeRo]

Hier die Lösung, mit schleife für alle Sheets.

Code: Alles auswählen

Sub SuchenUndErsetzen
oDoc = thisComponent
Anzahl = oDoc.Sheets.count
	For i = 0 to Anzahl-1
		oSheet = oDoc.Sheets(i)
		oSuchen = oSheet.createReplaceDescriptor
		oSuchen2 = oSheet.createReplaceDescriptor
		oSuchen3 = oSheet.createReplaceDescriptor

			with oSuchen
			.setSearchString("Ergebnis")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		        .setReplaceString("")
			End with
			
			with oSuchen2
			.setSearchString("Ž")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		        .setReplaceString("'")
		    End with
		    
			with oSuchen3
			.setSearchString("\n")
			.SearchRegularExpression = TRUE 'Suche nach Ausdruck in diesem Fall Zeilenumbruch
		        .setReplaceString(" ")
		    End with		

	osheet.replaceAll(oSuchen)
	osheet.replaceAll(oSuchen2)
	osheet.replaceAll(oSuchen3)
	Next i
End Sub

[komma4]

Verwende keinen dispatcher-Code, sondern Basic-Anweisungen.

Hier im Forum wirst Du fündig, wenn Du nach SearchDescriptor suchst.


Viel Erfolg!

[MikeRo]

Danke, habe es gefunden und programmiert. Mit schleife für alle Sheets.

Code: Alles auswählen

Sub SuchenUndErsetzen
oDoc = thisComponent
Anzahl = oDoc.Sheets.count
	For i = 0 to Anzahl-1
		oSheet = oDoc.Sheets(i)
		oSuchen = oSheet.createReplaceDescriptor
		oSuchen2 = oSheet.createReplaceDescriptor
		oSuchen3 = oSheet.createReplaceDescriptor

			with oSuchen
			.setSearchString("Ergebnis")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		    .setReplaceString("")
			End with
			
			with oSuchen2
			.setSearchString("Ž")
			.SearchCaseSensitive = TRUE 'Achtet Groß und Klein Schreibung
		    .setReplaceString("'")
		    End with
		    
			with oSuchen3
			.setSearchString("\n")
			.SearchRegularExpression = TRUE 'Suche nach Ausdruck in diesem Fall Zeilenumbruch
		    .setReplaceString(" ")
		    End with		

	osheet.replaceAll(oSuchen)
	osheet.replaceAll(oSuchen2)
	osheet.replaceAll(oSuchen3)
	Next i
End Sub