Zeilenumbruch in Excel ersetzen

Manchmal wird man als geplagter Programmierer mit dem Office Paket von Microsoft konfrontiert. Oft soll man dann Excel Listen weiterverarbeiten. Der einfachste Weg ist, sie in CSV Dateien umzuwandeln. Wären da nicht die Zeilenumbrüche innerhalb der Zellen, die verhindern dass man einen Datensatz pro Zeile erhält.

Also muss man sie vorher in der Excel Datei ersetzen. Doch so ohne weiteres ist das gar nicht möglich. Abhilfe schafft ein kleines Makro

Sub ersetze_cr_mit_komma()
Application.ScreenUpdating = False

Dim z As Range
For Each z In Selection
z.Value = Replace(z.Value, Chr(10), ",")
Next

Application.ScreenUpdating = True
End Sub

Vor dem Ausführen muss den Bereich (keine ganzen Zeilen oder Spalten) markieren, in dem ersetzt werden soll. Fertig 🙂

Wer ohne den Umweg CSV Excel Dateien verarbeiten will, sollte sich einmal die Java Bibliothek POI anschauen.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s

%d Bloggern gefällt das: