Hallo,
ich habe eine CSV-Datei mit ca. 2000 Zeilen und einer Spalte in der Links zu Bildern sind.
Beispiel Zelleninhalt: /Bilder/Bild1.jpg
Diese dazugehörigen Bilder werde ich jetzt auf einen Server laden und möchte dann in der CSV in den entsprechenden Zellen folgendes vor dem jetzigen Inhalt einfügen: http://www.meinserver.de , so dass da später http://www.meinserver.de/Bilder/Bild1.jpg steht.
Wie kann man das ohne Fachwissen anstellen ?
Gruß Lou
Hi,
nimm eine leere Spalte und verwende in dieser den Befehl VERKETTEN:
„=VERKETTEN(“[http://www.meinserver.de";Deine Spalte mit dem Bildnamen])
Dann die Zelle einfach markieren und nach unten ziehen.
Gruß
Michi
Hallo Michi,
vielen Dank für diese schnelle Antwort. Hat auch super geklappt, allerdings habe ich das erste Anführungszeichen vor dem Gleichheitszeichen und die eckigen Klammern weglassen müssen - funzt super !
DANKE
Gruß Lou
Hallo loumitbox,
das kann man mit einem kleinen VBA-Makro erreichen.
Am Samstag kann ich Dir das Makro zukommen lassen.
Mit freundlichen Grüßen,
BigBen
Hallo, Lou
Mit dem folgenden Code sollte es klappen.
Dim Zeile As Long 'Deklariert eine Variable vom Typ Long
'Hier beginnt eine Schleife, die durchlaufen wird,
'solange die momentane Zeile kleiner ist als die letzte
'befüllte Zeile in Spalte A ist.
Do While Zeile
Da ich nicht weiß wie Du diese Prozedur aufrufen willst und welche Excel-Version Du verwendest, kann ich Dir höchstens einen Button auf dem Tabellenblatt empfehlen.
Tabellen-Name und Spalten-Nr mußt Du gegebenenfalls anpassen.
VG
Carsten
Hallo loumitbox,
der u.a. QuellCode passt einen zuvor markierten Bereich an.
Falls Excel 2007 eingesetzt wird, können mehrere Bereiche markiert werden.
Nach dem Markieren muss das Makro aufgerufen werden.
Das Makro ändert die Zellen ab, in denen noch keine ServerURL enthalten ist.
Das Makro kann daher auch mehrfach aufgerufen werden.
Viele Grüße,
BigBen
VBA-Code:
Option Explicit
Const ServerURL As String = „http:\[www.meinServer.com](http://www.meinServer.com%5C)“
Sub Replace()
On Error GoTo Err_Handler
Dim rng As Range
For Each rng In Selection.Cells
If Not Left(rng.Text, Len(ServerURL)) = ServerURL Then
rng.Formula = ServerURL & rng.Text
End If
Next
Err_Exit:
Exit Sub
Err_Handler:
MsgBox „Es ist ein Fehler Nr. " & VBA.CStr(Err.Number) & " aufgetreten.“ & vbCr & Err.Description, vbCritical
Resume Err_Exit
End Sub
Hmmm, warum arbeitest Du nicht mit Suchen/Ersetzen?
Entweder direkt über die Excel Funktion Suchen/Ersetzen im Bearbeiten Menü. Dort einfach /Bilder/ ersetzen durch http://www.meinserver.de/Bilder/
Dazu muss nicht einmal ein Programm geschrieben werden 
-> Dies setzt voraus, dass die Bilder alle unter /Bilder/… zu finden sind. Ansonsten sind es eben mehrere Suchen/Ersetzen-Aktionen. Auch sollte /Bilder/ nicht später im Ordnerpfad zu finden sein, das würde beim Ersetzen z.B. zu http://www.meinserver.de/Bilder/http://www.meinserve… führen und keinen gültigen Link darstellen.
Ansonsten wäre ein Programm (Schleife durch alle Zeilen und in der benannten Spalte) möglich:
obige Variante wäre mit der Replace()-Funktion möglich, beinhaltet aber obige Schwierigkeiten. Besser wäre, einfach das http://… vorne an zu stellen:
Range(„A“ & Zeile).value = „http://www.meinserver.de“ & Range(„A“ & Zeile).Value
Zeile ist dabei der Zeilenzähler in der Schleife, man kann auch i nehmen. Die Links stehen auch in Spalte „A“, ansonsten entsprechend anpassen
Hallo Lou!
Du kannst die CSV-Datei in Excel einlesen (->datei, ->öffnen, bei dateityp ganz unten *.csv eingeben. Danach sollten alle Einträge in spalte „A“ srehen. in Feld „B1“ gibst Du ein:
="http://www.meinserver.de/"&A1
wenn das richtig eingegeben ist, steht da:
http://www.meinserver.de/Bilder/Bild1.jpg
jetzt kannst du die Zelle B1 in die Zellen B2-B2000 kopieren.
viel erfolg!