Office: (Office 2007) Wie kann ich Spalteninhalte mit text ergänzen ?

Hallo liebe Forumsuser,
folgendes Problem stellt sich mir gerade:

Ich muss in einer Exceltabelle eine Spalte mit Artikelnummern mit dem Zusatz ".jpg" ergänzen und eventuell c:\artikel\bilder\ davor schreiben.

Also aus "222141" soll "c:\artikel\bilder\222141.jpg" werden *mrcool

Da es sich um ca. 6000 Artikel handelt ist von Hand schreiben ein wenig mühsam. Also hoffe ich auf eine Lösung hier im Forum.

Vielen Dank
Patrik

:)

 

Moin, Patrick,

Hilfsspalte, Bereich markieren, ="c:\artikel\bilder\" & A1 & ".jpg" eingeben und mit STRG+EINGABE einschließen bzw. nach Eingabe in eine Zelle mit Doppelklick auf die untrre rechte Ecke nach unten kopieren lassen, eventuell mit Kopieren/Inhalte einfügen/Festwerte in ebensolche überführen - oder ein Makro nutzen (wobei dass auch mit dem Inhalt alleine zurechtkommen würde)...

 

Hallo Icemen,

steht die Zahl 222141 z.B: in A2, dann schreibe in B2 folgende Funktion :
="C:\artikel\bilder\"&A2&".jpg"
Kopiere diese Funktion mit der rechten unteren Ecke (z.B. Doppelklick) soweit nach unten wie benötigt !

Das Ergebnis sieht dann z.B. so aus (Funktion wurde nur in B2 eingegeben und dann runterkopiert !) :
******** type="text/javascript" src="http://rtsoftwaredevelopment.de/html/js/dyn_table.js">*********>

	A	B
1
2
3
4
5
6

Formeln der Tabelle

Zelle	Formel
B2	="c:\artikel\bilder\"&A2&".jpg"
B3	="c:\artikel\bilder\"&A3&".jpg"
B4	="c:\artikel\bilder\"&A4&".jpg"
B5	="c:\artikel\bilder\"&A5&".jpg"
B6	="c:\artikel\bilder\"&A6&".jpg"

Tabelle eingefügt mit

 

dass war ja jetzt fast lichtgeschwindigkeit - danke danke danke ....*grins

 

Hallo Patrik,

in eine freie Spalte eintragen = "c:\artikel\bilder\" & Zelle & ".jpg", wobei Zelle der Name der Zelle mit der Nummer ist. Zelle auswählen, kopieren, gesamte Spalte markieren, einfügen,
die gesamte Spalte ist mit den neuen Daten gefüllt. Spalte markieren, kopieren, Ursprungsspalte markieren, Inhalte einfügen, nur Werte, fertig.
Am Ende der Spalte die Zellen ohne Namen löschen.

Ansonsten mit VBA

sub ersetzen()
dim lngZeile as long
for lngzeile =1 to Cells(Rows.Count, 1).End(xlUp).Row
cells(lngzeile,1)= "c:\artikel\bilder\" & cells(lngzeile,1) & ".jpg"
next
end sub

 

Hallo Iceman,

wo sitzt Du denn gerade ? Die erste Antwort hat immerhin 12 Min. gedauert.

fast "Lichtgeschwindigkeit" wären ja 12 * 60 Sek.* 300000 km/sec = 216.000.000 km *wink.gif*

Kein Wunder, dass Dein Name "Iceman" ist, denn ich tippe mal auf eine Temperatur von -273,15 °C bei Dir, oder *grins ? Bei uns ist es immerhin gut 275°C wärmer.

Ciao und schönen abend noch...

 

[OT]
@NoNet: Dann sitzt Du aber fast noch auf Schnee. Ich ernte morgen die ersten Erdbeeren ...

 

Hallo Eberhard,

das kommt davon wenn man RECHTS() und LINKS() verwechselt :
Es sollte natürlich 295 °C wärmer und nicht 275 °C wärmer heißen *wink.gif*

PS : Erdbeeren gibt's bei uns auch schon seit einiger Zeit (haben wir am WE frisch vom Feld gekauft)

 

Hallo NoNet,

Sehr vorbildlich. So mancher hätte schreiben müssen

PS : Erdbeeren gibt's bei uns auch schon seit einiger Zeit (haben wir am WE frisch vom Feld geklaut).

Brave Foren-User *grins

 

Ein Post mit einem Alter von über 6 Jahren hat mir geholfen ohne irgendjemand erneut belästigen zu müssen. So funktioniert ein umfangreiches Forum wie dieses hier. *Smilie *Smilie *Smilie