Linebrakes löschen

Forumthread: Linebrakes löschen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Linebrakes löschen

Linebrakes löschen

14.07.2005 16:22:07

A.W.

Hi!
Ich habe folgendes Problem, dass ich bei der Ausgabe meiner SQL-Abfrage die Namen untereinander bekomme. Wie lösche ich nun diese Linebrakes, damit ich danach die Namen mit Komma getrennt in einer Zeile ausgeben kann?
Im Vorraus schon mal vielen Dank für die Hilfe!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Linebrakes löschen

14.07.2005 19:08:21

Nepumuk

AW: Linebrakes löschen

14.07.2005 19:08:21

Nepumuk

Servus,
einfach die Zellen markieren und folgendes Makro starten:
Public Sub test()
    Dim rngCell As Range
    Application.ScreenUpdating = False
    For Each rngCell In Selection
        Do While InStr(1, rngCell.Text, vbCr) <> 0
            rngCell.Value = Left$(rngCell.Text, InStr(1, rngCell.Text, vbCr) - 1) _
                & Mid$(rngCell.Text, InStr(1, rngCell.Text, vbCr) + 1)
        Loop
        Do While InStr(1, rngCell.Text, vbLf) <> 0
            rngCell.Value = Left$(rngCell.Text, InStr(1, rngCell.Text, vbLf) - 1) _
                & Mid$(rngCell.Text, InStr(1, rngCell.Text, vbLf) + 1)
        Loop
    Next
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!