OpenOffice.info

=WENN(ISTFEHLER(SUCHEN("10";C1));"xxxxxxx";"ÄNDERUNG")

Hallo Johnny,

Jetzt hast Du schon zwei verschiedene Möglichkeiten. Wie wärs mit ner dritten?
Doch zu vor würde mich da noch so einiges interessieren.
- Wie kommen die Daten in die Datei?
- Hast Du in den Spalten A und C irgendwelche Formeln drin?
- Darf die Spalte A mit Formeln befüllt werden?

Angenommen in der Spalte A dürfen Formeln rein, dann ginge es wie folgt.
[code]
=WENN(ISTFEHLER(SUCHEN("10";C1));"xxxxxxx";"ÄNDERUNG")
[/code]
Und anschließend die Formel so weit runterziehen (runterkopieren) wie Du es brauchst.



Gruß
balu

Hallo

mit zwei Hilfsspalten geht es auch ohne "Code"

schreib in die linke erste Zelle der beiden Hilfspalten [color=#0000FF][b]=A1&"·"&C1[/b][/color]
zieh diese Formel so weit wie benötigt runter,
nun sollte in den Zelle jeweils eine Kombination aus den Inhalten der Zelle A und C
der jeweiligen Zeile durch einen Mittelpunkt getrennt zu sehen sein

dann markierst du diese Spalte
ruft suchen und ersetzen auf
suchen [color=#0000FF][b].*·10[/b][/color]
ersetzen [color=#0000FF][b]ersatz·10[/b][/color]
Mehr Optionen
[x] nur in Selektion
[x]Reguläre Ausdrücke
Suchen in [Werten]
ok

die Spalt erneut markieren
dann Menü > Daten > Text in Spalten
Trennoption [x]andere [·]
ok

nun kannst du die neu entstandene Spalte über die alte Spalte A kopieren
aber [b]Wichtig ![/b] nicht nur einfügen sondern "Inhalte einfügen" verwenden
im Kontextmenü bei Auswahl für [ ]Alles und [ ]Formeln den Haken entfernen.

der der von mir verwendete Mittelunkt "·" "alt+0183" als Trennzeichen muss es nicht unbedingt sein
die tilde ~ wäre sicher auch gut..

so würde ich es machen wenn keiner da ist der mir ein Makro schreibt :)

REM  *****  BASIC  *****
Option Explicit

Sub Main
	dim oSheet as Object
	dim i as Long, iMax as Long
	
	oSheet = ThisComponent.currentController.ActiveSheet
	iMax = getLastRowInColumn(oSheet, 2) ' 0 = A, 1 = B, 2 = C
	for i = 0 to iMax
		if oSheet.getCellByPosition(2, i).String Like "*10*" then
			oSheet.getCellByPosition(0, i).string = "Änderung"
	   	endif
	next	 
End Sub

Function getLastRowInColumn(oSheet as Object, iColumn as integer) as Long
	dim oUsedCells as Object
	
	oUsedCells = oSheet.Columns(iColumn).queryContentCells(23)
	getLastRowInColumn = oUsedCells.RangeAddresses(oUsedCells.Count-1).endRow
End Function

Hi,

versuche das mal so.

cu, Bernd
--
[code]REM ***** BASIC *****
Option Explicit

Sub Main
dim oSheet as Object
dim i as Long, iMax as Long

oSheet = ThisComponent.currentController.ActiveSheet
iMax = getLastRowInColumn(oSheet, 2) ' 0 = A, 1 = B, 2 = C
for i = 0 to iMax
if oSheet.getCellByPosition(2, i).String Like "*10*" then
oSheet.getCellByPosition(0, i).string = "Änderung"
endif
next
End Sub

Function getLastRowInColumn(oSheet as Object, iColumn as integer) as Long
dim oUsedCells as Object

oUsedCells = oSheet.Columns(iColumn).queryContentCells(23)
getLastRowInColumn = oUsedCells.RangeAddresses(oUsedCells.Count-1).endRow
End Function
[/code]