zeichen anfügen hinter letztes wort

[libreofficefan]

Hallo,

ich möchte an die inahlte einer spalte Spalte .jpg an das ende einfügen.
Da die Spalte verschiedene Inhalte hat kann ich leider nicht suchen und ersetzen.
Gibt es da eine einfache Möglichkeit ohne Formatierungen zu ändern da es eine csv datei ist

[F3K Total]

Hi,
das geht sicherlich mit regulären Ausdrücken, ich kann es nicht, daher hier ein Makro für die Aufgabe:

Code: Alles auswählen

Sub S_ADD_JPG
'Vorgaben
sTabelle = "Tabelle1"
sSpalte = "A"
sText = ".jpg"
nstartrow = 1'mit Spaltenüberschrift sonst 0

osheet = thiscomponent.sheets.getbyname(sTabelle)
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
nrow = ocursor.RangeAddress.endrow
ocolumn = osheet.columns.getbyname(sSpalte)
aRangeAddress = ocolumn.RangeAddress
nColumn = aRangeAddress.StartColumn
for i = nstartrow to nrow
ocell = osheet.getcellbyposition(nColumn,i)
 if ocell.string > "" then
  sCellstring = ocell.string
  ocell.string = sCellstring+sText
 endif
next i

End Sub

Viel Erfolg R

[libreofficefan]

Hallo,

vielen Dank, wo kann ich diesen Code eingeben? *duck*

[theindless]

Hallo,

wenn der Text in eine neue Spalte darf, kannst du auch einfach folgendes schreiben:

=A1&".jpg"

und das nach unten ziehen.

theindless

[F3K Total]

... Extras/Makros/Makros verwalten/Basic ... hier in ein Modul hineinkopieren, speichern, dann ... Extras/Makros/Makro ausführen und das Makro wählen ...
Gruß R

[karolus]

Hallo

→Suchen ^.*$ und ersetzen durch $0.jpg
[x]regulärer Ausdruck
[x]nur in Selektion

Karo

[libreofficefan]

so viele lösungen,

vielen dank, die einfachste ist die von karo funzt bestens!