Zeilenumbruch in Excel Dokument ersetzen

[tobmir24]

Huhu,

ich habe hier eine Excel Datei und die soll nach CSV exportiert werden.
Ist ja an sich ja kein Problem. Dafür bietet Excel ja eine Funktion. Allerdings gibt es eine Spalte (Q) die sowohl Straßennahmen, PLZ und Ort beinhaltet. Dies soll nachher in der CSV getrennt sein. Da sich ein Zeilenumbruch in diesen Zellen befindet, wäre es sinnvoll meiner Meinung nach, den Zeilenumbruch mit einem Semikolon zu ersetzen.

Wie mach ich das am besten?
PS: Nutze Excel 2007. Kann aber zur Not auf 2000 oder 2003 zurückgreifen.

[Mister Hack]

Tja, ich hab jetzt nur eine Lösung per Makro, die dann so aussehen könnte:

Sub x()
Selection.Replace Chr(10), "; "
End Sub

Hat zumindest bei mir funktioniert (Excel XP).

Hier werden alle manuellen Zeilenumbrüche gegen "; " getauscht.
Falls es nicht klappt, es könnte u.U. auch Chr(13) verwendet sein.

[Sarakin]

Selection.Replace Chr(10), "; "

Davor müsstest du die entsprechende Zelle aber noch selektieren.
Also mit

ActiveWorkbook.ActiveSheet.Cells(x,y).Select

bzw. halt direkte Verweise auf Workbook und Sheet

[tobmir24]

Gut. das hab ich jetzt hinbekommen.

Sub x()

    Columns("Q:Q").Select
    Selection.Replace Chr(10), "; "
    
End Sub

[Sarakin]

Da fällt mir was auf: Warum eigentlich "; " und nicht ";"?
In CSV-Dateien ist doch kein Leerzeichen nach dem Semikolon, wenn ich mich nicht täusche.

[tobmir24]

Mag sein. Aber es hat auf jeden Fall geklappt.

[Sarakin]

Nicht, dass dann beim Einlesen der Datei Probleme entstehen, weil das Leerzeichen mit übernommen wird.
Überprüf das sicherheitshalber noch mal.

[tobmir24]

Wird mitgemacht aber durch ein anderes Script von nem Kollegen (per Perl) wurde die PLZ gesondert gefiltert und die unnötigen Leerzeichen wurden entfernt.