Zeile mit Inhalt x suchen Spalte ersetzen

[bst]

Hi,

versuche das mal so.

cu, Bernd
--

Code: Alles auswählen

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

[clag]

Hallo

mit zwei Hilfsspalten geht es auch ohne "Code"

schreib in die linke erste Zelle der beiden Hilfspalten =A1&"·"&C1
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 .*·10
ersetzen ersatz·10
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 Wichtig ! 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

[balu]

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: Alles auswählen

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

Und anschließend die Formel so weit runterziehen (runterkopieren) wie Du es brauchst.



Gruß
balu